ExcelでFor Each … Nextのフローチャートを作図する

今回はエクセルで「For Each … Next」のフローチャートを作図してみたいと思います。

次のコードは2023年9月に「For Each … Nextで条件分岐したいとき」のブログ記事の中で紹介した「For Each … Next 文」です。

Sub ブック内からシート3を探す()

Dim Sheet As Worksheet

For Each Sheet In Worksheets

   If Sheet.Name = "Sheet3" Then
      
      MsgBox "シートがありました。"
      Exit Sub
   
   End If
   
Next Sheet
      
    MsgBox "シートはありません。"
      
End Sub

「For Each…Next」は同じ処理を繰り返し行いたいときによく使われ、このプログラムではブック内の全てのシートに対して一つずつ順番にシート名が「Sheet3」であるか確認をして、見つかった場合は「シートがありました。」とメッセージを表示してからプログラムを終了するようにしています。

「Sheet3」が見つからなかったときは「シートはありません。」とメッセージを表示しますが、これを「For Each…Next」の後で行うのがこのプログラムのポイントになります。