Excel VBA オートフィルター 期間抽出

こんにちは。
抽出条件を「～作業日＋2日」としてフィルターをかけたいのですが、わからなくて困っています。
A5セルからデータが入力されている表を使用していて、
E列に入力されている日付(yyyy/mm/dd形式)を
『1900/1/1~"作業日＋2日"』のみで絞りたいです。
私が苦戦しつつ書いたコードが以下です。

Sub フィルター()

'E列 作業日＋2日より前まですべて取得

Dim Dt As Date
Dt = DateAdd("d", 2, Date)

Range("A5").AutoFilter Field:=5, Criteria1:="<=Dt"

End Sub

詳しい方、教えていただけると幸いです。
何卒よろしくお願い申し上げます。

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2020/02/11 15:14

こんな感じの事をやりたいのでしょうか？

Sub フィルター()

'E列 作業日＋2日より前まですべて取得

Dim Dt As Date
　Dt = DateAdd("d", 2, Date)
　Cells.AutoFilter Field:=5, Criteria1:="<=" & Format(Dt, "yyyy/m/d")

End Sub

この回答へのお礼

GooUserラック様
コード教えていただき誠にありがとうございます！！！
書いていただいたものでやりたいこと解決しました。
感謝してます。

お礼日時：2020/02/11 15:52