Excel -VBA Listbox 初始化

最新推荐文章于 2025-04-24 12:00:00 发布

原创最新推荐文章于 2025-04-24 12:00:00 发布 · 1.6k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#linq #p2p #c#

VBA 同时被 2 个专栏收录

1 篇文章

订阅专栏

EXCEL

1 篇文章

订阅专栏

这篇博客介绍了如何在VBA中初始化ListBox控件，并通过二维数组填充随机数值。首先，定义了一个名为MyArray的二维数组，然后在Worksheet_Activate事件中设置了ListBox的列数为3，并用For循环加载了数组中的整数和随机数到ListBox中。这个过程展示了VBA中如何操作用户界面元素以及处理数据展示。

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控件初始化得方法。