VBA Ontime を一旦停止をさせるには

いつもお世話になります。

OSは、Win10 エクセルは、2016　です。


下記の参考構文は「現在日時」ボタンをクリックすると「A1」に
日日、時間、分そして秒が表示されます。

ただこの表示は何時までもブックを閉じない限り稼働するので、一時停止を追加したいです。　
　※再開は、「現在日時」ボタンをクリックすると「A1」に表示させたい。

「一時停止」ボタンをクリックして一時停止させるには、
どんなコードを追加すればいいかご指導いただけませんでしょうか。

参考に
Sub sample()

Dim myTime As Date

myTime = CDate(Format(Now() + TimeValue("00:00:01"), "hh:mm:ss"))
Range("A1").Value = Now()
Columns("A").AutoFit
Application.OnTime myTime, "Sample"

End Sub

No.1 ベストアンサー 回答者： ママチャリ 回答日時： 2020/09/26 21:38

こんなので、参考になりますか？

Sub 開始()
Application.Calculation = xlAutomatic
Call sample
End Sub

Sub 一時停止()
Application.Calculation = xlManual
End Sub

Sub sample()
Dim myTime As Date
myTime = CDate(Format(Now() + TimeValue("00:00:01"), "hh:mm:ss"))
Range("A1").Value = Now()
Columns("A").AutoFit
If Application.Calculation = xlAutomatic Then
Application.OnTime myTime, "Sample"
End If
End Sub

この回答へのお礼

おはようございます。

返答が遅くなりました。
お許しください。

トライの結果上手くできました。
ありがとうございます。

お礼日時：2020/09/27 05:26