繰り返し(Do While文)

このレッスンでは、条件が満たされている間だけ繰り返すDo While文を学びます。「VBA Do While 使い方」で調べている方向けです。

Do While 条件 ... Loopという書き方で、条件が真の間だけ処理を繰り返します。

サンプルコードでは、countが3以下の間、メッセージに数を連結して1ずつ増やしています。

初心者がよくつまずくのが、ループ内でカウンタを更新し忘れて無限ループになってしまうことです。Do While文を使うときは、必ずどこかで条件が偽になるように処理を書く必要があります。

実際の開発現場では、「特定の条件を満たすセルが見つかるまで探す」ような処理でDo While文が使われます。

📖 お手本コード

Sub CountLoop()
    Dim count As Integer
    Dim result As String
    count = 1
    Do While count <= 3
        result = result & "カウント: " & count & vbNewLine
        count = count + 1
    Loop
    MsgBox result
End Sub

✍️ あなたのコード

コードを書いたら「実行する」を押してください

🧪 このサイトではVBA(Excelマクロ)を直接コンパイル・実行できないため、お手本コードと同じ内容を入力できたかをその場で判定します(採点はブラウザ内だけで行われ、どこにも送信されません)。

🎯

ここまでできればゴール達成!
条件を満たすまで繰り返す、簡単なカウントマクロが作れるようになります。