在TextField中沒有文本時清除過濾器

Question

我有一個用於在特定列內進行搜索的文本框。問題是我完成搜索並從文本字段中刪除了文本。 「過濾器符號」不會消失？

我想要一個簡單的VBA代碼，讓我當在文本框裏面沒有更多的文字刪除此過濾器。下面是文本框搜索代碼：

Private Sub TextBox2_Change() 
     Sheet1.Range("A2:CM" & Rows.Count).AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*" 
End Sub 

Answer 1

試試這個：

Private Sub TextBox2_Change() 
    Sheet1.Range("A2:CM" & Rows.Count).AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*" 
    If TextBox2.Value = Empty Then Sheet1.Range("A2:CM" & Rows.Count).AutoFilter 
End Sub