excel vba 窗体中listbox用法

Question

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

Answer 1

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

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

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

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

Answer 2

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、双击鼠标左键后就变了

Answer 3

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

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

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

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

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

6、获取选中的人员。

Answer 4

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;是否允许双击选中。

Answer 5

你知道这个属性就够了
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 相同的列表索引值。