エクセルのマクロの止め方

質問

たとえば、スペースキーを押すと、実行中のマクロをとめるようにすることは可能でしょうか？

中断とかではなくて、「End」にしたいのです。

ご教授、よろしくお願いします。

回答No.1

t-aka · ベストアンサー

GetKeyState関数を使うのが早いかもしれません。

---
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Sub test1()

Do
DoEvents
If GetKeyState(vbKeySpace) < 0 Then
Stop

End If

Loop

End Sub
---

たぶん、こんな感じじゃないでしょうか。
実際にはStopの部分をEndに書き換えれば終了します。

実用上はこのプロシージャを定期的に呼び出してあげるか
Do - Loop の間に必要な処理を記入する必要があります。

お礼

ありがとうございました。
試してみます。