ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

オートフィルタ(日付フィルタ)AutoFilter メソッド

   

日付フィルタを使用してレコードを抽出する

Excel 2007 から「日付フィルタ」という機能が追加されました。これをマクロで行うには、AutoFilter メソッドで、引数 operator に、xlFilterDynamic を指定し、引数 criteria1 に、XlDynamicFilterCriteria 列挙型 の定数を指定します(Excel 2007 以降のバージョン)。


【書式】

object.AutoFilter ( [ field, criteria1, operator ] )


引数・戻り値

  • object  ・・・  対象となる Range オブジェクトを指定します。
  • field  ・・・  フィルターの対象となるフィールド番号を整数で指定します。対象となる範囲の最も左側の列(フィールド)が、フィールド番号 1 になります。
    複数の列(フィールド)をまとめて扱いたい場合は、配列を指定することも可能です。
     (例)field := Array(1,3,6)
  • criteria1  ・・・  XlDynamicFilterCriteria 列挙型 の定数または、その値を指定します。
    定数 説明
    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 平均未満の値

  • operator  ・・・  xlFilterDynamic を指定します。

AutoFilter メソッド の引数の詳細については、オートフィルタ(AutoFilter メソッド) を参照してください。



日付フィルタを使用してレコードを抽出する例

サンプルVBAソース 1


実行結果

サンプルVBAソース 実行前

AutoFilter メソッド 使用例10_1

実行後

AutoFilter メソッド 使用例 10_2



サンプルVBAソース 2


実行結果

サンプルVBAソース 実行前

AutoFilter メソッド 使用例 10_3

実行後

AutoFilter メソッド 使用例 10_4


 - セルの操作 , , , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

  関連記事

使用中のセル範囲を取得(CurrentRegion プロパティ)

CurrentRegion プロパティ CurrentRegion プロパティは …

セルの値を置換(Replace メソッド)

Replace メソッド 任意のセル範囲内から特定の値を一括して置換します。Fi …

罫線の設定(Borders プロパティ)

罫線の設定 罫線を一括(上下左右すべて)で設定するには、Borders プロパテ …

StandardWidth プロパティ・StandardHeight プロパティ 例01
セル幅・高さの既定値(StandardHeight プロパティ・StandardWidth プロパティ)

StandardHeight プロパティ・StandardWidth プロパティ …

対象のセルが直接参照しているセル全てを取得(DirectPrecedents プロパティ)

DirectPrecedents プロパティ DirectPrecedents …

VBA で、ワークシート関数を使用(WorksheetFunction プロパティ)

VBA で、ワークシと関数を使用 VBA から、ワークシート関数を呼び出す場合、 …

セルを挿入する(Insert メソッド)

Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …

セルが結合セルの一部である場合、その結合セルの範囲を取得(MergeArea プロパティ)

MergeArea プロパティ MergeArea プロパティは、指定したセルが …

引数に指定したセル範囲の共通のセル範囲を取得(Intersect メソッド)

Intersect メソッド Intersect メソッドは、引数に指定したセル …

Height プロパティ Width プロパティ 例
セルの高さ・幅を取得(Height プロパティ・Width プロパティ)

Height プロパティ・Width プロパティ Height プロパティは、指 …