VBA复合框，下拉项。要求输入框输入字符串时模糊匹配下拉项字符串并去，除所有不包含输入字符串的下拉
答案:2 悬赏:80 手机版
解决时间 2021-03-18 00:31
- 提问者网友：富士山上尢
- 2021-03-17 00:43
VBA复合框，下拉项。要求输入框输入字符串时模糊匹配下拉项字符串并去，除所有不包含输入字符串的下拉
最佳答案
- 五星知识达人网友：几近狂妄
- 2021-03-17 00:51
支持一下感觉挺不错的
全部回答
- 1楼网友：上分大魔王
- 2021-03-17 01:59
Dim arr
Private Sub ComboBox1_Change()
ComboBox1.DropDown
a = ComboBox1.Text
For i = ComboBox1.ListCount - 1 To 0 Step -1
If InStr(ComboBox1.List(i), a) = 0 Then
ComboBox1.RemoveItem (i)
End If
Next
If a = "" Then
ComboBox1.Visible = False
ComboBox1.Visible = True
ComboBox1.SetFocus
ComboBox1.DropDown
ComboBox1.Clear
For i = 0 To UBound(arr)
ComboBox1.AddItem arr(i)
Next
End If
End Sub
Private Sub UserForm_Initialize()
arr = Array("abc", "bnb", "hui", "ooo", "pio", "rta", "err", "qwe", "qqq", "wwe")
For i = 0 To UBound(arr)
ComboBox1.AddItem (arr(i))
Next
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯