
何秒後、何分後かにアプリが停止するときなどにに使えます。
セルの書式設定を「時刻」に設定してください。
————————
Option Explicit
Private Sub CommandButton1_Click()
‘ここでは5秒経過後に処理(時間を表示)する
Dim waitTime As Variant
Range(“C1”).Value = “”
waitTime = Now + TimeValue(“0:00:05”)
Application.Wait waitTime
Range(“C1”).Value = Now
End Sub
—————————-