運行時錯誤“1004”：范圍類的自動過濾方法失敗

Question

我在 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.AutoFilterMode = False來關閉自動篩選。

Answer 2

我不確定這是否已經解決（已經有幾年了）但我遇到了類似的錯誤“1004”：今天范圍類的自動過濾方法失敗，結果我應該過濾的數據在表中，並且這讓它厭煩了。 （發送報告的用戶改變了他們的發送方式）

刪除數據表（將表轉換為范圍）解決了我的問題。 也許這會幫助別人。