如何实现ListBox多选并返回所选值？

作者：绿色风分类：时间：2022-08-17 浏览：85

楼主
amulee

Q：
A：实现多选只要改变 MultiSelect 属性即可，如以下语句：

With UserForm1.ListBox1
.MultiSelect = fmMultiSelectMulti '按空格键或单击鼠标以选定列表中一个条目或取消选定。
.MultiSelect = fmMultiSelectExtended '按 Shift 并单击鼠标，或按 Shift 的同时按一个方向键，将所选条目由前一项扩展到当前项。按 Ctrl 的同时单击鼠标可选定或取消选定。
.MultiSelect = fmMultiSelectSingle '只可选择一个条目（默认）。
End With

还可以用以下语句返回所选的所有值。

Dim Arr(), k&, i&
ReDim Arr(1 To 1)
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
k = k + 1
ReDim Preserve Arr(1 To k)
Arr(k) = .List(i, 1)
End If
Next i
End With
MsgBox "您选择了：" & Join(Arr, ",")

List多选并返回值.rar

2楼
亡者天下

要是楼主把VBA代码解释一下就更好了！

方便新人学习嘛

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表