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

質問

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

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

Sub RemoveFiltersAllWorksheets()

　Dim objWorkSheet As Worksheet

　For Each objWorkSheet In Worksheets
　　objWorkSheet.AutoFilterMode = False
　Next

End Sub

宜しくお願いします。

回答No.2

imogasi · ベストアンサー

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

お礼

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

回答No.1

bin-chan

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