Excel 過濾器隱藏結果與 VBA 過濾器條件

Question

我將帶有 VBA 的日期過濾器應用於 excel 表，但未顯示結果。

    Public Dte As Date
Dte = "31/12/2020"
With Sheets("Temptable").ListObjects("Temp").Range
    .AutoFilter Field:=2, Criteria1:=package
    .AutoFilter Field:=4, Criteria1:="<" & Dte
End With

字段 2 有效，但字段 4 無效：它隱藏單元格，就像沒有值一樣。 然后我 go 到 excel 過濾器並單擊“日期過濾器”->“之前”-> Dte 在那里->我按 Enter，然后應用過濾器。 為什么它不自動應用？

Answer 1

嘗試像下面這樣編寫它，您缺少 package 周圍的引號，所以我相信 VBA 正在嘗試基於未制作的變量“包”進行過濾。 使用Option Explicit可以在將來捕獲這些類型的錯誤，因為它會強制您定義您調用的任何變量。 但是，如果沒有您的所有代碼，我認為您表的第二列中的任何內容都包含文本“包”，並且它不是您在其他地方使用的變量。

    Public Dte As Date
Dte = "31/12/2020"
With Sheets("Temptable").ListObjects("Temp").Range
    .AutoFilter Field:=2, Criteria1:="package"
    .AutoFilter Field:=4, Criteria1:="<" & Dte
End With

Answer 2

謝謝大家的回復。 事實上 package 已經是我沒有提到的代碼中設置的變量，它確實過濾了正確的字符串數據。

不幸的是，您的解決方案無法解決問題。 即使有以下內容：

        Public Dte As Date
Dte = "31/12/2020"
With Sheets("Temptable").ListObjects("Temp").Range
    .AutoFilter Field:=4, Criteria1:="<" & Dte
End With