Do Loop

いまさらだけど、Excel 2003より前のExcel VBAってcontinueないっぽい...知らんかったわ...。 野暮用でどうしても2003を使うことになったんだけど、continueないと何かと面倒で...GoToを使うって手もあるけど、なんだか見づらい気がして...。 ってなことで、Do...Loop Whileでcontinueの代用をしてみる。 コードはこんな感じ。 ' ' 10回ループする ' Dim nCurrent As Integer ' ループカウンタ For nCurrent = 1 To 10 ' ここは1で始まるようにしたので注意 ' 1回だけループするDo-Loopを用意する Do ' 5回目以前のループの処理は実行しないようにする If nCurrent &lt; 5 Then Exit Do End If ' 回数をイミディエイトウィンドウに出力する(5～10まで出力してくれるはず) Debug.Print nCurrent Loop While False ' 条件にはFalseを設定して必ずLoopを終了するように! Next 実行してみるとこんな感じ。 1～4までは処理をしていないので、うまくcontinueの代用ができてるっぽい。 5 6 7 8 9 10 まま、明日への自分へのメモってことで。

Excel VBAメモ ContinueのかわりをDo…Loop Whileにさせてみる