Excel VBA Dynamic Date & Value Filters — 定数一覧と使用例を完全網羅

2025年8月2日

概要

Excel の AutoFilter には、日付・数値を相対条件で抽出できる “Dynamic Filter” が多数用意されています。本稿では 一切省略せずに すべての動的フィルター定数を掲載し、それぞれの概要と代表的なコード例を丁寧に解説いたします。

動的フィルター定数一覧（日付関連）

区分	定数名	抽出対象
当日基準	`xlFilterToday`	本日
	`xlFilterYesterday`	昨日
	`xlFilterTomorrow`	明日
週単位	`xlFilterThisWeek`	今週
	`xlFilterLastWeek`	先週
	`xlFilterNextWeek`	来週
月単位	`xlFilterThisMonth`	今月
	`xlFilterLastMonth`	先月
	`xlFilterNextMonth`	来月
四半期	`xlFilterThisQuarter`	今四半期
	`xlFilterLastQuarter`	前四半期
	`xlFilterNextQuarter`	次四半期
年単位	`xlFilterThisYear`	今年
	`xlFilterLastYear`	昨年
	`xlFilterNextYear`	来年
期間	`xlFilterYearToDate`	年初来（1 月 1 日〜今日）

四半期ごとの月指定

定数名	対応四半期
`xlFilterAllDatesInPeriodQuarter1`	第1四半期 (1–3 月)
`xlFilterAllDatesInPeriodQuarter2`	第2四半期 (4–6 月)
`xlFilterAllDatesInPeriodQuarter3`	第3四半期 (7–9 月)
`xlFilterAllDatesInPeriodQuarter4`	第4四半期 (10–12 月)

月ごとの指定（1 月〜12 月）

月	定数名	月	定数名
1	`xlFilterAllDatesInPeriodJanuary`	7	`xlFilterAllDatesInPeriodJuly`
2	`xlFilterAllDatesInPeriodFebruary`	8	`xlFilterAllDatesInPeriodAugust`
3	`xlFilterAllDatesInPeriodMarch`	9	`xlFilterAllDatesInPeriodSeptember`
4	`xlFilterAllDatesInPeriodApril`	10	`xlFilterAllDatesInPeriodOctober`
5	`xlFilterAllDatesInPeriodMay`	11	`xlFilterAllDatesInPeriodNovember`
6	`xlFilterAllDatesInPeriodJune`	12	`xlFilterAllDatesInPeriodDecember`

動的フィルター定数一覧（数値関連）

定数名	抽出対象
`xlFilterAboveAverage`	列平均より上
`xlFilterBelowAverage`	列平均より下

使用例：今週のデータを抽出

Sub ExtractThisWeek()
    Dim rng As Range
    Set rng = Worksheets("Data").Range("A1").CurrentRegion
    rng.AutoFilter Field:=1, _
                   Operator:=xlFilterDynamic, _
                   Criteria1:=xlFilterThisWeek
End Sub

使用例：第1四半期（1–3 月）のデータを抽出

Sub ExtractQuarter1()
    Dim tbl As Range
    Set tbl = Worksheets("Data").Range("A1").CurrentRegion
    tbl.AutoFilter Field:=1, _
                   Operator:=xlFilterDynamic, _
                   Criteria1:=xlFilterAllDatesInPeriodQuarter1
End Sub

使用例：平均以上の数値を抽出

Sub ExtractAboveAverage()
    Dim src As Range
    Set src = Worksheets("Data").Range("B1").CurrentRegion
    src.AutoFilter Field:=3, _
                   Operator:=xlFilterDynamic, _
                   Criteria1:=xlFilterAboveAverage
End Sub

よくある質問

質問	回答
日付列が文字列の場合は動作しますか。	文字列の日付は正しく判定されません。事前に `DateValue` などでシリアル値へ変換してください。
複数の動的条件を組み合わせられますか。	別列に対して追加で `AutoFilter` を設定すると AND 条件を構築できます。
テーブル（ListObject）でも利用可能ですか。	`ListObject.Range` を対象範囲に指定すれば同じ定数が利用できます。