vba - 名前で他のマクロを停止する 1 行のマクロ

Question

知っている..

Application.Run ("Realcount2")

マクロを呼び出します。次のようなものでマクロを終了できますか

Application.Stop("Realcount2")

Answer 1

このようなことができるかもしれませんが、それがどれほど信頼できるかはわかりません。ただし、いくつかの簡単なテストではうまくいくようです。

次のようにパブリック変数を宣言しますStopMacro

Public StopMacro as Boolean

このマクロを Button/etc に割り当て、パブリック変数を設定しますStopMacro。

Sub SetStopMacro()

StopMacro = True

End Sub

ループ構造の例を次に示します。ループ内で andを使用DoEventsし、反復ごとにStopMacroandの値をチェックしてExitSubtrue の場合。

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