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

时间:2013-04-16 16:37:18

标签: excel vba excel-vba

我知道..

Application.Run ("Realcount2")

将调用一个宏。你能用

之类的东西结束一个宏吗?
Application.Stop("Realcount2")

1 个答案:

答案 0 :(得分:4)

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

声明像StopMacro

这样的公共变量
Public StopMacro as Boolean

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

Sub SetStopMacro()

StopMacro = True

End Sub

这是一个示例循环结构。使用DoEvents并在循环内,每次迭代,检查StopMacroExitSub的值是否为真。

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