' 処理を2秒止める
Dim newHour
Dim newMinute
Dim newSecond
Dim waitTime
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2 ' <---- 2秒止める
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
−−−−−−−−−−−−
Excel.Application.Wait(Now + TimeValue("0:00:10"))
Application.OnTime Now + TimeValue("00:00:01"), "Module1.kaisi_no_syori"