如何在Excel里使用定时器

用过Excel 97里的加载宏"定时保存"吗？可惜它的源程序是加密的，现在就上传一篇介绍实现它的文档。

在里有个方法是application.ontime，具体函数如下：

expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)

如果想进一步了解，请参阅Excel的帮助。

这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在Excel里编写自己的定时程序了。下面就举两个例子来说明它。

1.在下午17:00:00的时候显示一个对话框。

Sub Run_it()

Application.OnTime TimeValue("17:00:00"), "Show_my_msg"

'设置定时器在17:00:00激活，激活后运行Show_my_msg。

End Sub

Sub Show_my_msg()

msg = MsgBox("现在是17:00:00！", vbInformation, "自定义信息")

End Sub

2.模仿Excel 97里的"自动保存宏",在这里定时5秒出现一次

Sub auto_open()

MsgBox "欢迎你，在这篇文档里，每5秒出现一次保存的提示！", vbInformation, "请注意！"

Call runtimer '打开文档时自动运行

End Sub

Sub runtimer()

Application.OnTime Now + TimeValue("00:00:05"), "saveit"

' Now + TimeValue("00:15:00")指定在当前时间过5秒钟开始运行Saveit这个过程。

End Sub

Sub SaveIt()

msg = MsgBox("朋友，你已经工作很久了，现在就存盘吗？" & Chr(13) _

& "选择是：立刻存盘" & Chr(13) _

& "选择否：暂不存盘" & Chr(13) _

& "选择取消：不再出现这个提示", vbYesNoCancel + 64, "休息一会吧！")

'提示用户保存当前活动文档。

If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub

Call runtimer '如果用户没有选择取消就再次调用Runtimer

End Sub