excel vba 窗体中listbox用法 VBA中如何使用ListBox控件呢？
vba\u4e2d\u600e\u4e48\u7ed9listbox\u63a7\u4ef6\u7ed1\u5b9aexcel\u91cc\u9762\u7684\u6570\u636e\u8f6f\u4ef6\u7248\u672c\uff1aOffice2007
\u4e3e\u4f8b\u8bf4\u660e\u5982\u4e0b\uff1a
1.\u5c06Excel\u4e2dA\u5217\u7684\u6570\u636e\u7ed1\u5b9a\u5230listbox\u4e2d:
2.\u521b\u5efa\u7a97\u4f53\uff0c\u5e76\u52a0\u5165\u4e00\u4e2alistbox\u63a7\u4ef6\uff0c\u5728\u7a97\u4f53\u4e2d\u6dfb\u52a0\u4ee3\u7801\u5982\u4e0b\uff1a
3.\u70b9\u51fb\u8fd0\u884c\u6309\u94ae\uff0c\u8fd0\u884c\u7ed3\u679c\u5982\u4e0b\uff1a
\u53ef\u4ee5\u770b\u5230Listbox\u4e2d\u7ed1\u5b9a\u4e86Excel\u4e2d\u7684\u6570\u636e\u3002
ListBox \u63a7\u4ef6\u663e\u793a\u9879\u76ee\u5217\u8868\uff0c\u4ece\u5176\u4e2d\u53ef\u4ee5\u9009\u62e9\u4e00\u9879\u6216\u591a\u9879\u3002\u5982\u679c\u9879\u76ee\u603b\u6570\u8d85\u8fc7\u4e86\u53ef\u663e\u793a\u7684\u9879\u76ee\u6570\uff0c\u5c31\u81ea\u52a8\u5728 ListBox \u63a7\u4ef6\u4e0a\u6dfb\u52a0\u6eda\u52a8\u6761\u3002\u5982\u679c\u672a\u9009\u5b9a\u9879\u76ee\uff0c\u5219 ListIndex \u5c5e\u6027\u503c\u662f -1\u3002\u5217\u8868\u7684\u7b2c\u4e00\u9879\u662f ListIndex 0\uff0cListCount \u5c5e\u6027\u503c\u603b\u662f\u6bd4\u6700\u5927\u7684 ListIndex \u503c\u5927 1\u3002
\u8bed\u6cd5ListBox
\u8bf4\u660e\u4f7f\u7528 AddItem \u6216\u8005 RemoveItem \u65b9\u6cd5\u53ef\u4ee5\u6dfb\u52a0\u6216\u8005\u5220\u9664 ListBox \u63a7\u4ef6\u4e2d\u7684\u9879\u76ee\u3002\u5bf9 List\u3001ListCount \u548c ListIndex \u5c5e\u6027\u8fdb\u884c\u8bbe\u7f6e\u5c31\u53ef\u4ee5\u8bbf\u95ee ListBox \u4e2d\u7684\u9879\u76ee\u3002\u4e5f\u53ef\u4ee5\u5728\u8bbe\u8ba1\u65f6\u4f7f\u7528 List \u5c5e\u6027\u5728\u5217\u8868\u4e2d\u589e\u52a0\u9879\u76ee\u3002
\u5b9e\u4f8b
Dim Entry, I, Msg ' \u58f0\u660e\u53d8\u91cf\u3002 Msg = "Choose OK to add 100 items to your list box." MsgBox Msg ' \u663e\u793a\u4fe1\u606f\u3002 For I = 1 To 100 ' \u8ba1\u6570\u503c\u4ece 1 \u5230 100\u3002 Entry = "Entry " & I ' \u521b\u5efa\u8f93\u5165\u9879\u3002 List1.AddItem Entry ' \u6dfb\u52a0\u8be5\u8f93\u5165\u9879\u3002 Next I Msg = "Choose OK to remove every other entry." MsgBox Msg ' \u663e\u793a\u4fe1\u606f\u3002 For I = 1 To 50 ' \u786e\u5b9a\u5982\u4f55 List1.RemoveItem I ' \u6bcf\u9694\u4e00\u9879 Next I ' \u5220\u9664\u3002 Msg = "Choose OK to remove all items from the list box." MsgBox Msg ' \u663e\u793a\u4fe1\u606f\u3002 List1.Clear ' \u6e05\u9664\u5217\u8868\u6846\u3002
1、首先需要打开Excel的表格，如图所示，点击下面的文件1，鼠标右键单击选择查看代码。
2、然后就是进入代码页面，可以看到页面上现在的代码。
3、然后接下来就是需要用listbox用法，如图所示，输入Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)，回车。
4、最后，再返回到页面上，如图所示，双击一下表格就可以看到数字了，listbox用法成功。
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、双击鼠标左键后就变了
1、RadListBoxSource.TransferMode = ListBoxTransferMode.Copy;传输数据是以COPY的形式。
2、RadListBoxSource.AllowReorder = true; 允许重新排序。
3、RadListBoxSource.SelectionMode = ListBoxSelectionMode.Multiple;允许多选。
4、RadListBoxDestination.AllowDelete = true; 选中项允许删除。
5、RadListBoxSource.AllowTransferOnDoubleClick = true;是否允许双击选中。
6、获取选中的人员。
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;是否允许双击选中。
你知道这个属性就够了
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 相同的列表索引值。
扩展阅读：excel vba 类模块用法 ... vba做excel窗体录入教程 ... excel vba 窗体显示数据 ... excel vba 报表窗体 ... excel vba rows ... excel vba 制作卷帘窗口 ... excel vba范例讲解 ... excel vba 打开工作表 ... excel vba 隐藏窗体 ...
