玖叶教程网

在数据表操作的时候，通常会有大量的选择项目，在工作当中，不可能在众多的选择当中找到想要的结果，反而对操作是一种很大的困扰，并不能真正体现出自动化的效率来。

如何在众多选择项目当中快捷地找出想要的条目就是一件十分有用的处理。

下面介绍一种方法，通过数组方式来实现模糊选择。

过程方法

表现就是，当在一个文本框或组合框中输入要选择的项目时，会根据输入的内容进行比对处理，然后把当前输入的相关项目都列出来，有助于减少对条目的人为查找，起到了更快地找出列表项。

实际上，在一些搜索引擎中，这种方式应用较多，当输入几个关键字的时候，系统会自动把相关的热词列出来，供选择查询。

如下图所示：

当输入一个字母A的时候，相关有A的项目都会自动列出到下方列表框内，这样选择起来就方便多了。

代码

Private Sub ComboBox1_Change()
On Error Resume Next
GetArr '设置关键字数组
Dim xStr As String
Dim x As Variant, xi As Integer, cArr()
Dim isTrue As Boolean
isTrue = False
xStr = Me.ComboBox1.Value
For Each x In xArr
    If VBA.InStr(1, x, xStr, vbTextCompare) <> 0  Then
        isTrue = True
        ReDim Preserve cArr(xi)
        cArr(xi) = x
        xi = xi + 1
    End If
Next x
If Not isTrue Then
    ReDim cArr(0)
End If
   With Me.ListBox1
        .List = cArr '设置列表框值
        .Value = .List(0)
    End With
Erase cArr
Erase xArr
End Sub

自动搜索相关内容是一个十分有用的功能，特别是数据选择项目较大的一些处理过程中，模糊查询就是在一些可能的情况下，让工作变得容易。

通过如上代码实践，基本实现了模糊查询提示的功能。

欢迎关注、收藏

---END---