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

ms excelmicrosoft technologiescomputers更新于 2024/8/21 6:36:17

Excel 是一款功能强大的电子表格程序，它提供了丰富的功能来帮助您有效地组织和分析数据。筛选数据就是其中一项功能，它使您能够轻松地在庞大的数据库中识别特定信息。本教程将重点介绍一种称为快速筛选搜索的特定筛选技术。与需要您手动输入搜索条件并应用过滤器的传统筛选方法不同，即时筛选搜索会在您在单元格中输入时筛选数据，并提供与您的搜索词匹配的实时结果。

在单元格中输入时进行即时筛选搜索

在这里，我们将首先创建一个表格，然后插入一个活动 x 控件文本框，最后将 VBA 代码添加到文本框中以完成任务。让我们看一个简单的过程，了解如何在 Excel 单元格中输入内容时进行即时筛选搜索。

步骤 1

假设您有一个包含数据列表的 Excel 工作表。

首先，选择单元格区域，然后点击"插入"，选择"表格"，然后点击"确定"。

选择单元格 > 插入 > 表格 > 确定。

步骤 2

然后点击"表格"，再点击"设计"，将表格命名为"名称"，然后点击"Enter"。

表格 > 设计 > 名称 > Enter。

步骤 3

然后插入一个 ActiveX 控件文本框。要插入文本框，请点击"开发人员"和"插入"，然后点击"文本框"并绘制。

"开发人员">"插入">"文本框">"绘制。

步骤 4

然后右键单击文本框，选择"属性"，在表格的任意单元格中输入"链接单元格"，然后关闭属性。

右键单击 >"属性">"链接单元格">关闭。

步骤 5

然后再次右键单击该框并选择"查看代码"，并将以下代码替换到文本框中。

代码

Private Sub TextBox1_Change()
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