VBAでのオートフィルターについて

質問

オートフィルターがかけられている時は全てを表示する。
すでに全て表示されている場合はそのまま。

という分をマクロに入れたいのですが、
どのようにしたらいいでしょうか？？

回答No.1

end-u · ベストアンサー

With ActiveSheet
　　If .AutoFilterMode = True Then
　　　　If .FilterMode = True Then
　　　　　　.ShowAllData
　　　　End If
　　End If
End With

AdvancedFilter（[フィルタオプション]）時にも適用したいなら
With ActiveSheet
　　If .FilterMode = True Then
　　　　.ShowAllData
　　End If
End With

もしくは
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
など。

シート状態をきちんと判断して目的の処理をする、という意味で
初級者には１番目がおすすめです。

お礼

予定通りの動きができました！！

お礼が遅れてしまってすみません。
分かりやすい解説、ありがとうございます。