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

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

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

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

惊人！在Excel中使用高效选项卡，例如Chrome，Firefox和Safari！

每天节省50％的时间，并减少数千次鼠标单击！

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

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.通过单击关闭设计模式 开发人员 > 设计模式.

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

最佳办公效率工具

Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％

重用: 快速插入 复杂的公式，图表 以及您以前使用过的任何东西；加密单元带密码创建邮件列表并发送电子邮件...
超级公式栏（轻松编辑多行文本和公式）；阅读版式（轻松读取和编辑大量单元格）；粘贴到过滤范围...
合并单元格/行/列不会丢失数据；拆分单元格内容；合并重复的行/列...防止细胞重复；比较范围...
选择重复或唯一行; 选择空白行（所有单元格都是空的）；超级查找和模糊查找在许多工作簿中；随机选择...
确切的副本多个单元格，无需更改公式参考；自动创建参考到多张纸；插入项目符号，复选框等...
提取文字，添加文本，按位置删除，删除空间; 创建和打印分页小计；在单元格内容和注释之间转换...
超级滤镜（将过滤方案保存并应用于其他工作表）；高级排序按月/周/日，频率及更多；特殊过滤器用粗体，斜体...
结合工作簿和工作表; 根据关键列合并表；将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
超过300种强大功能。支持Office / Excel 2007-2019和365。支持所有语言。在您的企业或组织中轻松部署。完整功能30天免费试用。 60天退款保证。

阅读更多免费下载... 采购...

Office选项卡为Office带来了选项卡式界面，使您的工作更加轻松

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！