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

网友投稿 193 2023-12-25

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

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

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

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

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

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

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

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

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

Copy

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

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

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

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

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。