オートフィルター（AutoFilter）

最終更新日：2013-05-11

オートフィルター（AutoFilter）

エクセルでは、定番機能のフィルターです。

「Sheet1」のA列でフィルターし、「Sheet2」へコピーします。





Sub sample()
　　Dim FilterRange As Range
　　With 
Worksheets("Sheet1")
　　　　Set FilterRange = .Range("A1").CurrentRegion

　　End With
　　FilterRange.AutoFilter Field:=1, Criteria1:="○×△"
　　With 
Worksheets("Sheet2")
　　　　.UsedRange.ClearContents
　　　　FilterRange.SpecialCells(xlCellTypeVisible).Copy 
.Range("A1")
　　End With
End Sub

ごく基本的なフィルターです。

フィルターのセル範囲指定は、いろいろな指定が可能です。

「連続セル範囲の選択

・End(xlToRight).End(xlDown) ・CurrentRegion.Offset(1, 0) ・CurrentRegion.Offset(1, 0).Resize ・CurrentRegion.Item + CurrentRegion.Count ・End(xlUp).Row + End(xlToLeft) ・Rowsで行全体を対象に・UsedRange + UsedRange.Count ・SpecialCells(xlLastCell) ・Intersect + CurrentRegion.Offset(1, 0) ・連続セル範囲の選択のまとめ

」も参考にして下さい。

SpecialCells(xlCellTypeVisible)

この指定を省略しても結果は同じですが、フィルターされた結果をコピーしている事を明示しています。

既に、フィルターされている場合に、一度フィルターを解除する場合は、





Sub sample2()

      　　If ActiveSheet.AutoFilterMode Then
　　　　ActiveSheet.AutoFilter
　　End If
　　'通常のフィルター処理を行う　　

End 
Sub

フィルターが設定されていて、既に絞り込み等がされている可能性がある場合は、

上のように、一度フィルターを解除してから、再度フィルターを設定して下さい。

同じテーマ「マクロVBAサンプル集」の記事

ブックを開かずにセル値を取得（ExecuteExcel4Macro,Excel.Application）

・ExecuteExcel4Macroで１個のセル値を取得・Excel.Applicationで１個のセル値を取得・ExecuteExcel4Macroで100個のセル値を取得・Excel.Applicationで100個のセル値を取得・Excel.Applicationで100個のセル値を取得2 ・ブックを開かずにセル値を取得

罫線を簡単に引く（Borders,BorderAround）

エクセルでは、罫線を引く事が多いです。この罫線は、以外に処理時間もかかりますし、やり方によっては、VBAの行数も多くなります。とにかく、簡単に罫線を引く方法です。以下の表を作成する場合です。罫線を引く順番等、いろいろありますが、とにかく短いコードにしてみます。

マクロVBAの開始時と終了時に指定しておくべきApplicationのプロパティ

・マクロVBA開始時・マクロVBA終了時・Applicationのプロパティ解説・マクロが途中で終了した場合

オートフィルター（AutoFilter）
日付のオートフィルタ（AutoFilter）

とても便利なオートフィルターですが、日付となると、結構大変です。以下の表で説明します。普通は、こんなように指定します。Operator:=xlFilterValues は2007以降で追加された機能です。

印刷ダイアログを使用する（xlDialogPrint）

入力しやすいように、セルに色をつけている事が多いと思いますが、印刷時には、ちょっとじゃまな場合もあります。インク（トナー）も無駄ですしね。印刷時に色指定を解除して印刷する方法になります。Application.Dialogs(xlDialogPrint).Show 印刷タイアログを表示します。

名前定義の一覧と削除（Name）

・名前定義の一覧を取得し、シートに書き出すマクロVBA ・非表示の名前定義を表示・サイト内の関連ページ

シートを名前順に並べ替える

シートを名前順に並べ替える方法になります。配列を使っていますが、配列が難しい場合は、シートに書き出して処理すれば良いでしょう、並べ替えもシート上なら簡単です。上記では、シート名を文字列として処理しています。

数式内の不要なシート名を削除する（HasFormula）

複数のシートにまたがる数式を入力していると、自身のシート名!が数式についてしまいます、この自身のシート名!は不要であり、式を見づらくしてしまいます、この不要なシート名を、マクロVBAで一括削除します。ブックの全シート、全セルを対象として、数式の中から、自身のシート名!を削除するマクロVBAになります。

数式の参照しているセルを取得する

セルに入っている数式の参照しているセルを取得するには、RangeのPrecedentsプロパティを使いますが、このプロパティは他のシートの参照には対応していません。また、セルの参照先を取得するプロパティには、Dependentsプロパティがあります。

増殖した条件付き書式を整理統合する

・条件付き書式の増殖に関する、Microsoft サポート・増殖した条件付き書式の実例と対応・簡単なVBAでの対応・VBAで条件付き書式を整理統合した結果・今回のVBAコードの発想について・Application.ConvertFormulaメソッド・増殖した条件付き書式を整理統合するVBA ・条件付き書式で設定できる書式・増殖した条件付き書式を整理統合するVBAの使い方・増殖した条件付き書式を整理統合の最後

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.変数宣言のDimとデータ型｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.マクロとは？VBAとは？VBAでできること｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
10.条件分岐（IF）｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
オートフィルター（AutoFilter）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBAサンプル集
オートフィルター（AutoFilter）