複数のFOR~を抜けるには？

質問

sub 1()
for a = 1 to 4
　for b 1 to 6
　　call　2
　next b
　　　　　'１１１
next a
endsub
sub 2()
---
----
----
on　error　goto　herr
if ----
　for c = 1 to 5
　　if ---
　　　------　'ここでエラーが起きた場合に'１１１まで
　　end if
　next c
else
　 for d =1 to 5
　　if ---
　　　------　'ここでエラーが起きた場合に'１１１まで
　　end if
　next b
end if
herr
endsub
このような場合でも'１１１までForを抜けることは
かのうでしょうか？

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

言語が不明ですがVBAでしょうか。。。（違っても考え方は同じだと思います。）

　メソッドの呼び出し先で、呼び出し元のForループを抜ける方法はないと思います。あくまで、呼び出し側で判断しなければならないものだからです。
　視点を変えてみれば、Forで繰り返し呼び出しているのに、呼び出し先で勝手にForを脱出されてしまうと、正常な処理が行えなくなります。

　解決策としては、メソッドの処理が成功したか失敗したかを戻り値で判断する方法が手っ取り早くて一般的かと。

・Sub 2 を Function にして、処理の成功時はTrueを、エラー発生時はFalseを返すようにする。
・呼び出し元では、Falseが返されたときにForから脱出する。

呼び出し例：

　For B = 1 To 6
　　If method2 = False Then Exit For
　Next B

Function method2
　' 成功時
　method2 = True: Exit Function

　' エラー時
　method2 = False: Exit Function
End Function

※コードを簡略化するにしても、メソッド名を数値だけにすると誤読・誤解の恐れがあるのでmethod2としました。適宜置き換えてください。

お礼

どうもありがとうございました。
言語は忘れてました。すいません。
上記の様にFunctionにすることで
解決しました。
ありがとうございました。