帮我完善一下本人的处女作

yanyi66

liwen 发表于 2009-9-8 23:03

版主大人，你是不是通过下面这些语句实现列表框中，选中的记录能自动保存，且求和值显示在文本框中也能保存的功能?（即下次显示窗体时仍能看到上次选中的记录和求和值）
如果是的话，还有劳请版主大人分析给我听听，尤其是结尾那段！
大恩不言谢！！！

Private Sub CommandButton1_Click()
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
A = A & "," & i
End If
Next
'Worksheets("1").Range(rc) = Mid(A, 2)
Sheets(1).Cells(2, ra) = Mid(A, 2)
Range(rb) = Me.TextBox1
Unload Me
End Sub
--------------------------------------------
Dim B As Variant
   B = Split(Sheets(1).Cells(2, ra), ",")
----------------------------------------------
Private Sub UserForm_Initialize()
       Dim B As Variant
   B = Split(Sheets(1).Cells(2, ra), ",")

       Me.TextBox1 = 0
       For i = 0 To UBound(B)
       Me.ListBox1.ListIndex = B(i)
       Me.ListBox1.Selected(B(i)) = True
       Next
      
End Sub

liwen

A:用于存储listbox1中选中的项的序号,以","分隔(也可以使用其他符号分隔)
ra为全局变量,存储的是对应品种所在的列,Sheets(1).Cells(2, ra)就是选项保存的地方
B为一个数组,用于还原存储的选择的序号为单个数字,用来设置相应的列表选项是否选中

刘青梅

感谢！！！