excel - 文本框为数字时的自动过滤功能

Question

我想制作一个可以输入特定年龄的文本框。然后我想为插入的年龄做一个自动过滤器。当我运行它时，它似乎不起作用。有任何想法吗？

Private Sub TextBox1_Change()
    If IsNumeric(TextBox1) Then

        Sheets("data").Select
        ActiveSheet.Range("$A$1:$Z$1000").AutoFilter Field:=28, Criteria1:=Sheets("filter").TextBox1.Value


End If

Answer 1

我的猜测是有一个自动过滤器处于活动状态，它与您的假设不“兼容”。

添加以下代码以预先关闭任何自动过滤器

Dim wks As Worksheet
Set wks = Sheets("data")
wks.AutoFilterMode = False