オートフィルターで一昨日の抽出マクロ

いつもお世話になっております（ぺこり
毎度初歩的な質問でお恥ずかしいですが、

エクセルのオートフィルターで一昨日を抽出したいのですがやりかたがわかりません；

Sub 一昨日の抽出()
'
' 一昨日の抽出 Macro
'

'
ActiveSheet.ListObjects("テーブル1").Range.AutoFilter Field:=2, Criteria1:= _
xlFilter(“d”, -2, Date), Operator:=xlFilterDynamic
End Sub

とかを試したりしています。

どうしたらいいでしょうか；；

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2017/04/11 14:43

こんにちは。

以下、Format 関数の　"yyyy/m/d" の部分の書式をシートと合わせればよいと思います。Operator:=xlFilterDynamic というのは何だった思い出せませんが、二つの条件がない場合で、この条件ならいらないと思います。

Sub Table_AutoFilter()
　With ActiveSheet
　　.ListObjects("テーブル1").Range.AutoFilter _
　　Field:=2, _
　　Criteria1:="=" & Format(Date - 3, "yyyy/m/d")
　End With
End Sub

この回答へのお礼

ありがとうございますーーm(_ _)m^^
無事一昨日の抽出が出来ました。
助かります！！

お礼日時：2017/04/11 15:30