vba - 月単位の Excel オートフィルター日付

Question

次のコードは、8 月の日付で日付の範囲をフィルター処理します

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

範囲を任意の月 (例: month(today())) でフィルター処理できるように、このコードを動的にするにはどうすればよいですか?

Answer 1

試してみてくださいCriteria2。ただし、これは少し不可解です。Pass Array(1, datestring)。1 はその日付の月全体をフィルター処理し、日付文字列は m/d/y 形式である必要があります。
(0 = 1 年全体、2 = 日など、ここで説明されているように)。

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)