【VBA】オートフィルタを設定し、日付で絞り込む

前提

シート「sample」の以下の表に対して、
　・オートフィルタの設定
　・日付で絞り込み
をします。

日付を「昨年」で絞り込み

ここでは例として、
　・オートフィルタの設定と表の2列目「日付」を
　・「昨年」で絞り込み
をします。

Sub sample()
    'オートフィルタの設定と表の2列目「日付」を「昨年」で絞り込み
    Worksheets("sample").Range("B2").AutoFilter field:=2, _
                                                Criteria1:=xlFilterLastYear, _
                                                Operator:=xlFilterDynamic
End Sub

上記を実行すると、「昨年」で絞り込まれます。

日付を「今年」で絞り込み

ここでは例として、
　・オートフィルタの設定と表の2列目「日付」を
　・「今年」で絞り込み
をします。

Sub sample()
    'オートフィルタの設定と表の2列目「日付」を「今年」で絞り込み
    Worksheets("sample").Range("B2").AutoFilter field:=2, _
                                                Criteria1:=xlFilterThisYear, _
                                                Operator:=xlFilterDynamic
End Sub

上記を実行すると、「今年」で絞り込まれます。

日付を「今月」で絞り込み

ここでは例として、
　・オートフィルタの設定と表の2列目「日付」を
　・「今月」で絞り込み
をします。

Sub sample()
    'オートフィルタの設定と表の2列目「日付」を「今月」で絞り込み
    Worksheets("sample").Range("B2").AutoFilter field:=2, _
                                                Criteria1:=xlFilterThisMonth, _
                                                Operator:=xlFilterDynamic
End Sub

上記を実行すると、「今月」で絞り込まれます。

絞り込み条件に指定できる期間について

上記で紹介した昨年/今年/今月を含め、絞り込み条件に指定できる期間(定数)は以下です。
計34種類あります。

定数	値	意味
xlFilterToday	1	本日
xlFilterYesterday	2	昨日
xlFilterTomorrow	3	明日
xlFilterThisWeek	4	今週
xlFilterLastWeek	5	先週
xlFilterNextWeek	6	来週
xlFilterThisMonth	7	今月
xlFilterLastMonth	8	先月
xlFilterNextMonth	9	来月
xlFilterThisQuarter	10	今四半期
xlFilterLastQuarter	11	前四半期
xlFilterNextQuarter	12	来四半期
xlFilterThisYear	13	今年
xlFilterLastYear	14	昨年
xlFilterNextYear	15	来年
xlFilterYearToDate	16	今年の初めから本日まで
xlFilterAllDatesInPeriodQuarter1	17	第1四半期
xlFilterAllDatesInPeriodQuarter2	18	第2四半期
xlFilterAllDatesInPeriodQuarter3	19	第3四半期
xlFilterAllDatesInPeriodQuarter4	20	第4四半期
xlFilterAllDatesInPeriodJanuary	21	1月
xlFilterAllDatesInPeriodFebruray	22	2月
xlFilterAllDatesInPeriodMarch	23	3月
xlFilterAllDatesInPeriodApril	24	4月
xlFilterAllDatesInPeriodMay	25	5月
xlFilterAllDatesInPeriodJune	26	6月
xlFilterAllDatesInPeriodJuly	27	7月
xlFilterAllDatesInPeriodAugust	28	8月
xlFilterAllDatesInPeriodSeptember	29	9月
xlFilterAllDatesInPeriodOctober	30	10月
xlFilterAllDatesInPeriodNovember	31	11月
xlFilterAllDatesInPeriodDecember	32	12月
xlFilterAboveAverage	33	平均以上の値
xlFilterBelowAverage	34	平均未満の値

※上記の「意味」欄は、公式サイトを日本語へ翻訳したものです。