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

Question

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

谢谢

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

Answer 1

您可以使用公共(public) bool 变量捕获您的 Msgbox。在子 MVE_NIM_Subs.MVE_Main 中，修改您的代码，以便在出现消息框时将公共(public) bool 变量设置为 true。

此子结束后，执行将返回到执行子Sensitivity内的代码。然后只需检查公共(public) bool 变量的值即可。如果属实，请跳转。

类似这样的事情:

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