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

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 回答日時： 2009/10/26 17:39

次のような式ではどうでしょう。

Sub データ抽出()
Selection.AutoFilter Field:=9, Criteria1:=">=" & DateSerial(Year(Date), Month(Date), 1), Operator:=xlAnd, _
Criteria2:="<=" & DateSerial(Year(Date), Month(Date) + 1, 0)
End Sub

この回答へのお礼

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

お礼日時：2009/10/26 17:50

No.1 回答者： Trick--o-- 回答日時： 2009/10/26 15:58

FirstDate = Format(Date, "yy/mm/1")

LastDate = DateValue(Year(Date) & "/" & Month(Date) + 1 & "/1") - 1

この回答への補足

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

補足日時：2009/10/26 17:31