エクセルのVBAで3か月以前の日付を以後、ずっと抽出したい

エクセルVBAのマクロで3か月前の日付を3か月以前の日付も表示するにはどうしたらいいですか？
確かオートフィルタの関数には1年前とか3年前とか期間限定の間の日付は表示されるのですが、例えば3年以上前の全期間の日付はどうやってやるのでしょうか？

作ったVBAはこれです。

Sub 三か月前から来てない()
Range("M2:M30").AutoFilter Field:=1, Criteria1:= _
">=" & Date - 90, Operator:=xlAnd, Criteria2:="<=" & Date
End Sub

Sub 解除()
Range("M2:M9").AutoFilter
End Sub

ボタンで抽出してボタンで解除する様になっています。

行動規範の内容に同意します

回答2件

VBA
1Sub Macro1()
2    ActiveSheet.Range("$A$11:$B$13").AutoFilter Field:=1, Criteria1:="<=" & DateAdd("m", -3, Date)
3End Sub

条件が一つしかなければ、
Criteria2は省略してしまえばいいです。
ちなみに90日前の日付と3か月前の日付は微妙に違います。

投稿2019/04/03 11:59

mattuwan

総合スコア2136

3年以上前の全期間の日付はどうやってやるのでしょうか？

3年以上前のチャックボックスにすべてチェック入れたら良いのでは？
わざわざVBAで行う意味はないと思うのですが...
ハッキリ言って「可能」ですが、私はあなたに答えを教える気はない、むしろ教えてはダメな気がするので、ヒントだけ教えておきます。すべての日付が書かれている列を比較して、対象外の行を非表示すればいいのです。

では、良きVBAライフをお楽しみ下さい。

投稿2019/04/03 05:03

stdio

総合スコア3307

ebifurai55

2019/04/03 06:19

マクロでボタンを押すと、抽出される分が書きたいんです。先方にも操作が解るように簡便化したいんです。 >教える気はない何か意図しない文章を書いたみたいで、ちょっとムッと来ました。たしかにプログラマだったらこの程度かけて当然かも知れませんが、仕事で使うので早急な回答ができればよかったです。自分で調べろというのは真っ当な事ですが、将来立派なプログラマになるという事で、訴求しません