オートフィルターをVBAで操作

質問

おはようございます。

度々申し訳ございません。
どうしても
オートフィルターをVBAで操作させる方法が
見つからなかったため質問します。

やりたいこと
A列セルにランダムで年月が入力されている状況にて
①今年の4月～9月までをオートフィルターで
　絞り込み

②今年の10月～来年の3月までをオートフィルターで
　絞り込み

これをやりたいのですが
私がやってみても一月のみでしか選択できず
複数の月の選択のコードが書けませんでした。

すいませんが
コードを記載していただけないでしょうか。

宜しくお願い致します。

回答No.4

HohoPapa

>A列セルにランダムで年月が入力されている状況
これは、Ａ列の2行目から下方向に年月が埋まっているものと思いますが
それは、日付形式（日付シリアル値）で年月日が埋まり、
表示形式を年月としているんでしょうか？
それとも、文字列で例えば"令和3年4月"と埋まっているんでしょうか？

また、期待の結果にならないというVBAのコードを掲示してみてください。

回答No.3

imogasi

http://officetanaka.net/excel/vba/tips/tips151.htm
これあたりをじっくり読んで、考え直してはどう。
Googleで「VBA　日付　Aitofilter」で照会すれば、最初に出る記事です。
日付け特有の指定のコツの会得が必要ではないか。
こういうの（照会）を、質問の前に、まずやってますか？
小生には、VBAで、何かにつけ田中先生の記事は、参考になる。

回答No.2

watabe007

参考に
Dim sDate As String
Dim eDate As String

ActiveSheet.AutoFilterMode = False
sDate = InputBox("開始日を入力してください。 (yyyy/m/d 形式で入力)" & vbCrLf & "例) 2021/4//1")
eDate = InputBox("終了日を入力してください。 (yyyy/m/d 形式で入力)" & vbCrLf & "例) 2021/9/30")
ActiveSheet.Range("A1").AutoFilter field:=1, Criteria1:=">=" & sDate, Operator:=xlAnd, Criteria2:="<=" & eDate

回答No.1

sknbsknb2

操作をマクロに記録して、どういうコードになっているか確認してみたらどうでしょう。