如何使用vba代码从多重选择列表框中选择输入的值
如何使用vba代码从多重选择列表框中选择输入的值
提问于 2015-11-23 05:34:35
我有一个文本框和一个MultiSelect列表框，其值如下
当我在文本框中输入值并单击search时，它应该选择列表框中的特定值。我正在使用下面的代码
Private Sub Search_Click()
Dim str As String
Dim c As Collection
Dim strArray() As String
Dim intcnt As Integer
str = txtAnswer.Value
strArray = Split(str, ",")
For Each itm In strArray
lstAnswer.Selected (itm)= True
Next
End Sub我想得到下面的结果
但是它选择索引而不是值。例如
如何选择值而不是索引？
回答 2
Stack Overflow用户
回答已采纳
发布于 2015-11-23 07:14:38
Private Sub Search_Click()
Dim ItM As String
Dim c As Collection
Dim strArray() As String
Dim intcnt As Integer
strArray = Split(txtAnswer.Value, ",")
With lstAnswer
For Each ItM In strArray
For i = 0 To .ListCount - 1
If .List(i) <> ItM Then
Else
.Selected(i) = True
Exit For
End If
Next i
Next ItM
End With
End SubStack Overflow用户
发布于 2015-11-23 07:10:24
您的代码按项(而不是值)进行选择：
For Each itm In strArray
lstAnswer.Selected(itm) = True
Next若要按值进行选择，请为每个值循环列表值，如果找到，则将已找到的项标记为选定项。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/33864309
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号