ＶＢＡ コードを中断するには？

下記コードにて、
aaaを実行し、Exit Subのところで実行そのものを終了させたいのですが、このままだとcccのコードが実行されてしまいます。

Exit Subのところをどう変更すればよいのでしょうか？


Sub aaa()
bbb
ccc
End Sub

Sub bbb()
　略
　Exit Sub　　←ここをどう書けば良いですか？
　略
End Sub

Sub ccc()
　略
End Sub

No.3 ベストアンサー 回答者： imogasi 回答日時： 2004/10/13 11:54

END（場合によってはStop）のステートメントを考えれば（入れれば）よいのでは。

この回答へのお礼

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

うまくいきました。

お礼日時：2004/10/13 17:49

No.4 回答者： Samurai-Jack 回答日時： 2004/10/13 11:56

グローバル変数でフラグを作って、Sub bbbでExitする前にフラグを立てます。

そして、Sub aaaでcccを呼ぶところをIF文でフラグが立っていたらcccを実行するようにしたらどうでしょうか？

この回答へのお礼

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

お礼日時：2004/10/13 17:50

No.2 回答者： maruru01 回答日時： 2004/10/13 11:53

こんにちは。

maruru01です。

bbbをFunctionプロシージャにして、終了の仕方に応じた値を返すようにしてはどうでしょうか？


Sub aaa()

　　Dim flg As Long

　　flg = bbb
　　If flg = 0 Then
　　　　ccc
　　End If

End Sub

Function bbb() As Long

　　略
　　If 中断条件 Then
　　　　bbb = 1
　　　　Exit Function
　　End If
　　略
　　bbb = 0

End Function

Sub ccc()

　　略

End Sub

この回答へのお礼

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

お礼日時：2004/10/13 17:49

No.1 回答者： sacoman 回答日時： 2004/10/13 11:48

Sub aaa()

bbb
Exit Sub　'←コレ
ccc
End Sub

aaaプロシージャのbbbの後にもExit Subを挿入するか、
cccを以下のようにコメントアウトする方法ではダメでしょうか？

Sub aaa()
bbb
'ccc
End Sub

コードを終了させる目的によっていろいろな方法が
あると思いますが、単純にデバッグだけなら、
ブレークポイントをaaaプロシージャのcccに設定する
というのも良いと思います。

この回答へのお礼

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

お礼日時：2004/10/13 17:47