luuuuc的博客

原创 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)...