エクセルVBAで Do While (1)って？

Question

下記のような例文がありますが、 Do While (1)の括弧１の意味がわかりません。

Stri = ""
    iCount = 3      '入力データ開始行 
    Do While (1)
        If Trim(Sheets("テスト").Range("A" & iCount)) = "" Then
            Exit Do
        End If
        Stri = Stri & Sheets("テスト").Range("G" & iCount) & ","
        iCount = iCount + 1
    Loop

以下のような使い方ならわかるのですが・・・・。
Do While Counter < 20
Counter = Counter + 1
MsgBox Counter
Loop

temtecomai2 · Accepted Answer

つまり「ずっとループ」ってことです。
ループの入り口や出口で継続判断をせず、ループ内で判断をする場合の方法です。

単純に
Do
' ループ内の処理
Loop
とも書けますが、ループ処理のコードが長い場合、一度に Do と Loop を見渡すことが出来ませんので、Do の行を見ただけで「終了判断は中でやってるんだろうな」と理解できるように Do の行で意味のない (1) を書いています。

noname#22222 · Answer

s_husky　です。

回答にミスが！For-Next文です。

noname#22222 · Answer

Do While (条件) - Loop文 は、()内の条件をテストした結果が真であれば処理を繰り返します。
通常は、条件=条件式です。
よって、処理後に行われるテストで、いずれ真から偽へと変化しループを終了します。
(1)と書けば、１=真という約束事ですから、永遠に偽にはなりません。
無限ループする理由です。

さて、Do While (条件) - Loop文は、For Next-End文に置き換えることが可能です。

Ｆｏｒ I = 3 To 9999
　　If Trim(Sheets("テスト").Range("A" & iCount)) = "" Then
　　　　Exit Do
　　End If
　　・・・・・
Next I

この場合、For のループ回数は便宜上 9999 としていますが、実際は未定です。
よって、カウントすべき行が無くなった時点で For ループを抜けています。
このように、どうせループを抜け出す判定を組み込むならば For文は無限ループしても良い訳です。
ところが、Ｆｏr文には無限ループを指定することができません。
ならば、Do While (条件) - Loop文を使おうということでしょう。

saintandre · Answer

>括弧１の意味がわかりません。
「常に真（TRUE）」です。

このプログラムでは Exit Do でループから抜けることを前提にしていて Exit Do が実行されない場合には無限にループが続きます。


ちなみに、もし無限ループ状態になってプログラムが止まらなくなっても Ctrl + Break のキー操作で強制終了できます。

エクセルVBAで Do While (1)って？

つまり「ずっとループ」ってことです。

s_husky です。

Do While (条件) - Loop文 は、()内の条件をテストした結果が真であれば処理を繰り返します。

>括弧１の意味がわかりません。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

s_husky　です。

Do While (条件) - Loop文は、()内の条件をテストした結果が真であれば処理を繰り返します。