[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『全シートまとめてオートフィルタの解除』(わくい)
シートは10〜20程あり、全てにオートフィルタがかかっていますが、列の削除等の操作を するので、はずす必要があります。全シート選択した作業状態で、ツール→データ→ フィルタではずそうとすると、オートフィルタがアクティブになってません。 全シートのオートフィルタを一度に解除ってできないのでしょうか?
マクロでやっつけましょうw Alt+F11を押して、挿入-->標準モジュールを選択。 以下のコードを貼り付けて、その画面を閉じる。 Alt+F8を押して、testを選択、実行すると、すべてのオートフィルタが外れると思います。 (ROUGE) '---- Sub test() Dim ws As Worksheet For Each ws In Worksheets ws.AutoFilterMode = False Next End Sub
す、すばらしいですね!あっという間に全ての解除ができました! ありがとうございました!! (わくい)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.