【Excel VBA】オートフィルターの条件(複数)設定の方法

こんにちは。IMMRです。ここでは、オートフィルターの複数条件の設定について説明をします。

「オートフィルター」に関しては、以前にも説明しています。　※ただし、ここで説明しているのは、条件が１つの場合です。

オートフィルターの設定・絞り込み・解除

また、これから説明するのは上記のリンク先（オートフィルターの設定・絞り込み・削除）とは、異なる記載方法です。

１．オートフィルターの設定方法

オートフィルターの複数条件の設定について説明をしていきます。

記載方法は、下記２つがありますので、双方を説明します。

・条件を直接記載して、オートフィルターの設定（直接記載）

・条件を配列に格納して、配列よりオートフィルターの設定（配列記載）

まずは、（直接記載）です。

オートフィルターの設定（直接記載）

直接記載の設定は下記のように何列目のセルが、どんな条件なのかを記載していきます。

オートフィルターの宣言および条件

セル.AutoFilter,Field,Criteria1,Operator,Criteria2

詳細は以下の通りです。

Field：列の位置

Criteria1：１つ目の条件

Operator：ANDやOR等の方法

Criteria2：２つ目の条件

この記載によって、条件によるオートフィルターをかけることが出来ますが

オートフィルターの設定では、条件を３つ、４つ必要ということもでてくると思います。

条件を追加したい場合は

AutoFilter,Field,Criteria1,Operator,Criteria2,Operator,Criteria3,・・・

と追加して記載するのではなく、下記のように配列を使用して記載していきます。

オートフィルターの設定（配列記載）

ここでは配列を使用して、オートフィルターを設定していきます。

順序としては

配列を作成して、オートフィルターの設定条件を追加してから

条件を追加した配列よりオートフィルターを設定するといった感じです。

配列の宣言および条件の設定

Dim Target(3) As String

Target(0) = 条件1
Target(1) = 条件2
Target(2) = 条件3

オートフィルターの宣言および配列

セル.AutoFilter,Field,Target, xlFilterValues

Field：列の位置

Target：オートフィルターを設定する時に使用する配列名

xlFilterValues：オートフィルターを設定する時に必要

この記載方法で配列に入れた複数の条件でオートフィルターを設定することができます。

では、サンプルプログラムを見て、使用例を見ていきたいと思います。

２．使用例（サンプルプログラム）

入力データは下記の表を使用してオートフィルターの絞り込みを行っていきます。

図１　セミナー参加者表

オートフィルターの設定（直接記載）のサンプルプログラム

図１　セミナー参加者表の

B列（左から２列目）の参加者で、”鈴木”、”佐藤”　どちらかの場合でオートフィルターで絞り込みたい場合は以下のように記載します。

サンプルプログラム①

Sub test1()

    Range("A3").AutoFilter 2, "鈴木", xlOr, "佐藤"

End Sub

B列（左から２列目）なのでFieldの値は２となります

”鈴木”か”佐藤”かという判別を行うのでxlOrが使われます

オートフィルターの設定（配列記載）のサンプルプログラム

図１　セミナー参加者表の

B列（左から２列目）の参加者で、”鈴木”、”佐藤”、”伊藤”　いずれかをオートフィルターで絞り込みたい場合のサンプルコードです。

サンプルプログラム②

Sub test2()

    Dim Target(3) As String

    Target(0) = "鈴木"
    Target(1) = "佐藤"
    Target(2) = "伊藤"

    Range("A3").AutoFilter 2, Target, xlFilterValues

End Sub

B列（左から２列目）なのでFieldの値は２

Targetという名の配列を作成して、

その中に条件（”鈴木”、”佐藤”、”伊藤”）部分を入れていきます。

オートフィルターの設定（直接記載）のサンプルプログラム　※おまけ

図１　セミナー参加者表の

C列（左から３列目）のテスト点数で、値が７０以上　８０より小さい値をオートフィルターで絞り込みたい場合のサンプルコードです。

今回は値に一致するかではなく、数値による以上未満の条件判定を行います。

サンプルプログラム③

Sub test3()

    Range("A3").AutoFilter 3, ">=70", xlAnd, "<80"

End Sub

※B列（左から３列目）なのでFieldの値は3です。

　条件式を記載する場合は、＞＝７０ではなく”＞＝７０”と””で囲んで設定します。

３．使用例（サンプルプログラムの実行）

上記にあげた３つのサンプルプログラムを実行して、いきます。

サンプルプログラム①　test1（参加者で、”鈴木”、”佐藤”を絞り込み）の実行

図２　test1_実行前

ここでは、対象を見やすくするために、事前に参加者が「鈴木」「佐藤」の行には塗りつぶしをおこなっています。

↓

↓実行します。

↓

図３　test1_実行後

予定どおり、参加者が「鈴木」「佐藤」で絞り込みが出来ています。

サンプルプログラム②　test2（参加者で、”鈴木”、”佐藤”、”伊藤”　を絞り込み）の実行

図４　test2_実行前

ここでは、対象を見やすくするために、事前に参加者が「鈴木」「佐藤」「伊藤」の行には塗りつぶしをおこなっています。

↓

↓実行します。

↓

図５　test2_実行後

予定どおり、参加者が「鈴木」「佐藤」「伊藤」で絞り込みが出来ています。

サンプルプログラム③　test3（テスト点数で、値が７０以上　８０より小さい値を絞り込み）の実行

図６　test３_実行前

ここでは、対象を見やすくするために、事前に点数が７０以上、８０より小さいの値の行には塗りつぶしをおこなっています。

↓

↓実行します。

↓

図７　test３_実行後

予定どおり、点数が７０以上、８０より小さいの値で絞り込みが出来ています。

以上により、３つのサンプルプログラムを実行して、正しく出力できることを確認しました。