エクセルのマクロ オートフィルタの命令文

質問

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

マクロでオートフィルタを設定したい時に、式が
"Selection.AutoFilter"
となっているのですが、この式だと、マクロを実行する前に予めオートフィルタが設定されていた場合に、「オートフィルタの設定を外す」という意味になってしまって、マクロがうまく実行されません。
「オートフィルタをつける」（または外す）という命令文を作るのは可能なのでしょうか？

回答No.1

ki-aaa · ベストアンサー

こんにちわ、こうしたら如何ですか。

If Sheets("Sheet3").AutoFilterMode Then
Selection.AutoFilter

でわ

お礼

素晴らしいです。AutoFilterModeという言葉すら知らなかった私では一生かかってもたどりつけなかったことでしょう。

ありがとうございました。

回答No.2

popesyu

MsgBox (ActiveSheet.AutoFilterMode)

これで現在AutoFilterがオン(TRUE)かなのかオフ(OFF)なのか判別ができます。これで条件判別しても良いですし、さいしょに有無を言わさず
ActiveSheet.AutoFilterMode=False
とオフにしてからAutoFilterの設定を行うという手もありますが。

まぁヘルプの「AutoFilter オブジェクト」のところに実際的なサンプルが載っていますのでそちらを見た方が早いかと思います。

お礼

ありがとうございます。
会社のパソコンで、ヘルプ機能をインストールしていないので、そのようなものがあること自体知らなかったのですが、早速試してみます。