允许在列表框中选择多个项目的VBA代码

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： VBA ， 窗体控件 在 Excel 工作表中，单击功能区“开发工具”选项卡“控件”组中的“插入——表单控件——列表框”，可以在工作表中插入列表框控件，然后右键单击该控件，在快捷菜单中选择“设置控件格式”，在弹出的“设置控件格式”对话框“控制”选项卡中，可以指定该列表框的数据源以及相链接的单元格，并设置可以多选，如下图 1 所示。 图 1 然而，当我们在列表框中选择了多个项目时，链接的单元格中只有第一个被选数据相关单元格显示为 0 。 图 2 下面的代码可以显示列表框中所选项的状态，代码如下： '获取多选列表框中的选定项目, 并将它们列在工作表中原始项目列表旁边 Sub getUserSelections() Dim V As Variant Dim V2 As Variant Dim i As Long Dim n As Long Dim lb As Long Dim adjust ………………………………