Do until～Loopステートメント

Do Until～Loopステートメントとは、条件を出し、それを満たすまで繰り返し同じ処理を繰り返すものです。

つまり、条件を満たしていない間のみ処理が実行されます。

 

エクセルを開いて、セルに比較する数値を書き込みます。

 

 

Do until loopを使ってA3セルの数値をB3セルの数値より小さくなるまで繰り返し処理を行います。

B3に30と入力されているので、A3は29になるまで処理を繰り返します。

 

VBEを起動してコードを書き込んでいきましょう。

 

 

コード全体ではこのようになります。

赤で囲まれた範囲が処理の内容です。条件を満たすまでこの処理が繰り返されます。

 

コードが記入できたら[ End Sub ]の位置にカーソルを当ててコードを実行します。

エクセルのシートでも確認しながらやってみましょう。

 

 

コードが実行されました。

A3から-1なので、実行するごとに50から1ずつ減っていきます。

メッセージウィンドウの[ OK ]をクリックして、条件を満たすまで実行してみましょう。

 

 

A3に入力されていた数値がB3の数値より小さくなったので、Do until～Loopの条件を満たさなくなったことになり処理を終了しました。