指定した条件が成立している間だけ処理を繰り返す
　
指定した条件が満たされている間だけ処理を繰り返す
　　　　 構文
　　While 条件式
　　　　繰り返す処理を記入
　　Wend

使用例
　　Dim Counter
　　Counter = 0　　　　　　　　　　　　' 変数を初期化します。
　　While Counter < 20　　　　　 　　' Counter の値を評価します。
　　　　Counter = Counter + 1　　 　' Counter の値を増やします。
　　Wend　　　　　　　　　　　　　　　　' Counter > 19 であれば、While ループを終了します。
　　Debug.Print Counter　　　　　　　' デバッグウィンドウに 20 を表示します

Do〜Loopは条件が満たされない間だけ、満たされている間の処理はWhileを使います。

使用条件により
　　For　　　〜　　Next　
　　Do　　　〜　　 Loop
　　While　 〜　　Wend
を使い分けて下さい。

又繰り返し処理から抜ける場合
　　Exit Do　　　　　　　'Do Loop　文から抜ける場合
　　Exit For　　　　 　　'For Next　文から抜ける場合
　　Exit Function　　 　'ユーザー関数の中から抜ける場合
　　Exit Sub　　　　　　'プロシージャの中から抜ける場合
などがあります。




01/06/06