Do whileでExitせず、ループの最初に戻る方法

よろしくお願いします。

環境　Excel 2003

Do whileのループ内で、Exitのような記述方法で、ループの最初に戻る方法はありますでしょうか？


イメージは以下のような形です。
Sub hoge()
r = 0
rr = 5
Do While r < 6
'ここに戻る
If r = 3 Then
'ここでDo while の最初に戻る
End If
Loop

End Sub

よろしくお願いいたします。

No.1 ベストアンサー 回答者： myRange 回答日時： 2009/08/05 00:10

どんな処理をするために、というのが書いてないので何ですが、、

そういった場合は通常、IFステートメントで調整しますが
あえて、強制的に戻したいということであれば
Ｇｏｔｏステートメントを使うことになります。

'----------------------------------
Sub hoge()
　Dim r, rr, s
　r = 0
　rr = 5

　　Do While r < 6
Step1:
　　　　If r = 3 Then
　　　　　　r = r + 1
　　　　　　GoTo Step1
　　　　End If

　　　　s = s & r & vbLf
　　　　r = r + 1
　　Loop

　　MsgBox s
End Sub
'--------------------------------

r=r+1がないと無限ループになりますので
それと、確認のためにちょこと付け加えてあります。
以上です。
　

この回答へのお礼

ご回答頂きありがとうございます。

本や、ネットで検索をしても見つからず困っていました。

ありがとうございました。

お礼日時：2009/08/05 00:31