請各位大俠幫我看看VBA想實現的復合框下拉列表顯示的模糊查找，謝謝

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

''''''''''''''''''沒有調試好。別人等著我出門。妳先試試如果有問題，補充。回來我再追加回答。