如何在 Excel 儲存格輸入時立即執行篩選搜尋？

作者Siluvia修改日期2024-10-29

本文提供一種方法，讓您在 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

注意：在程式碼中，TextBox 1 為所插入文字方塊的名稱，Name 則為表格清單的名稱。您可依需求自行修改。

7. 按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

8. 點擊開發人員 > 設計模式，即可關閉設計模式。

從現在起，表格清單將根據文字方塊中輸入的內容即時進行搜尋與篩選。請參閱下圖：

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

智慧執行：透過簡易指令，輕鬆執行儲存格操作、分析資料，並建立圖表！
自訂公式：打造專屬公式，讓您的工作流程更順暢！
VBA 編碼：輕鬆撰寫並套用 VBA 程式碼，立即提升工作效率！
公式解析：輕鬆掌握複雜公式！
文字翻譯：輕鬆打破試算表中的語言隔閡！

運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多