オートフィルタで抽出した条件を取得する方法(Excel VBA)
オートフィルタでデータが抽出されているかどうかはFilterModeプロパティで判定できますが、どの列が抽出されているかを判定するときには、FilterオブジェクトのOnプロパティの値で各列を順次判定します。
また、抽出条件はCriteria1とCriteria2プロパティで取得できます。
抽出条件が1つのときはCriteria1プロパティ、そして、「~以上で、~より小さい」のように条件が2つのときはCriteria2プロパティを使います。
ですから、Criteria1、Criteria2、Criteria3…と、無制限にプロパティがあるわけではありませんので間違えないでください。
そして、条件が1つなのか(Criteria1プロパティなのか)、2つなのか(Criteria2プロパティなのか)は、Operatorプロパティが「0」でなければ、条件は2つと判断できます。
もっとも、日付の場合に「年」や「月」でデータを絞り込んでいるときには、次のサンプルではエラーが発生します。
また、VBAのバグと思われますが、複数列のデータを抽出している条件下で次のサンプルを実行するとエラーが発生することもあります。
基本的に、次のサンプルは県名や氏名などの文字列で、「単一の列」のデータを絞り込んでいるときに有用なものと考えてください。
Sub Sample_065()
Dim i As Long
Dim myMsg As String
With ActiveSheet.AutoFilter
For i = 1 To .Filters.Count
With .Filters(i)
If .On = True Then
myMsg = myMsg & i & “列目の抽出条件:”
If .Operator <> 0 Then
myMsg = myMsg & .Criteria1 & ” と ” & .Criteria2 & vbCrLf
Else
myMsg = myMsg & .Criteria1 & vbCrLf
End If
End If
End With
Next i
End With
MsgBox myMsg
End Sub
毎日30分かかる事務作業のルーティンワーク。
エクセルのマクロなら1秒で!
その作業、VBAid(ブイビーエイド)にお任せしませんか?
『新装改訂版 Excel VBA 本格入門』
~マクロ記録・If文・ループによる日常業務の自動化から高度なアプリケーション開発までVBAのすべてを完全解説~

Chapter2 VBAの基本構文を理解する
Chapter3 ブックとシートをVBAで操作する
Chapter4 セルをVBAで操作する
Chapter5 変数を理解する
Chapter6 条件分岐を理解する
Chapter7 繰り返し処理(ループ)を理解する
Chapter8 対話型のマクロを作る
Chapter10 ユーザーフォーム
Chapter11 基本的な入力や表示を行うコントロール
Chapter12 選択を行うコントロール
Chapter13 そのほかの便利なコントロール
Chapter14 文字列を操作する関数
Chapter15 日付や時刻を操作する関数
Chapter16 そのほかの便利な関数
Chapter17 マクロの連携とユーザー定義関数
Chapter18 イベントマクロ
Chapter19 エラー処理
Chapter20 画面表示と組み込みダイアログボックス
Chapter21 グラフをVBAで操作する
Chapter22 ファイルの操作
『いつもの作業を自動化したい人の Excel VBA 1冊目の本』
Excel VBAは、一人ひとりの作業のあり方、いえ、ひいてはあなたの時間の使い方、すなわち「人生すら変えてしまう」パワーがあります!
本書は、Excel VBAを使いこなしたい方がどこでつまずいてしまうのかを徹底的に研究して書き上げた「1冊目」の決定版です!
まずは第1章の立ち読みから(スマホ対応)→ こちら
→ Amazonへ
最近の画像つき記事
-
ソフィア・ケニン、リヨン・オープン優勝!(女子テニス359)
-
ソフィア・ケニン、リヨン・オープン決勝進出!(女子テニス358)
-
ソフィア・ケニン、全豪オープン2020優勝!ガルビネ・ムグルッサを撃破!(女子テニス357)
-
ソフィア・ケニン、大大大金星!アシュリー・バーティーを撃破!(全豪オープン2020)(女子テニス356)
-
ソフィア・ケニン、勝つには勝ったが・・・(全豪オープン2020)(女子テニス355)
-
ココ・ガウフはなぜ負けたのか(全豪オープン2020)(女子テニス354)
-
大坂なおみは、なぜココ・ガウフに負けたのか(全豪オープン2020)(女子テニス353)
-
ワン・チャン、セレナ・ウィリアムズを撃破!ココ・ガウフ、大坂なおみを撃破(全豪オープン2020)(女子テニス352)
-
ベンチッチ、オスタペンコを撃破!(全豪オープン2020)(女子テニス351)
-
シャラポワはこのまま引退してしまうのか?(全豪オープン2020)(女子テニス350)