AutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクト
オートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを取得するには、Range【ﾚﾝｼﾞ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】メソッドを実行して取得します。
また、オートフィルターが設定されているワークシートのオートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを取得するにはWorksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティを使用します。
AutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティ
ワークシートに設定されているオートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを取得するには、Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティを使用します。値の取得のみ可能です。
ワークシートにオートフィルターが設定されていない場合は、Noting【ﾅｯｼﾝｸﾞ】が返ります。
AutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティの書式と設定値の説明
オブジェクト.AutoFilter
【戻り値】AutoFilterオブジェクト
- オブジェクト（必須）
基本はオートフィルターが設定されているWorksheet【ﾜｰｸｼｰﾄ】オブジェクトを指定します。
AutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトの主なメソッド一覧
| メソッド | 内容 |
|---|---|
| ShowAllData 【ｼｮｰｵｰﾙﾃﾞｰﾀ】 | フィルターでの抽出を解除して すべてのデータを表示します。 |
AutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトの主なプロパティ一覧
| プロパティ | 内容 |
|---|---|
| FilterMode 【ﾌｨﾙﾀｰﾓｰﾄﾞ】 | フィルターでデータが 抽出されているかいないかを返します。 |
| Filters 【ﾌｨﾙﾀｰｽﾞ】 | フィルターの集まりを表す Filters【ﾌｨﾙﾀｰｽﾞ】コレクションを取得します。 |
| Range 【ﾚﾝｼﾞ】 | フィルターが設定されている セル範囲を取得します。 |
ShowAllData【ｼｮｰｵｰﾙﾃﾞｰﾀ】メソッド
オートフィルターでデータが抽出されているデータ範囲の抽出を解除して全データを表示するには、オートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトのShowAllData【ｼｮｰｵｰﾙﾃﾞｰﾀ】メソッドを使用します。
ShowAllData【ｼｮｰｵｰﾙﾃﾞｰﾀ】メソッドの書式と設定値の説明
オブジェクト.ShowAllData
- オブジェクト（必須）
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティ、またはRange【ﾚﾝｼﾞ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】メソッドで取得したオートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを指定します。
ワークシートの絞り込まれているデータを表示するコード例
オートフィルターでデータが絞り込まれていることが前提です。
Sub 全データ表示() ActiveSheet.AutoFilter.ShowAllData End Sub
FilterMode【ﾌｨﾙﾀｰﾓｰﾄﾞ】プロパティ
オートフィルターでデータが抽出されているかいないかを調べるには、AutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトのFilterMode【ﾌｨﾙﾀｰﾓｰﾄﾞ】プロパティを使用します。
データが抽出されているされていないをブール型の値(Boolean）で返します。
| 戻り値 | 内容 |
|---|---|
| True | 抽出されています。 |
| False | 抽出されていません。 |
FilterMode【ﾌｨﾙﾀｰﾓｰﾄﾞ】プロパティの書式と設定値の説明
オブジェクト.FilterMode
【戻り値】ブール型(Boolean)
- オブジェクト（必須）
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティ、またはRange【ﾚﾝｼﾞ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】メソッドで取得したオートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを指定します。
オートフィルターでデータが抽出されているかどうかを判定するコードと解説
Sub 判定()
If ActiveSheet.AutoFilterMode = True Then
If ActiveSheet.AutoFilter.FilterMode = True Then
MsgBox "データは抽出されています。"
Else
MsgBox "データは抽出されていません。"
End If
Else
MsgBox "オートフィルターが設定されていません。"
End If
End Sub
If【ｲﾌ】ステートメントを使用して条件分岐です。Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilterMode【ｵｰﾄﾌｨﾙﾀｰﾓｰﾄﾞ】プロパティを使用してAutoFilterMode【ｵｰﾄﾌｨﾙﾀｰﾓｰﾄﾞ】プロパティの値がTrueのときつまり、ワークシートにオートフィルターが設定されているときを
定義します。次の、データが抽出されているか判定するAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトのFilterMode【ﾌｨﾙﾀｰﾓｰﾄﾞ】プロパティはAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを表すオートフィルターがワークシートに設定されていないとエラーになるのでここでオートフィルターが設定されているか条件分岐をします。
3行目【If ActiveSheet.AutoFilter.FilterMode = True Then】
ワークシートにオートフィルターが設定されている場合に実行される処理です。If【ｲﾌ】ステートメントを使用して条件分岐します。Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティを使用してワークシートに設定されているオートフィルターを表す
AutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを取得して、AutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトの
フィルターで抽出されているかどうかを返すFilterMode【ﾌｨﾙﾀｰﾓｰﾄﾞ】プロパティの戻り値がTrueだったときつまりフィルターでデータが抽出されているときを定義します。
4行目【MsgBox “データは抽出されています。”】
上記の条件分岐で条件が成立した場合、つまり、フィルターでデータが抽出されている場合
MsgBox関数を使用してメッセージを表示します。
5行目～6行目【Else
MsgBox “データは抽出されていません。”】
Else【ｴﾙｽﾞ】キーワードを使用して、条件が成立しなかった場合つまり、フィルターでデータが抽出されていない場合MsgBox関数を使用してメッセージを表示します。
8行目～9行目【Else
MsgBox “オートフィルターが設定されていません。”】
最初の条件分岐、つまり、オートフィルターが設定されていない場合MsgBox関数を利用してメッセージを表示します。
Filters【ﾌｨﾙﾀｰｽﾞ】プロパティ
オートフィルター範囲でのすべてのフィルターを表すFilters【ﾌｨﾙﾀｰｽﾞ】コレクションを取得するにはAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトのFilters【ﾌｨﾙﾀｰｽﾞ】プロパティを使用します。
Filters【ﾌｨﾙﾀｰｽﾞ】プロパティの書式と設定値の説明
[]内は省略可能
オブジェクト.Filters( [Index] )
【戻り値】Filtersコレクション Indexを指定した場合はFilterオブジェクト
- オブジェクト（必須）
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティ、またはRange【ﾚﾝｼﾞ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】メソッドで取得したオートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを指定します。 - Index【ｲﾝﾃﾞｯｸｽ】（省略可）
単体のオートフィルターのフィルターを表すFilter【ﾌｨﾙﾀｰ】オブジェクトを取得するには、取得するフィルターの列を左から数えたインデックス番号で指定します。
Filter【ﾌｨﾙﾀｰ】オブジェクトの主なプロパティ一覧
| プロパティ | 内容 |
|---|---|
| Criteria1 【ｸﾗｲﾃﾘｱﾜﾝ】 | 指定したフィルターの 1つめの抽出条件の値を返します。 値の取得のみ可能です。 バリアント型(Variant) の値が返ります。 |
| Criteria2 【ｸﾗｲﾃﾘｱﾂｩ】 | 指定したフィルターの 2つめの抽出条件の値を返します。 値の取得のみ可能です。 バリアント型(Variant) の値が返ります。 |
| On 【ｵﾝ】 | フィルターで抽出されている場合はTrue 抽出されていない場合はFalseが返ります。 値の取得のみ可能です。 ブール型(Boolean)の値が返ります。 |
Range【ﾚﾝｼﾞ】プロパティ
オートフィルターが設定されているセル範囲を取得するには、AutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトのRange【ﾚﾝｼﾞ】プロパティを使用します。
Range【ﾚﾝｼﾞ】プロパティの書式と設定値(引数)の説明
[]内は省略可能
オブジェクト.Range
【戻り値】Rangeオブジェクト
- オブジェクト（必須）
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】プロパティ、またはRange【ﾚﾝｼﾞ】オブジェクトのAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】メソッドで取得したオートフィルターを表すAutoFilter【ｵｰﾄﾌｨﾙﾀｰ】オブジェクトを指定します。
オートフィルター設定範囲を取得するコード例
Sub フィルター範囲() If ActiveSheet.AutoFilterMode = True Then MsgBox ActiveSheet.AutoFilter.Range.Address End If End Sub
実行結果
以上で、オートフィルターを表すAutoFilterオブジェクトについての解説を終了します。
ありがとうございました。