エクセル 当月分のデータを抽出したい

質問

Sub データ抽出()
Selection.AutoFilter Field:=9, Criteria1:=">=2009/9/1", Operator:=xlAnd, _
Criteria2:="<=2009/9/30"
End Sub

上記はI列の2009年9/1～9/30のデータをオートフィルタで抽出するという単純なマクロの自動記録ですが、例えば今日上記のマクロを実行すると2009年10/1～10/31、来月上記のマクロを実行すると2009年11/1～11/30、来年の1月上記のマクロを実行すると2010年1/1～1/31というように常に当月分のデーターを抽出したいのです。アドバイスをお願いします。

回答No.2

KURUMITO · ベストアンサー

次のような式ではどうでしょう。
Sub データ抽出()
Selection.AutoFilter Field:=9, Criteria1:=">=" & DateSerial(Year(Date), Month(Date), 1), Operator:=xlAnd, _
Criteria2:="<=" & DateSerial(Year(Date), Month(Date) + 1, 0)
End Sub

お礼

出来ました。ありがとうごさいます。

回答No.1

Trick--o--

FirstDate = Format(Date, "yy/mm/1")
LastDate = DateValue(Year(Date) & "/" & Month(Date) + 1 & "/1") - 1

補足

素人なんですいませんが、上記のマクロの自動記録にこのコードをどう組み入れたらいいのわかりません。