[[20060724131725]] 『全シートまとめてオートフィルタの解除』(わくい) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『全シートまとめてオートフィルタの解除』(わくい)
 シートは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.