Excel VBA 質問スレ Part80

254 ：デフォルトの名無しさん：2023/12/10(日) 09:52:24.49 ID:b059r/QR.net

フィルターの設定について質問させてください。各年の1月のデータを取得したいのですがうまくいきません。
手動だと、［日付フィルタ］から［期間内の全日付で1月を選んでできます。同じようにしたいのですがどうすればよいでしょうか？

ws.Rows("1:1").AutoFilter

' C列日付のフィルター条件を設定
Dim oldestYear As Integer
oldestYear = 2021 ' 最も古い年を指定

' 1月のデータを含むフィルター条件を設定
Dim filterCriteria As String
filterCriteria = ">=01/01/" & oldestYear & " AND <02/01/" & (oldestYear + 1)

' C列で条件に基づいてフィルタリング
ws.Columns("C:C").AutoFilter Field:=3, Criteria1:=filterCriteria