Excel vba入门系列讲座(9)

Sub auto_open()

MsgBox \欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！\请注意！\ Call runtimer ’打开文档时自动运行 End Sub

Sub runtimer()

Application.OnTime Now + TimeValue(\ ’ Now + TimeValue(\指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。 End Sub

Sub SaveIt()

msg = MsgBox(\朋友，你已经工作很久了，现在就存盘吗？\

& \选择是：立刻存盘\ & \选择否：暂不存盘\

& \选择取消：不再出现这个提示\\休息一会吧！\

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

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

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

以上只是两个简单的例子，有兴趣的话，可以利用 Application.Ontime 这个函数写出更多更有用的定时程序。