VBA オートフィルタの設定・解除

VBAで、データの並べ替えを行った後、１番最後に行ごと選択してオートフィルタを次の様に設定しています。

' オートフィルタつける
Rows( 変数１ & ":" & 変数2).Select
Selection.AutoFilter
-----------------------------------------------
これだと、１回目のプログラムは正常に動くのですが、
次に同じシートを利用して、またプログラムを動かすと、
シート上にオートフィルタが既に設定されているままになっているので、
オートフィルタを解除して終わってしまいます。

なので、【すでにオートフィルタがシート上で設定されている場合は、オートフィルタを解除する】
ということをプログラムに組み込みたいのですが、そういった式（？）は
ありますでしょうか。


※初心者で、わかりにくい文章になっているかと思いますが、
　何卒宜しくお願い致します。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2009/04/23 15:36

Excel(エクセル) VBA入門：オートフィルタ(AutoFilter)でのデータ抽出

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …
【オートフィルタを解除する】
を参考にフィルタがかかっているかどうか判断するとか？

この回答へのお礼

御礼が遅くなり申し訳ありません。
解決できて、大変助かりました。ありがとうございます！！

お礼日時：2009/04/23 19:36