☰

シートをループするときにシートを除外する

tag-icon • tag-icon microsoft-excel vba macros
シートをループするときにシートを除外する

以下のコードについてご助力いただければ幸いです。私が実現しようとしているのは、3 つのシートを除くワークブックの各シートに対して何らかのコードを実行することです。以下のコードはすべてのタブに渡って実行されますが、3 つのシートをスキップする方法がわかりません。

Sub Worksheet_Loop()

Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets

        Debug.Print ws.Name

    End If
  Next ws

End Sub

答え1

if ステートメントを使用します。

Sub Worksheet_Loop()

Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets
    If ws.name <> "Sheet1" and ws.name <> "Sheet2" And ws.name <> "Sheet3" then
        Debug.Print ws.Name         
    End If
  Next ws

End Sub

関連情報