ExcelマクロVBAサンプル集 | オートフィルター(AutoFilter) | ExcelマクロVBAの実用サンプル、エクセルVBA集と解説



最終更新日: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


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


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


連続セル範囲の選択 」も参考にして下さい。


SpecialCells(xlCellTypeVisible)

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



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


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

End Sub


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


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





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

ブックを開かずにセル値を取得(ExecuteExcel4Macro,Excel.Application)
罫線を簡単に引く(Borders,BorderAround)
マクロの開始・終了(Applicationのプロパティ)
オートフィルター(AutoFilter)
日付のオートフィルタ(AutoFilter)
印刷ダイアログを使用する(xlDialogPrint)
名前定義の一覧(Name)
シートを名前順に並べ替える
数式内の不要なシート名を削除する(HasFormula)
数式の参照しているセルを取得する
増殖した条件付き書式を整理統合する

新着記事 ・・・新着記事一覧を見る

数値範囲で表検索するVLOOKUP近似一致|エクセル関数超技(10月5日)
エクセルVBAでのシート指定方法|VBA技術解説(9月8日)
VBAのクラスとは(Class,Property,Get,Let,Set)|VBA技術解説(8月28日)
VBAこれだけは覚えておきたい必須基本例文10|VBA技術解説(8月22日)
VBAの省略可能な記述について|ExcelマクロVBA技術解説(8月11日)
複数条件判定を行う時のコツ|ExcelマクロVBA技術解説(7月11日)
For Next の使い方いろいろ|VBA技術解説(6月14日)
VBAを定型文で覚えよう|ExcelマクロVBA技術解説(3月26日)
VBAスタンダード試験対策まとめ|MOS VBAエキスパート対策(3月16日)
ユーザーフォームとメニューの操作|MOS VBAエキスパート対策(3月14日)

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

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.変数とデータ型(Dim)|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.RangeとCellsの使い方|ExcelマクロVBA入門
6.定数と型宣言文字(Const)|ExcelマクロVBA入門
7.ひらがな⇔カタカナの変換|エクセル基本操作
8.マクロって何?VBAって何?|ExcelマクロVBA入門
9.繰り返し処理(For Next)|ExcelマクロVBA入門
10.とにかく書いて見よう(Sub,End Sub)|VBA入門



  • >
  • >
  • >
  • オートフィルター(AutoFilter)

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


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





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

    本文下部へ

    ↑ PAGE TOP