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)

「ブックを開かずにセル値を取得」に関する検索が非常に多いですおそらくExecuteExcel4Macroに関連しているとかもしくは大量のファイルがある為時間がかかってしまうと言うものでしょう。ExecuteExcel4Macroについての簡単な解説は「ExecuteExcel4Macroについて」サンプルを通して
罫線を簡単に引く(Borders,BorderAround)
エクセルでは、罫線を引く事が多いです。この罫線は、以外に処理時間もかかりますし、やり方によっては、VBAの行数も多くなります。とにかく、簡単に罫線を引く方法です。以下の表を作成する場合です。罫線を引く順番等、いろいろありますが、とにかく短いコードにしてみます。
マクロVBAの開始時と終了時に指定しておくべきApplicationのプロパティ
マクロVBAの開始時および終了時に指定した方が良いApplicationのプロパティの開設です。特に重要なもの、マクロVBAの処理速度に関係するものを紹介します。Applicationのプロパティの詳細については以下をご覧ください。
オートフィルター(AutoFilter)
日付のオートフィルタ(AutoFilter)
とても便利なオートフィルターですが日付となると結構大変です。以下の表で説明します。普通はこんなように指定します。Sub Macro1() Range("A1").Select Selection.AutoFilter ActiveSheet.Range(_$A$1:$B$11_).AutoFilterField:=1,
印刷ダイアログを使用する(xlDialogPrint)
入力しやすいようにセルに色をつけている事が多いと思いますが印刷時にはちょっとじゃまな場合もあります。インク(トナー)も無駄ですしね。印刷時に色指定を解除して印刷する方法になります。Subsample()DimrtnAs BooleanActiveSheet.CopyActiveSheet.Cells.Interior.Color= xlNonertn=A…
名前定義の一覧(Name)
名前定義は使い方によってはとても便利な機能ですが数が多いと管理が大変になります。名前定義の一覧を取得しシートに書き出すマクロです。Subsample()DimnmAsNameDimiAsLongi=1ForEach nmInActiveWorkbook.NamesCells(i,1)=nm.NameCells(i,
シートを名前順に並べ替える
シートを名前順に並べ替える方法になります。配列を使っていますが配列が難しい場合はシートに書き出して処理すれば良いでしょう並べ替えもシート上なら簡単です。Subsample() DimiAsLong DimarySht()AsString Fori=1ToSheets.Count Ifi=1Then ReDimarySht(0) Else ReDimPre…
数式内の不要なシート名を削除する(HasFormula)
複数のシートにまたがる数式を入力していると、自身のシート名!が数式についてしまいます、この自身のシート名!は不要であり、式を見づらくしてしまいます、この不要なシート名を、VBAで一括削除します。ブックの全シート、全セルを対象として、数式の中から、自身のシート名!を削除するVBAになります。
数式の参照しているセルを取得する
セルに入っている数式の参照しているセルを取得するには、RangeのPrecedentsプロパティを使いますが、このプロパティは他のシートの参照には対応していません。また、セルの参照先を取得するプロパティには、Dependentsプロパティがあります。
増殖した条件付き書式を整理統合する
コピペによって条件付き書式は際限なく増加していきます、あまり増えすぎると、Excelの動作が遅くなる場合もありますし、条件や書式を変更したい時にも困ることになります。このような場合は、条件付き書式を消して再設定するしかなくなります、これを解決するVBAを考えてみました。


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

Applicationを省略できるApplicationのメソッド・プロパティ一覧|VBA技術解説(7月22日)
コレクション(Collection)の並べ替え(Sort)に対応するクラス|VBA技術解説(7月20日)
CSVの読み込み方法(ジャグ配列)|VBAサンプル集(7月15日)
その他のExcel機能(グループ化、重複の削除、オートフィル等)|VBA入門(7月14日)
オートフィルタ退避回復クラスを複数シート対応させるVBAクラス|VBA技術解説(7月6日)
オートフィルタを退避回復するVBAクラス|VBA技術解説(7月6日)
IfステートメントとIIF関数とMax関数の速度比較|VBA技術解説(6月23日)
Withステートメントの実行速度と注意点|VBA技術解説(6月6日)
VBA+SeleniumBasicで検索順位チェッカー(改)|VBA技術解説(6月2日)
マクロでShift_JIS文字コードか判定する|VBA技術解説(6月1日)


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

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



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

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


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




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