フィルタを再適用させるマクロ

Question

初心者です。質問させて頂きます。
各シートのフィルタを再適用させるマクロを作成したいです。
下記のコードを簡潔にまとめることは可能でしょうか。
どうかご教授ください。宜しくお願い致します。

Sub 再適用()

On Error Resume Next

Sheets("4").Select
ActiveSheet.AutoFilter.ApplyFilter

Sheets("5").Select
ActiveSheet.AutoFilter.ApplyFilter

Sheets("6").Select
ActiveSheet.AutoFilter.ApplyFilter

Sheets("7").Select
ActiveSheet.AutoFilter.ApplyFilter

Sheets("8").Select
ActiveSheet.AutoFilter.ApplyFilter

Sheets("9").Select
ActiveSheet.AutoFilter.ApplyFilter

Sheets("10").Select
ActiveSheet.AutoFilter.ApplyFilter

Sheets("11").Select
ActiveSheet.AutoFilter.ApplyFilter

Sheets("12").Select
ActiveSheet.AutoFilter.ApplyFilter

Sheets("1").Select
ActiveSheet.AutoFilter.ApplyFilter

Sheets("12").Select
ActiveSheet.AutoFilter.ApplyFilter

Sheets("3").Select
ActiveSheet.AutoFilter.ApplyFilter


Sheets("入力用").Select

End Sub

Answer 1

こんな感じですかね。
AutoFilterの存在するworksheetすべてに対してApplyFilterを実行します。

Dim curSheet As Worksheet
For Each curSheet In ThisWorkbook.Worksheets
   If Not (curSheet.AutoFilter Is Nothing) Then
       curSheet.AutoFilter.ApplyFilter
   End If
Next

Answer 2

全てのワークシートに適用して良いのであれば、下に示したようにForループを使えば短く、簡潔になります。

Sub sample()
    Dim wb as Workbook, ws as Worksheet

    Set wb = ActiveWorkbook
    For each ws in wb.Worksheets
        ws.Select
        ActiveSheet.AutoFilter.ApplyFilter
    Next

End Sub

Comments

[noncha930]

ありがとうございます！！＞＜
できました！

ちなみに下記のコードも簡潔になりますでしょうか。

1つだけ印刷をしないシートが存在しているので
やはりシート名を記載しないといけないものでしょうか。。

Sub 印刷()

Sheets(Array("4", "5", "6", "7", "8", "9", "10", "11", "12", "1", "2", "3")).Select
Sheets("4").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

[coco_bauer]

１シートを除外するなら、その除外するシートの名前("Jogai")だけコードに書けば足ります。

Sub sample()
Dim wb as Workbook, ws as Worksheet

Set wb = ActiveWorkbook

For each ws in wb.Worksheets
If ws.name != "Jogai" Then
ws.Select
ActiveSheet.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
EndIf
Next

End Sub

[coco_bauer]

コードにタイプミスがあったため、修正した

[noncha930]

遅くなりすみません。。
全て解決しました！
ありがとうございました！