みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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というように常に当月分のデーターを抽出したいのです。アドバイスをお願いします。

投稿日時 - 2009-10-26 15:05:30

QNo.5398034

困ってます

質問者が選んだベストアンサー

次のような式ではどうでしょう。
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:39:55

お礼

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

投稿日時 - 2009-10-26 17:50:19

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

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

投稿日時 - 2009-10-26 15:58:05

補足

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

投稿日時 - 2009-10-26 17:31:42

あなたにオススメの質問