动态表筛选给出错误1004

Question

我遵循了一个非常简单的针对表的VBA动态过滤教程-但我没有VBA经验，无法弄清为什么我收到错误1004-应用程序定义的错误或对象定义的错误。

作为参考，我的活动工作表中有一个名为“ AcronymList”的表

我的VBA过滤器代码如下：

Private Sub TextBox1_Change()
'Filter acronyms in AcronymList Table.
ActiveSheet.ListObjects("AcronymList").Range.AutoFilter Field:=1, Criteria:="*" & [A3] & "*", Operator:=xlFilterValues
End Sub

每次我从A3 ActiveX TextBox添加/删除文本时，都会发生错误。

感谢任何指针。

Answer 1

只是一个小的错字：Criteria1:=...而不是Criteria:=... 有关更多详细信息，请参见Range.AutoFilter方法。

请注意，您不应使用@Rory在注释中提到的Operator参数。