Excel2003オートフィルタの有無を確認マクロ

質問

オートフィルタを設定するときは、

Selection.AutoFilter

を使ってもできますが、これですとオートフィルタがオン・オフどちらの状態かわかりません。
これを、オートフィルタをオンにしますよ、オフにしますよ、という命令を送るように命令を一行
で書くことは可能なのでしょうか？

もし手順で書くなら（http://www.asahi-net.or.jp/~zn3y-ngi/YNxv208.html）から引用しますが、
次のようにできるようです。
/-------------------------------------------/
Private Sub オートフィルタの状態を調べて切り替える()
If Worksheets("SSS").AutoFilterMode Then 'オートフィルタモードなら
MsgBox "オートフィルタは現在オンです。［OK］ボタンをクリックするとオフにします"
オートフィルタのオンオフを切り替える
Else
MsgBox "オートフィルタは現在オフです。［OK］ボタンをクリックするとオンにします"
オートフィルタのオンオフを切り替える
End If
End Sub

回答No.2

merlionXX · ベストアンサー

> 一行で書く

オンにする
If Not Sheets("Sheet1").AutoFilterMode Then Selection.AutoFilter

オフにする
If Sheets("Sheet1").AutoFilterMode Then Selection.AutoFilter

場合によってSelectionの部分は実態に合わせ書き換えてください。

お礼

ご回答ありがとうございました。
シンプルでわかりやすいご回答で勉強になりました。

回答No.1

KURUMITO

例えば次のようにしてはいかがでしょう

Private Sub オートフィルタの状態を調べて切り替える()
If Worksheets("SSS").AutoFilterMode = False Then
ans=MsgBox("オートフィルタがオフの状態です。オンにしますか？", vbYesNo)
If ans = vbYes Then
オートフィルタを設定するマクロを記入する。
End If
End If
If Worksheets("SSS").AutoFilterMode = True Then
ans=MsgBox("オートフィルタがオンの状態です。オフにしますか？", vbYesNo)
If ans = vbYes Then
Worksheets("SSS").AutoFilterMode = False
End If
End If
End　Sub

状態を調べて質問をすることなく反対のことをさせるのでしたらansのマクロをカットすればよいでしょう。いずれにしろオートフィルタの状態はFalseやTrueで調べることになりますね。

お礼

ご回答ありがとうございました。
わかりやすいご説明でよくわかりました。