Question

请各位大侠帮我看看VBA想实现的复合框下拉列表显示的模糊查找，谢谢

我想实现在一个窗体的复合框下拉列表中加载复合框用户输入的实时关键字的下拉选项，只要匹配即可，就显示出来，比如共十个名称，abc，bnd，hui，ooo，pio，rta，err，qwe，qqq，wwe，刚开始所有都加载在复合框那个下拉列表里，然后我输入a，下拉列表就只看见，abc和rta，两个名称了，我参考了很多资料，但还是不太理解，请各位大侠帮我看一下，谢谢，应该写什么事件呢？具体代码该怎么写呢？

Answer 1

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

''''''''''''''''''没有调试好。别人等着我出门。你先试试如果有问题，补充。回来我再追加回答。

追问

谢谢啦，我等会试试

你好厉害

我试了一下，在框框里，回车一下会出错，是咋回事呢？

就是如果把复合框内容清除后，还能显示所有信息

我发现，我像框框里输入一个a，框框就会显示abc,我不想要这个功能，可否取消呢？

a就显示a就行了

有没有办法呢？

亲，在吗？

Answer 2

chage事件。

Answer 3

你是需要把其它的都移除,只留下相匹配的吗?

追问

是的

追答

我给你个思路吧,在复合框的change事件中,循环去用LIKE去匹配复合框的每一项如果配上了就保留不然就移出 当然这样要是复合框里面很多的话效率就不高了