VBAオートフィルタで日付の抽出

Question

実行すると、例えば基準年月の月末が30日で、基準年月の6か月後の月が31日だと抽出から漏れてしまいます。
ですが月末は月によって29日、30日、31日と変わってしまいます。
6ヶ月前に該当する月であれば全て抽出対象に含めるには、どうしたら良いでしょうか？
オートフィルタでは抽出は無理でしょうか？
サンプルではA2セルが2021年9月なので、抽出に2021年3月のデータを含めたいのですが2021年3月31日が抽出対象になりません。

Sub test()
    
    '基準年月値取得
    Dim KIJYUN As Date
    Dim y As Long, m As Long
    With Range("A2")　'A2セルにある日付を基準にする
    y = Year(.Value)
    m = Month(.Value)
    End With
    KIJYUN = DateSerial(y, m + 1, 1) - 1　'基準にした月の月末を求める
    
    
    'フィルタ
    Range("B1").AutoFilter Field:=2, Criteria1:=Array("第一工場", "第二工場"), Operator:=xlFilterValues
    Range("C1").AutoFilter Field:=10, Criteria1:=Array("りんご", "みかん"), Operator:=xlFilterValues
    Range("D1").AutoFilter Field:=12, Criteria1:="<=" & DateAdd("m", -6, KIJYUN)
    
end Sub
コード

Answer 1

こんな方法はどうでしょう。

WorksheetFunction.EoMonth(KIJYUN, -6)

Comments

[ssmcapelin]

抽出できました！教えてくれてありがとうございます。