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

質問

下記コードにて、
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 · ベストアンサー

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

お礼

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

うまくいきました。

回答No.4

Samurai-Jack

グローバル変数でフラグを作って、Sub bbbでExitする前にフラグを立てます。そして、Sub aaaでcccを呼ぶところをIF文でフラグが立っていたらcccを実行するようにしたらどうでしょうか？

お礼

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

回答No.2

maruru01

こんにちは。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

お礼

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

回答No.1

sacoman

Sub aaa()
bbb
Exit Sub　'←コレ
ccc
End Sub

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

Sub aaa()
bbb
'ccc
End Sub

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

お礼

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