Excel -VBA Listbox 初始化

Dim MyArray(6, 3)

Private Sub ListBox1_Click()

End Sub

Private Sub Worksheet_Activate()
Dim i As Single
 
 ListBox1.ColumnCount = 3
'This list box contains 3 data columns
 
 'Load integer values MyArray
 For i = 0 To 5
 MyArray(i, 0) = i
 MyArray(i, 1) = Rnd
 MyArray(i, 2) = Rnd
 Next i
 
 'Load ListBox1
 ListBox1.List() = MyArray
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

ListBox控件初始化得方法。