vba - 宏中的特定日期过滤器

Question

以下是我从 01-02-2018 到 10-02-2018 的特定日期过滤器的代码。
我没有收到运行时错误，但它从 01-01-2018 过滤到 14-02-2018。

我有 A 到 P 列，n 行也有日期在 J 列

Sub Date_Filter()
   Dim WeekS As Date
   Dim WeekE As Date
   WeekS = "01-02-2018"
   WeekE = "10-02-2018"
Range("A1:P1").AutoFilter
        Selection.AutoFilter Field:=10, Criteria1:=">=" & WeekS, Operator:=xlAnd, Criteria2:="<=" & WeekE
End Sub

Answer 1

请检查我们在此处所做的更改:

Sub Date_Filter()
   Dim WeekS As Date
   Dim WeekE As Date


   WeekS = DateSerial(2018, 2, 1)
   WeekE = DateSerial(2018, 2, 10)
   With Range("A1:P1")
        .AutoFilter
        .AutoFilter Field:=10, Criteria1:=">=" & WeekS, Operator:=xlAnd, Criteria2:="<=" & WeekE
    End With
End Sub

我们使用 DateSerial() 来避免美国和欧洲日期标准之间的任何混淆。