如果使过程每过一段时间自动运行(VBA)解决方法

如果使过程每过一段时间自动运行(VBA)RT——解决方案——————————————————–参考如下程序：Sub auto_open()MsgBox "欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！", vbInformation, "请注意！"Call runtimer ‘打开文档时自动运行End SubSub runtimer()Application.OnTime Now + TimeValue("00:00:05"), "saveit"’ Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。End SubSub SaveIt()msg = MsgBox("朋友，你已经工作很久了，现在就存盘吗？" & Chr(13) _& "选择是：立刻存盘" & Chr(13) _& "选择否：暂不存盘" & Chr(13) _& "选择取消：不再出现这个提示", vbYesNoCancel + 64, "休息一会吧！")’提示用户保存当前活动文档。If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit SubCall runtimer ‘如果用户没有选择取消就再次调用 RuntimerEnd Sub——解决方案——————————————————–Public Sub saveit() 这个程序你放在哪儿了？ 要把它放到一个新添加的模块中，而不是sheet1/sheet2/…/ thisworkbook 这些模块中。当一个人真正觉悟的一刻，他放弃追寻外在世界的财富，