[[20091217142227]]　『複数のシートのA1にオートフィルタを設定する方法』（ぱにゃ）　ページの最後に飛ぶ

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

　

『複数のシートのA1にオートフィルタを設定する方法』（ぱにゃ）

いつもお世話になっております。

複数のシートの1行目めオートフィルタをいっぺんにかけるマクロを教えてください。

現在下記の様にマクロを組みましたが、Sheet1にしかオートフィルタが設定できません。

Sheet1〜Sheet13まで一度にオートフィルタを掛けたり外したりすることは可能でしょうか。

    Worksheets.Select
    If ActiveSheet.AutoFilterMode = False Then
    Range("A1").AutoFilter
    End If

---

 ActiveSheetは一つだけです。
Sheetsコレクションに対してすべて一括では設定できないのでは？
　
Dim sh As Worksheet
For Each sh In Worksheets
    If Not sh.AutoFilterMode Then sh.Range("A1").AutoFilter
Next
　
(ROUGE)

---

ROUGEさま

ありがとうございます。
出来ました。

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.