我正在使用以下代碼,但是每當我檢查過濾器時,日期都是日期的數值,而不是“20/01/2020”,謝謝。
filter_date = "20/01/2020"
filter_date = Format(filter_date, "dd/mm/yyyy")
ActiveSheet.Range("$A$1:$L$10").AutoFilter Field:=8, _
Criteria1:=">=" & Format(filter_date, "dd/mm/yyyy"), Operator:=xlAnd
uj5u.com熱心網友回復:
替代答案
問題下的評論有一個解決方案,但我建議保留Date資料型別并使用這樣的東西,這應該有效:
Option Explicit
Sub Test()
Dim filter_date As Date ' Declaring the var type as Date
filter_date = #20/1/2020# ' Use the # sign around a date to identify it as Date
ActiveSheet.Range("$A$1:$L$10").AutoFilter Field:=8, _
Criteria1:=">=" & filter_date, Operator:=xlAnd
End Sub
我認為這更容易更短,而且您可以更輕松地在代碼中讀取日期。使用#日期周圍是分配日期的方法。
轉載請註明出處,本文鏈接:https://www.uj5u.com/caozuo/407956.html
標籤:
下一篇:在線訪問Outlook電子郵件
