VBA窗体之列表框的基本用法VBA实例教程

除非注明，文章均为 战战如疯 原创，转载请保留链接: /cat1/282.html，VBA交流群273624828。

昨天我们看了组合框的基本用法，今天我们再来看下和其非常相似的列表框的用法。

先来看列表框的两个有用的属性设置。一是设置项目前是否显示单选框或复选框，ListStyle属性，可以在属性窗格中设置，为0时没有单选框或复选框，为1时有单选框或复选框，第二个有用的属性是设置列表框的多选或多选，MultiSelect属性，为0时是单选，为1时是多选，为2时需要按住shift或ctrl来进行多选。

下面我们来看怎样往列表框中添加项目，和组合框中添加项目是完全一样的三种方法：

Private Sub UserForm_Initialize() 'ListBox1.AddItem \"A\" 'ListBox1.AddItem \"B\" 'ListBox1.AddItem \"C\" 'ListBox1.RowSource \"Sheet1!A1:A3\"

ListBox1.List = Array(\"A\End Sub

不再多说了，不明白的朋友可以参见上节“VBA窗体之组合框的基本用法”。

下面来看怎样得到列表框中选取的内容，看代码演示

Private Sub CommandButton1_Click() Dim n

For n = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(n) = True Then MsgBox \"第\" & n + 1 & \"行数据\" &

=

ListBox1.List(n, 0) & \"已被选取\"

End If Next End Sub

ListCount是计算列表框一共有多少条项目，但是这些项目是从0开始编号的，所以我们从0开始对所有项目进行遍历，Selected(n)是判断编号为n的项目是否被选中，选中返回True，未选中返回False，List(x,y)表示第x行第y列的数据，注意这里x和y仍然是从0开始编码的。

不懂的结合实例自己看：http://pan.baidu.com/s/1gdHzHKn。

0

您可能也喜欢：

• VBA• VBA• VBA

窗体之ListView控件的基本应用 窗体之组合框的基本用法

窗体之ListView基本应用-输出和改变颜色

对象)

的调试技巧 处理XML文件 中的Resize函数

消息框基本应用

• 工作表基本操作—区域（range• VBA• VBA• VBA

• Msgbox

无觅关联推荐[?]