在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