运行时错误“1004”：范围类的自动筛选方法失败

我在vba中使用了一个小代码，它给了我这个错误::

Dim today As Date Dim Mon As Integer today = VBA.Date() Mon = Month(today) Sheets("Birthday List").Activate ActiveSheet.AutoFilterMode = False ActiveSheet.Range("A1:E1").AutoFilter , Field:=3, Criteria1:=Mon, Operator:=xlFilterValues ActiveSheet.AutoFilterMode = True 

你能帮我解决一下吗？

问候安娜史密斯

Answer 1

你的代码中的问题是：

1. @Cyril在@DavidZemens的更新中评论道

"Autofilter , Field"那个“，”是不需要的，标准可能需要是"=" & Mon

2. 您无法手动设置ActiveSheet.AutoFilterMode = True ，但在调用ActiveSheet.Range("A1:E1").AutoFilter ...时会自动设置ActiveSheet.Range("A1:E1").AutoFilter ... 您只能设置ActiveSheet.AutoFilterMode = False以closuresAutoFilter。