フィルタの抽出を解除するコード

エクセルのオートフィルタを解除するコードを調べてるのですが
ActiveSheet.AutoFilterMode = False
だとフィルタそのものが解除されてしまうのですが
オートフィルタは解除せず、現在抽出されてるもののみ解除して全てのレコードを表示するコードを教えてください。

ActiveSheet.UsedRange.AutoFilter Field:=1
このようにもう一度その列を選択すればいいのですが
このコードじゃなくて「ショーオールデータ」みたいなコードがあった気がするのですが探せません。
ご回答よろしくお願いします。

No.1 回答者： xls88 回答日時： 2013/02/02 11:35

下記で試してください。

If ActiveSheet.FilterMode Then
ActiveSheet.AutoFilter.ShowAllData
End If

この回答へのお礼

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

お礼日時：2013/02/08 23:44

No.2 ベストアンサー 回答者： MarcoRossiItaly 回答日時： 2013/02/02 14:46

表示メニューのオブジェクト ブラウザにて、ライブラリを見てみましょう。

AutoFilter のメンバが表示されます。

あるいはヘルプの画面を表示後に autofilter と入力・検索すると、「AutoFilter オブジェクト メンバ」があります。

この回答へのお礼

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

お礼日時：2013/02/08 23:44