date+now+自定義格式+宏

代碼

Sub 計算()

Calculate

Application.OnTime Now + TimeValue("00:00:01"), "計算"

End Sub