一行宏以按名称停止其他宏

Question

我知道..

Application.Run ("Realcount2")

将调用一个宏。你能用

之类的东西结束一个宏吗？

Application.Stop("Realcount2")

Answer 1

你可能会做这样的事情，但我不确定它会有多可靠。不过，它似乎对我来说很简单。

声明像StopMacro

这样的公共变量

Public StopMacro as Boolean

将此宏指定给Button / etc，它设置公共变量StopMacro。

Sub SetStopMacro()

StopMacro = True

End Sub

这是一个示例循环结构。使用DoEvents并在循环内，每次迭代，检查StopMacro和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