当该子内的另一个子输出 Msgbox 时，如何从该子中退出？

在子程序（“Sensitivity”）内，我正在调用另一个子程序（“MVE_NIM_Subs.MVE_Main”），如果该子程序输出一个 MsgBox，我想结束子程序并转到定义的“Jump”，而不是继续执行子程序。我该怎么做？

Thanks

Public Sub Sensitivities() 
Application.Run "MVE_NIM_Subs.MVE_Main" 
........ 
Jump: 
End Sub

您可以使用公共布尔变量捕获您的 Msgbox。在子MVE_NIM_Subs.MVE_Main如果出现消息框，请修改代码以将公共布尔变量设置为 true。

这个sub结束后，执行将返回到执行sub内的代码Sensitivities。然后只需检查公共布尔变量的值即可。如果是真的，那就去跳跃吧。

像这样的东西：

Option Explicit
Public DidMsg As Boolean

Sub Sensitivities()

DidMsg = False
Application.Run "MVE_NIM_Subs.MVE_Main"

If DidMsg = True Then GoTo Jump
'rest of your code
'
'
'
'


Jump:
'rest of your code after point Jump
'
'
'
'
End Sub

Sub MVE_Main()

'your code whatever it is
'right after using the msgbox type:
DidMsg = True


End Sub