繰り返し処理（While…Wend ステートメント）

サイト管理人

10年前

While…Wend ステートメントの使い方

【構文】

While condition

　　[ statements ]

Wend

【項目の説明】

condition ・・・真 (True) または偽 (False) を評価する数式、文字列式を指定します。
statements ・・・引数（ condition ）が真 (True) である間、繰り返し実行される任意の行数のステートメントを記述します（省略可）。

引数 condition の値が Null 値の場合、引数 condition は、偽 (False) であるとみなされます。

もし無限ループの状態に陥ってしまった場合は、[ECS] キーを押し続けるか、それで戻らない場合は、[Ctrl] + [Alt] + [Delete] を押して Windows のタスクマネージャーを表示して、Excel を強制終了してください。

While…Wend ステートメント は、基本的に途中でループから抜けることができません。Goto ステートメント等を使えば無理やり抜けることも可能ですが、そういった場合は、より多様な処理を行うことができる Do…Loop ステートメントを使う方がよいでしょう。

While…Wend ステートメントの使用例

VBAソース例

　

Sub sample_while_wend()

    Dim num
    Dim counter
    
    num = 1
    counter = 0
    
    While num <= 100
    
        num = num * 2
        counter = counter + 1
    
    Wend
    
    MsgBox counter & " 回ループしました。"
    

End Sub

Sub sample_while_wend()

Dim num

Dim counter

num = 1

counter = 0

While num <= 100

num = num * 2

counter = counter + 1

Wend

MsgBox counter & " 回ループしました。"

End Sub

While…Wend ステートメントの使い方

【項目の説明】

While…Wend ステートメントの使用例

VBAソース例

実行結果