首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

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

2012-02-19 
如果使过程每过一段时间自动运行(VBA)RT[解决办法]参考如下程序:Sub auto_open()MsgBox 欢迎你,在这篇文

如果使过程每过一段时间自动运行(VBA)
RT

[解决办法]
参考如下程序:
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
[解决办法]
Public Sub saveit() 
这个程序你放在哪儿了? 要把它放到一个新添加的模块中,而不是sheet1/sheet2/.../ thisworkbook 这些模块中。

热点排行