excel - 如何正确过滤 VBA 中的日期？

Question

我目前正在致力于自动化从数据中过滤特定日期的排序过程。

我只想要 2018 年 8 月以下的数据，但仍有一些日期不在 8 月以下。

ActiveSheet.ListObjects("SCRATCH").Range.AutoFilter Field:=10, Operator:= _
    xlFilterValues, Criteria2:=Array(1, "8/31/2018")

Answer 1

如果表中的日期存储为日期值(而不是文本)，则以下工作。

显示特定日期之前的所有日期，例如。 G。 2018 年 8 月 1 日:

ActiveSheet.ListObjects("SCRATCH").Range.AutoFilter _
    Field:=10, _
    Criteria1:="<" & CDbl(CDate("8/1/2018"))

显示两个日期之间的时间范围内的所有日期，例如。 G。 2018 年 8 月内:

ActiveSheet.ListObjects("SCRATCH").Range.AutoFilter _
    Field:=10, _
    Criteria1:=">=" & CDbl(CDate("8/1/2018")), _
    Operator:=xlAnd, 
    Criteria2:="<=" & CDbl(CDate("8/31/2018"))