VBA文本框自动过滤隐藏所有内容

Question

我使用activex文本框在我的电子表格中实现了一个类似google的搜索框。但是，一开始它工作正常，但现在它隐藏了整个使用的范围，我只看到空白单元格。这真的需要 100% 工作，但我无法弄清楚问题出在哪里。

代码如下：

Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("$O$7").AutoFilter Field:=14, Criteria1:=TextBox1
End Sub

感谢您对此问题的帮助。

Answer 1

我没有看到任何清除以前过滤器的语句，例如：Worksheets(1).AutoFilterMode = False

此外，在End Sub恢复屏幕更新之前应该有Application.ScreenUpdating = True。

Answer 2

If TextBox1.vlaue = "" Then Application.Autofiltermode= False