如何打开EXCEL时让宏再指定时间自动执行？

已经设定了打开工作簿自动执行宏，如何在指定时间段内自动执行？比如：9:30至11:30,13;00至15:00两个时间段每十分钟自动执行一次。... 已经设定了打开工作簿自动执行宏，如何在指定时间段内自动执行？比如：9:30至11:30,13;00至15:00两个时间段每十分钟自动执行一次。展开

 我来答

1个回答

#热议# 应届生在签三方时要注意什么？

TAT萝卜
推荐于2017-09-11 · TA获得超过4972个赞

知道大有可为答主

回答量：3084

采纳率：66%

帮助的人：1120万

我也去答题访问个人页

关注

展开全部

在Workbook_Open()里添加：

time0=TimeValue("9:30:00")
for i=0 to 11
Application.OnTime time0+i*TimeValue("0:10:00"), "test"
next

可以实现在9:30-11:30，每10分钟自动运行宏test

追问

第一次自动执行我只需要打开EXCEL执行就行了，这个已弄好。

现在需要在上面两个时间段内每十分钟执行一次

追答

原来的宏是在Workbook_Open()里？
需要把该宏移到模块里，命名为比如test
然后，Workbook_Open()宏的内容大概是：
call test '第一次运行
 
time0=TimeValue("9:30:00")
for i=0 to 11
Application.OnTime time0+i*TimeValue("0:10:00"), "test"
next
 
time0=TimeValue("13:00:00")
for i=0 to 11
Application.OnTime time0+i*TimeValue("0:10:00"), "test"
next