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

VBAから
 ・オートフィルタの設定
 ・日付で絞り込み
をする方法を記載します!

PR

前提

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

実行前のシート
PR

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

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

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

「Criteria1」に「xlFilterLastYear」を指定する。
「Operator」に「xlFilterDynamic」を指定する。


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

昨年(2020年)で絞り込まれた
PR

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

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

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

「Criteria1」に「xlFilterThisYear」を指定する。
「Operator」に「xlFilterDynamic」を指定する。


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

今年(2021年)で絞り込まれた
PR

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

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

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

「Criteria1」に「xlFilterThisMonth」を指定する。
「Operator」に「xlFilterDynamic」を指定する。


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

今月(2021年2月)で絞り込まれた
PR

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

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

定数 値 意味
xlFilterToday1本日
xlFilterYesterday2昨日
xlFilterTomorrow3明日
xlFilterThisWeek4今週
xlFilterLastWeek5先週
xlFilterNextWeek6来週
xlFilterThisMonth7今月
xlFilterLastMonth8先月
xlFilterNextMonth9来月
xlFilterThisQuarter10今四半期
xlFilterLastQuarter11前四半期
xlFilterNextQuarter12来四半期
xlFilterThisYear13今年
xlFilterLastYear14昨年
xlFilterNextYear15来年
xlFilterYearToDate16今年の初めから本日まで
xlFilterAllDatesInPeriodQuarter117第1四半期
xlFilterAllDatesInPeriodQuarter218第2四半期
xlFilterAllDatesInPeriodQuarter319第3四半期
xlFilterAllDatesInPeriodQuarter420第4四半期
xlFilterAllDatesInPeriodJanuary211月
xlFilterAllDatesInPeriodFebruray222月
xlFilterAllDatesInPeriodMarch233月
xlFilterAllDatesInPeriodApril244月
xlFilterAllDatesInPeriodMay255月
xlFilterAllDatesInPeriodJune266月
xlFilterAllDatesInPeriodJuly277月
xlFilterAllDatesInPeriodAugust288月
xlFilterAllDatesInPeriodSeptember299月
xlFilterAllDatesInPeriodOctober3010月
xlFilterAllDatesInPeriodNovember3111月
xlFilterAllDatesInPeriodDecember3212月
xlFilterAboveAverage33平均以上の値
xlFilterBelowAverage34平均未満の値
絞り込み条件に指定できる期間(定数)の一覧


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

タイトルとURLをコピーしました