请教各位老师，如何判断listbox中被选中的值在listbox出现的次数

附件

判断listbox中被选中的值出现的次数.rar(28.96 KB)

2011-8-9 14:39, 下载次数: 1

复制内容到剪贴板

代码:

Dim StrText As String, i As Integer, n As Integer
With ListBox1
If .ListIndex < 0 Then Exit Sub '如果没选中列表框条目就退出
StrText = .Value
n = 0
For i = 0 To .ListCount - 1
If .List(i) = StrText Then n = n + 1
Next
End With
MsgBox StrText & " 在列表框中总共出现了: " & n & " 次!", , "提示"