在Excel中键入单元格时如何进行即时筛选搜索？

本文为您提供了一种在Excel中键入单元格时立即进行搜索和过滤的方法。

使用VBA代码进行即时过滤搜索

使用VBA代码进行即时过滤搜索

如下面的屏幕快照所示，您有一个“名称”列表，您想在键入特定单元格时立即进行搜索和过滤。 请按照以下说明进行操作。

1.首先，您需要使用列表数据创建一个表，并将该表命名为“名称”。 请选择整个列表，单击 插页 > 表.

2.在开幕 创建表 对话框，单击 OK。 看截图：

3.单击表格中的任何单元格以激活 设计 选项卡，然后将表重命名为 名称 ，在 表名 文本框。 看截图：

4。 点击 开发商 > 插页 > 文本框（ActiveX控件） 在表格列表上方插入一个文本框，如下图所示：

5.右键单击文本框，然后单击 查看房源在 查看房源 窗口中，在 链接单元 框。

6.右键单击文本框，然后选择 查看代码 从上下文菜单中。 然后，将原始代码替换为下面的VBA代码 Microsoft Visual Basic应用程序 窗口。 看截图：

VBA代码：在Excel中键入时进行即时过滤搜索

Private Sub TextBox1_Change()
'Update by Extendoffice 2018/08/22
Dim xStr, xName As String
Dim xWS As Worksheet
Dim xRg As Range
    On Error GoTo Err01
    Application.ScreenUpdating = False
    xName = "Name"
    xStr = TextBox1.Text
    Set xWS = ActiveSheet
    Set xRg = xWS.ListObjects(xName).Range
    If xStr <> "" Then
        xRg.AutoFilter field:=1, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
    Else
        xRg.AutoFilter field:=1, Operator:=xlFilterValues
    End If
Err01:
Application.ScreenUpdating = True
End Sub

备注：在代码中， 文字框1 是插入的文本框的名称，名称是表列表的名称。 您可以根据需要进行更改。

7。 按 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

8.通过单击关闭设计模式 开发商 > 设计模式.

从现在开始，将根据文本框中输入的值立即搜索并过滤表列表。 看截图：