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