如何在 Excel 的儲存格中輸入時進行即時篩選搜尋？

本文提供了一種方法，讓您在 Excel 的儲存格中輸入時能夠即時搜尋和篩選。

使用 VBA 程式碼實現輸入時的即時篩選搜尋

使用 VBA 程式碼實現輸入時的即時篩選搜尋

如下方截圖所示，您有一個名稱列表，希望在特定儲存格中輸入時能即時搜尋和篩選。請按照以下步驟操作以實現此功能。

1. 首先，您需要使用列表數據創建一個表格，並將該表格命名為「Name」。請選擇整個列表，然後點擊 插入 > 表格。

2. 在彈出的 創建表格 對話框中，點擊 確定。參見截圖：

3. 點擊表格中的任何儲存格以啟用 設計 標籤，然後在 表格名稱 文本框中將表格重命名為 Name。參見截圖：

4. 點擊 開發工具 > 插入 > 文字框（ActiveX 控制項），在表格列表上方插入一個文字框，如下方截圖所示：

5. 右鍵單擊文字框並選擇 屬性，在 屬性 窗口中，在 LinkedCell 框中輸入一個儲存格引用。

6. 右鍵單擊文字框並從上下文菜單中選擇 檢視程式碼。然後在 Microsoft Visual Basic for Applications 窗口中，將原始程式碼替換為以下 VBA 程式碼。參見截圖：

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

備註：在程式碼中，TextBox1 是插入的文字框的名稱，Name 是表格列表的名稱。您可以根據需要更改它們。

7. 按下 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 窗口。

8. 點擊 開發工具 > 設計模式 以關閉設計模式。

從現在開始，表格列表將根據文字框中輸入的值進行即時搜尋和篩選。參見截圖：

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！