プロが教える店舗&オフィスのセキュリティ対策術

いつもお世話になっております。
作業が終了して全てのシートを初期化する場合に、オートフィルターで抽出した状態でデータを消すと、隠れていた部分が残ってしまいます。
もし、そのシートのA1~D1までにフィルターがかかっていたら、フィルターを消す、かかっていなければ、そのままシート全体のデータを消すというマクロはどう書けばよろしいのでしょうか?
-例-
Sheets("ABC").Select
If Range(Cells(1,1),Cells(1,4))にフィルターがかかっていたらThen
 フィルターを消す
 Cells.ClearContents
Else
Cells.ClearContents
End If

こんなことをしたいのですが、伝わりましたでしょうか?
よろしくご指南くださいませ。

gooドクター

A 回答 (1件)

こういうことでしょうか?


ActiveSheet.AutoFilterMode = False
    • good
    • 0
この回答へのお礼

xls88さん、
早速のご回答ありがとうございました。
おはずかしい。。。そういうことです。
なぜ気がつかなかったんだろう。。。
また機会がありましたらよろしくお願いいたします。

お礼日時:2009/01/11 02:39

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

gooドクター

人気Q&Aランキング