VBALISTBOX(vba中ListBox控件的使用)

一、listbox的值怎么获取vba

vba窗体中如何获取列表框listbox1选中行的值提取出来，这决于您的列表框是多列还是单列。如果单列列表框的数据实际上是一维数组，则可以使用工作表函数transform导入文本框。经过三次转换后，可以将其转换为一维数组，然后使用join函数将其合并并写入文本框。多列列表框是二维数组。编写一个循环来读取列表框中的数据，然后将其写入文本框这是一个单列数据示例和一个多列数据示例。

如果listbox是多列的情况下，将listbox.column属性看作一个二维数组使用，比如获取第一行第一列的值 listbox.column(0,0)，单列就是一维数组。或者定义一个variant型变量，然后将listbox.list赋值给它，也会得到一个数组。

二、VBA中如何使用ListBox控件呢

ListBox控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在 ListBox控件上添加滚动条。

如果未选定项目，则 ListIndex属性值是-1。列表的第一项是 ListIndex 0，ListCount属性值总是比最大的 ListIndex值大 1。

语法

ListBox

说明

使用 AddItem或者 RemoveItem方法可以添加或者删除 ListBox控件中的项目。对 List、ListCount和 ListIndex属性进行设置就可以访问 ListBox中的项目。也可以在设计时使用 List属性在列表中增加项目。

实例

DimEntry,I,Msg'声明变量。

Msg="ChooseOKtoadd100itemstoyourlistbox."

MsgBoxMsg'显示信息。

ForI=1To100'计数值从1到100。

Entry="Entry"&I'创建输入项。

List1.AddItemEntry'添加该输入项。

NextI

Msg="ChooseOKtoremoveeveryotherentry."

MsgBoxMsg'显示信息。

ForI=1To50'确定如何

List1.RemoveItemI'每隔一项

NextI'删除。

Msg="ChooseOKtoremoveallitemsfromthelistbox."

MsgBoxMsg'显示信息。

List1.Clear'清除列表框。

三、excel vba 窗体中listbox用法

1、首先需要打开Excel的表格，如图所示，点击下面的文件1，鼠标右键单击选择查看代码。

2、然后就是进入代码页面，可以看到页面上现在的代码。

3、然后接下来就是需要用listbox用法，如图所示，输入Sheet1.Cells(1, 3)= Sheet1.Cells(1, 1)+ Sheet1.Cells(1, 2)，回车。

4、最后，再返回到页面上，如图所示，双击一下表格就可以看到数字了，listbox用法成功。