ねこになりたい

おふとんと朝の別れをするのが辛い人向けです。正論で殴らず見守ってあげてください。

DoWhile

概要

 
Do While(条件式)
  条件を満たす場合に実行する処理
Loop
一定の条件を満たす限り、ずっと指定された処理を実行させる。

 

サンプル

A行に値が入っていれば、B行に鳴き声が出力されます。
Loop手前でカウンタ変数を設定するのを忘れないように注意しましょう。

この画像には alt 属性が指定されておらず、ファイル名は image-34.png です

Dim i As Integer
i = 1

Do While Range("A" & i).Value <> ""
Range("B" & i).Value = "にゃーにゃー"
i = i + 1
Loop

実行結果

この画像には alt 属性が指定されておらず、ファイル名は image-33.png です

補足

カウンタ変数を書き忘れて、処理が無限に続く場合はCtrl + BreakもしくはCtrl + Pauseで止める。それでもダメならCtrl + Shift + ESCでタスクマネージャーを開いてExcelごと強制終了させる。