第89回.オートフィルタ（AutoFilter）
オートフィルタはExcelのデータベースとしての非常に強力な機能を提供してくれています、
マクロVBAで、必要なデータだけに絞り込んで他のシートにコピーしたり、
不要なデータを一括で削除したりする場合は、とても高速に処理することができます。
ワークシートのAutoFilterModeプロパティ
AutoFilterオブジェクト
以下順に説明します。
Range.AutoFilterメソッド
Range.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown)
| Field | フィルターの対象となるフィールド番号を整数で指定します。 フィールド番号は、リストの左側から始まります。 つまり、最も左側にあるフィールドはフィールド番号 1 になります。 |
| Criteria1 | 抽出条件となる文字列 ("101"など) を指定します。 "="と指定すると、空白セルが抽出され、"<>" と指定すると空白以外のフィールドが抽出されます。 この引数を省略すると、抽出条件は All になります。 引数OperatorにxlTop10Itemsが指定されている場合は、引数 Criteria1に項目数を指定します (たとえば "10")。 |
| Operator |
フィルターの種類をXlAutoFilterOperatorクラスの定数のいずれかで指定します。 |
| Criteria2 | 2 番目の抽出条件となる文字列を指定します。 引数 Criteria1および引数 Operatorと組み合わせて使い、複合抽出条件を指定します。 |
| VisibleDropDown | Trueを指定すると、フィルターのフィールドにあるオートフィルターのドロップダウン矢印を表示します。 Falseを指定すると、フィルターのフィールドにオートフィルターのドロップダウン矢印を非表示にします。 既定値は True です。 |
Operatorに指定するXlAutoFilterOperatorクラスの定数
| xlAnd | 抽出条件 1 と抽出条件 2 の論理演算子 AND |
| xlBottom10Items | 表示される最低値項目 (抽出条件 1 で指定される項目数) |
| xlBottom10Percent | 表示される最低値項目 (抽出条件 1 で指定される割合) |
| xlFilterCellColor | セルの色 |
| xlFilterDynamic | 動的フィルター |
| xlFilterFontColor | フォントの色 |
| xlFilterIcon | フィルター アイコン |
| xlFilterValues | フィルターの値 |
| xlOr | 抽出条件 1 または抽出条件 2 の論理演算子 OR |
| xlTop10Items | 表示される最高値項目 (抽出条件 1 で指定される項目数) |
| xlTop10Percent | 表示される最高値項目 (抽出条件 1 で指定される割合) |
既に、オートフィルターのドロップダウン矢印を表示されている場合は、これを解除します。
Range("A1").AutoFilter Field:=1, Criteria1:="1",
Operator:=xlFilterValues
１列(A列)を"1"で絞り込みます。
AutoFilterModeプロパティ
このプロティに値を設定することで、オートフィルターの状態を取得・設定できます。
True : シートにオートフィルターの下向き矢印を表示します。
False : シートにオートフィルターの下向き矢印を消します。
AutoFilterオブジェクト
ワークシート.AutoFilter
このAutoFilter自体はプロパティですが、このプロパティを経由してAutoFilterオブジェクトにアクセスできます。
| ApplyFilter | 指定された Autofilter オブジェクトを適用します。 |
| ShowAllData | AutoFilter オブジェクトから返されるデータをすべて表示します。 |
| Application | 対象となるオブジェクトが指定されない場合は、Excel アプリケーション (Application オブジェクト) を返します。 対象となるオブジェクトが指定された場合は、指定されたオブジェクトを作成した Application オブジェクトを返します。 OLE オートメーションを使っていて、オブジェクトのアプリケーションにアクセスするときなどに、このプロパティを使います。 値の取得のみ可能です。 |
| Creator | 現在のオブジェクトが作成されたアプリケーションを示す 32 ビットの整数を取得します。 値の取得のみ可能です。長整数型 (Long) の値を使用します。 |
| FilterMode | ワークシートがオートフィルター フィルター モードの場合、True を返します。値の取得のみ可能です。 ブール型 (Boolean) の値を使用します。 |
| Filters | オートフィルター範囲でのすべてのフィルターを表す Filters コレクションを返します。 値の取得のみ可能です。 |
| Parent | 指定されたオブジェクトの親オブジェクトを取得します。 値の取得のみ可能です。 |
| Range | 指定された AutoFilter の適用先の範囲を表す Range オブジェクトを返します。 |
| Sort | AutoFilter コレクションの並べ替え列と並べ替え順序を取得します。 |
オートフィルタのVBA使用例
With Sheets("Sheet1")
'Sheet1のA1のアクティブ セル領域の１列目を"1"で絞り込み
.Range("A1").AutoFilter Field:=1,
Criteria1:="1"
'Sheet2へコピー
.Range("A1").CurrentRegion.Copy
Sheets("Sheet2").Range("A1").PasteSpecial
Paste:=xlPasteValues
'オートフィルタを解除
.AutoFilterMode = False
End
With
Application.CutCopyMode = False
Sheet2へコピーしています。
.AutoFilterMode = Falseは、.Range("A1").AutoFilterでも同じです。
Dim i As Long, Title As String
With ActiveSheet
'オートフィルタが適用されているか判定
If .AutoFilterMode
Then
'オートフィルタの列数
For i = 1 To .AutoFilter.Filters.Count
'絞り込みされているか判定
If
.AutoFilter.Filters(i).On
Then
'全てを表示
.AutoFilter.ShowAllData
Exit For
End
If
Next i
End If
End With
日付のフィルタ
以下を参考にして下さい。
「マクロの記録で覚えるVBA」第18回.オートフィルタ
オートフィルタまとめ
以下を参考に、効率よく理解しやすい方法を考えましょう。
オートフィルタ（AutoFilter）の使い方まとめ
オートフィルタの詳しい情報や設定方法を知りたい場合には参考になるはずです。
オートフィルタを退避回復するVBAクラス
同じテーマ「マクロVBA入門」の記事
第86回.総合練習問題10
第87回.WorksheetFunction（ワークシート関数を使う）
第88回.並べ替え（Sort）
第89回.オートフィルタ（AutoFilter）
第90回.フィルタオプションの設定（AdvancedFilter）
第91回.条件付き書式（FormatCondition）
第92回.名前定義（Names）
第93回.ピボットテーブル（PivotTable）
第94回.コメント（Comment）
第95回.ハイパーリンク（Hyperlink）
第96回.グラフ（Chart）
新着記事NEW ・・・新着記事一覧を見る
VBAコードの全プロシージャー・プロパィ一覧を取得｜VBAサンプル集（10月12日）
VBAでエラー行番号を取得できるErl関数｜VBA技術解説（10月12日）
手動計算時の注意点と再計算方法｜ExcelマクロVBA技術解説（10月9日）
引数の数を可変にできるパラメーター配列（ParamArray）｜VBA入門（10月7日）
VBEの使い方：デバッグ｜ExcelマクロVBA入門（10月6日）
VBAにおける配列やコレクションの起点について｜VBA技術解説（10月5日）
VBEの使い方：オブジェクト ブラウザー｜VBA入門（10月5日）
VBEの使い方：ウォッチ ウィンドウ｜VBA入門（10月4日）
VBEの使い方：ローカル ウィンドウ｜VBA入門（10月3日）
VBEの使い方：イミディエイト ウィンドウ｜VBA入門（10月2日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数とデータ型（Dim）｜ExcelマクロVBA入門
6.繰り返し処理（For Next)｜ExcelマクロVBA入門
7.マクロって何？VBAって何？｜ExcelマクロVBA入門
8.ひらがな⇔カタカナの変換｜エクセル基本操作
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.セルに文字を入れるとは（Range,Value）｜VBA入門
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。