VBA中如何使用ListBox控件呢？

Posted 2023-03-29

是这样的，我的工具箱里面没有listBox这个控件，请问要怎么样添加？请各位告诉我下，要具体一点的。谢谢

ListBox 控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在 ListBox 控件上添加滚动条。
如果未选定项目，则 ListIndex 属性值是 -1。列表的第一项是 ListIndex 0，ListCount 属性值总是比最大的 ListIndex 值大 1。

语法
ListBox

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

实例

   Dim Entry, I, Msg   ' 声明变量。
   Msg = "Choose OK to add 100 items to your list box."
   MsgBox Msg   ' 显示信息。
   For I = 1 To 100   ' 计数值从 1 到 100。
      Entry = "Entry " & I   ' 创建输入项。
      List1.AddItem Entry   ' 添加该输入项。
   Next I
   Msg = "Choose OK to remove every other entry."
   MsgBox Msg   ' 显示信息。
   For I = 1 To 50   ' 确定如何
      List1.RemoveItem I   ' 每隔一项
   Next I   ' 删除。
   Msg = "Choose OK to remove all items from the list box."
   MsgBox Msg   ' 显示信息。
   List1.Clear   ' 清除列表框。

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

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

语法

ListBox

说明

使用 AddItem 或者 RemoveItem 方法可以添加或者删除 ListBox 控件中的项目。对 List、ListCount 和 ListIndex 属性进行设置就可以访问 ListBox 中的项目。也可以在设计时使用 List 属性在列表中增加项目。本回答被提问者采纳 参考技术B VB启动后,在菜单:工程——部件——控件——Microsoft Windows Common Controls 6.0 参考技术C 在工具 选择附加控件 选中Microsoft forms 2.0 listbox

excel vba 窗体中listbox用法

如图1，两个listbox控件，listbox1中有10个字段，想要实现点击不同字段，在listbox2中显示不同内容，显示的内容已预设在工作标准中（图2），并实现增加、修改、删除功能，求助大神
或者有excel做的类似案例提供一个，同样感谢

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

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

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

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

参考技术A

1、在新工作表的Sheet1上点击右键

2、选择查看代码

3、点击右边倒三角，选择触发方式，如BeforeDoubleClick表示在双击鼠标左键时触发

4、点击候出现如下代码框架

5、输入以下语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)意为将A1、B1单元格求和并放在C1单元格

6、由于A1,B1没有数据，所以C1为0

7、双击鼠标左键后就变了

参考技术B

1、RadListBoxSource.TransferMode = ListBoxTransferMode.Copy;传输数据是以COPY的形式。

2、RadListBoxSource.AllowReorder = true; 允许重新排序。

3、RadListBoxSource.SelectionMode = ListBoxSelectionMode.Multiple;允许多选。

4、RadListBoxDestination.AllowDelete = true; 选中项允许删除。

5、RadListBoxSource.AllowTransferOnDoubleClick = true;是否允许双击选中。

6、获取选中的人员。

参考技术C

1、RadListBoxSource.AllowTransfer = false;禁止转移。

2、RadListBoxSource.TransferMode = ListBoxTransferMode.Copy;传输数据是以COPY的形式。

3、RadListBoxSource.AllowReorder = true; 允许重新排序。

4、RadListBoxSource.SelectionMode = ListBoxSelectionMode.Multiple;允许多选。

5、RadListBoxDestination.AllowDelete = true; 选中项允许删除。

6、RadListBoxSource.AllowTransferOnDoubleClick = true;是否允许双击选中。

参考技术D 你知道这个属性就够了
ListBox1.ListIndex
以下是excel自带的帮助信息，浅显易懂。

ListIndex 属性

参阅 示例 应用于 特性

指定当前选中的列表框或组合框条目。

语法

object.ListIndex [= Variant]

ListIndex 属性的语法包含以下成分：

成分

说明

object
必需。一个有效对象。

Variant
可选。控件中当前被选的条目。

说明

ListIndex 属性包含列表中被选行的索引。ListIndex 的取值范围为 －1 到列表总行数减
1（即，ListCount - 1）之间的数值。当用户没有选中行时，ListIndex 返回
-1。当用户在列表框或组合框中选中一行时，系统将设置 ListIndex 值。列表中第一行的 ListIndex 值是 0，第二行的
ListIndex 值是 1，依此类推。

注意 如果用 MultiSelect 属性创建一个允许多重选择的列表框，那么列表框的
Selected 属性（而不是 ListIndex 属性）将标识被选中的行。Selected 属性是一个数组，其中值的个数与列表框中的行数相同。对于列表框中的每一行，如果该行被选中，则
Selected 为 True，否则为 False。在一个允许多重选择的列表框中，ListIndex
返回具有焦点行的索引，而不论当前该行是否被选中。

将 BoundColumn 属性的值设置为 0，使组合框或列表框中的 ListIndex 值也可使用。如果
BoundColumn 为 0，绑定到组合框或列表框的支持数据源将包含与 ListIndex 相同的列表索引值。