オートフィルタの一括解除について教えて下さい。

オートフィルタの一括解除について教えて下さい。

以下のVBAをwebから見つけて、マクロに貼りつけて実行してみましたが、
オートフィルタは一括解除できますが、そのあともオートフィルタの機能は
残しておきたいのですが、どうすればできますか？

Sub RemoveFiltersAllWorksheets()

　Dim objWorkSheet As Worksheet

　For Each objWorkSheet In Worksheets
　　objWorkSheet.AutoFilterMode = False
　Next

End Sub

宜しくお願いします。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2010/05/31 20:12

ShowAllDataの質問ではないかな。

質問の説明が不十分。丁寧に書くこと。多分十分書くと下記のように長くなるはず。
例データ
A列　　B列
コード内容
1a
2b
3c
1d
3a
1b
で操作データーフィルターオートフィルタで
コード▼内容▼
1a
2b
3c
・・
となり（すなわち▼が付く）、▼をクリックして、例えば１を択ぶと
コード▼内容▼
1a
1ｄ
1ｂ
になる。（この段階では▼は消えない）
AutoFilterModeをFalseにすると▼も消える。データは全件表示されるが。
Sub test02()
ActiveSheet.AutoFilterMode = False
End Sub
ーーー
ここ（フィルタ状態）で
Sub test01()
ActiveSheet.ShowAllData
End Sub
を実行すると、
コード▼内容▼
1a
2b
3c
1d
3a
1b
になる。
このように、▼は残したままで全行データを表示したいのではないか。
ーーーー
For Each 　
Next
を使った質問だが、質問要素としては、複雑な例で質問している例だが
賢明でなく、１つのシートの質問をして、回答から類推して、
objWorkSheet.ShowAllData
は推測できるだろう。

この回答へのお礼

ありがとうございました！
説明不足ですみません。
その通り！▼は残したままで全行データを表示したかったのです。
しかし、できました～。
お騒がせ致しました。。。

お礼日時：2010/06/03 00:22

No.1 回答者： bin-chan 回答日時： 2010/05/31 19:55

「すべてを表示」すれば良いのでは？