vba - Excel 自动筛选月份期间的日期

Question

以下代码按 8 月的日期过滤一系列日期

ActiveSheet.Range("$A$29:$CG$3582").AutoFilter field:=18, Criteria1:= _
    xlFilterAllDatesInPeriodAugust, Operator:=xlFilterDynamic

如何使此代码动态化，以便我可以按任何月份过滤范围(例如月份(今天()))？

Answer 1

试试 Criteria2 ，虽然这有点神秘。通Array(1, datestring) ，其中 1 将过滤该日期的整个月份，并且日期字符串必须采用 m/d/y 格式。
(0 = 全年，2 = 天，还有更多，如 somewhere here 所讨论的)。

Dim s As String
s = Format(Now, "MM""/""dd""/""yyyy")

ActiveSheet.Range("$A$29:$CG$3582").AutoFilter _
    Field:=18, Operator:=xlFilterValues, _
    Criteria2:=Array(1, s)