エクセルのマクロでフィルタを判別するマクロ

質問

いつもお世話になっております。

エクセル2000で
オートフィルタを使用した表があります。
やりたいことは以下の通りです。

AutoFilter Field:=1（一番左側のフィルタ）が、
なんらかのフィルタリングがされている
（フィルタの▼が青い状態）のときはそのままで、
なにもフィルタリングされていない
（フィルタの▼が黒い状態）のときは
Selection.AutoFilter Field:=1, Criteria1:="<>#N/A", Operator:=xlAn
を実行させたいのです。

どのようなマクロを記述すればいいか
ご教示ください。
よろしくお願いします。

回答No.2

KenKen_SP · ベストアンサー

こんにちは。KenKen_SP です。

こんな感じかと。。

Sub Sample()

　　Dim AF As AutoFilter
　　On Error Resume Next
　　Set AF = ActiveSheet.AutoFilter
　　If Not AF Is Nothing Then
　　　　If AF.Filters(1).On = True Then
　　　　　　MsgBox "一番左側のフィルタがONです"
　　　　Else
　　　　　　MsgBox "一番左側のフィルタがOFFです"
　　　　　　AF.Range.AutoFilter Field:=1, _
　　　　　　　　　　　　　　　　Criteria1:="<>#N/A", _
　　　　　　　　　　　　　　　　Operator:=xlAnd
　　　　End If
　　Else
　　　　MsgBox "AutoFilter がない"
　　End If
　　Set AF = Nothing

End Sub

お礼

おおおぉ！

完璧です。
助かりました。

本当にありがとうございます☆

回答No.1

hana-hana3

ＶＢＡでは、該当シートにフィルタ設定が設定されいるかどうかのチェックしか出来ませんので、フィルタの個々の設定状態を取得する事も出来ません。

従って、常に「フィルタ解除」「フィルタ設定」の手順を踏む事になります。
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=1, Criteria1:="<>#N/A", Operator:=xlAn