Excel VBA自动筛选器编译错误？

Question

我正在尝试创建一个在您键入时自动过滤的搜索框。 我使用了各种教程，但是我在努力使其正常工作。

我使用的代码是：

Private Sub SearchField_Change()
If Len(SearchField.Value) = 0 Then
    Sheet1.AutoFilterMode = False
Else
    If Sheet1.AutoFilterMode = True Then
        Sheet1.AutoFilterMode = False
    End If
Sheet1.Range ("A:A" & Rows.Count) .AutoFilter _ Field:= 1, Criteria1:="*" & SearchField.Value & "*"
End If
End Sub

当我尝试使用此语法时收到语法错误，我感到困惑的是，我正在复制教程中的内容（适当地更改工作表名称/文本框名称），但没有成功。

Answer 1

您需要正确指定过滤范围。 被过滤范围内的第一个单元格应该是您的标题。 因此，如果headers在Row 2 ，请像这样尝试...

Sheet1.Range("A2:A" & Rows.Count).AutoFilter Field:=1, Criteria1:="*" & SearchField.Value & "*"

Answer 2

缺陷在于：

Range("A:A" & Rows.Count)

它将尝试引用一些“ A：A1000000”范围，这显然是一个错误

然后您要使用：

Range("A1:A" & Rows.Count)

或者，这是相同的：

Range("A:A")

但是我不会引用整列并将范围限制为实际使用的范围

因此，您可以尝试对代码进行以下重构：

Private Sub SearchField_Change()
    With Sheet1
        .AutoFilterMode = False
        If Len(SearchField.Value) = 0 Then Exit Sub
        .Range("A1", .Cells(.Rows.Count,1).End(xlUp)).AutoFilter Field:= 1, Criteria1:="*" & SearchField.Value & "*"
    End With
End Sub