【VBA】繰り返し処理の方法がわからない

Question

VBAで、

△△（処理）

if A then
　〇〇（処理）
  同じif文を繰り返す
else
  △△の処理（最初）に戻る
endif

という感じで、
・if文が成り立ったら、特定の処理をしたあと、また同じif文を繰り返す（if文の直前まで戻る）
・「else」の場合に「△△」の処理に戻る

という処理をしたいのですが、コードがわかりません。

調べてもでてきませんでした。

大雑把で申し訳ありません。
よろしくおねがいします。

Comments

[meg_]

どのようなキーワードで調べましたか？

[abratani]

do (while or until) 条件
処理
loopでいいのでは?

Answer 1

GoToステートメントと Do ... Loop ステートメントで可能ですが、そのままでは無限ループになるのでループを抜ける条件が必要になります。

とりあえず、△△（処理）は5回、 〇〇（処理）で終了するという条件にするなら、下記のようなコードになります。

Public Sub Sample()
    Dim cnt1 As Long, cnt2 As Long
    
proc1:
    If cnt1 >= 5 Then Exit Sub
    cnt1 = cnt1 + 1
    Debug.Print "△△（処理）" & cnt1 & "回目"
    

    Do
        If cnt2 < 3 Then
            cnt2 = cnt2 + 1
            Debug.Print " 〇〇（処理）" & cnt2 & "回目"
        Else
            cnt2 = 0
            GoTo proc1
        End If
    Loop

End Sub

各処理はイミディエイトウィンドウに出力するというものにしてます。

サンプルとして回数を条件にしましたが、回数が条件なら For ... Next を使うべきです。あくまで条件が不明なので回数を条件としただけです。

Answer 2

loopで解決しました！！
ありがとうございました！

Answer 3

goto ステートメントで可能ですが、永遠ループになりませんか？
もう一度、処理を整理して、gotoステートメントを使わない処理ルートを考えるべきです。

goto文を使う段階で、フローに問題がある、ロジカルをもう一度考え直すのがプログラミングとしての基本的考え方。

もっと、シンプルな方法があると思いますよ。