vba - 一行宏按名称停止其他宏

Question

我知道..

Application.Run ("Realcount2")

将调用一个宏。你能用类似的东西结束一个宏吗

Application.Stop("Realcount2")

Answer 1

你也许可以做这样的事情，但我不确定它有多可靠。不过，它似乎在一些简单的测试中对我有用。

声明一个公共变量，如StopMacro

Public StopMacro as Boolean

将此宏分配给设置公共变量的 Button/etc StopMacro。

Sub SetStopMacro()

StopMacro = True

End Sub

这是一个示例循环结构。在循环中使用DoEventsand，每次迭代，检查StopMacroand的值ExitSub是否为真。

Sub Macro1()
Dim r As Long
StopMacro = False

For r = 1 To 100000
    DoEvents
    If StopMacro = True Then Exit Sub
    '''''''''''''''''''''''''''''''''''''
    '                                   '
    ' Your code inside the loop         '
    '                                   '
    '''''''''''''''''''''''''''''''''''''
Next

End Sub