[求助] 急用 怎么把listbox中的内容赋值给一个数组
怎么把listbox中的内容赋值给一个数组
2007-06-28 10:51
Dim MyArray() As Double, i As Integer
With List1
ReDim MyArray(1 To .ListCount)
For i = 1 To .ListCount
MyArray(i) = .List(i - 1)
Next
End With
2007-06-28 11:32
2007-06-28 12:00