如何在Excel中编写定时运行宏和延迟运行宏?
只需要使用到Application.OnTime语句就可以轻松完成。
一、Excel定时运行的宏代码示例
sub MyRunTime()
'在上午10:29 运行
Application.OnTime TimeValue("10:29:00"), "MySub"
End Sub
Sub MySub()
'这里输入您的VBA代码
End Sub
二、Excel延迟运行的宏代码示例
下面的例子中,让宏在一定的时间之后才运行(如 9秒)。用“Now + TimeValue(时间值)”来实现这个功能。
括号中的“时间值”定义了宏运行前要经过的小时、分钟和秒数。
Sub MyRunLaterTime()
'9秒钟后运行
Application.OnTime Now + TimeValue ("00:00:09"), "MySub"
End Sub
Sub MySub()
'这里输入您的VBA代码
End Sub