| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1089 人关注过本帖
标题:在Excel里设置自动保存时间
只看楼主 加入收藏
yueyiggjjddmm
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2007-12-26
收藏
 问题点数:0 回复次数:5 
在Excel里设置自动保存时间
我在Excel里做了一个保存按钮,点击一下就保存一次,我想设置点击一下,在30分钟再保存一次,代码怎么写?
搜索更多相关主题的帖子: Excel 自动 保存 时间 
2008-11-18 12:14
baidu
Rank: 3Rank: 3
等 级:新手上路
威 望:8
帖 子:3811
专家分:0
注 册:2005-11-4
收藏
得分:0 
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

偶放弃所有文章版权,偶在BCCN论坛任何贴子,可转贴,可散发,可抄袭,可复制,可被冒名顶替,可被任何人引用到任何文章中且不写出引文出处,偶分文不取。
2008-11-18 14:06
yueyiggjjddmm
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2007-12-26
收藏
得分:0 
我吧代码放进去后 显示未找到宏“saveit"
2008-11-19 14:20
pariszh
该用户已被删除
收藏
得分:0 
提示: 作者被禁止或删除 内容自动屏蔽
2008-11-19 21:58
yueyiggjjddmm
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2007-12-26
收藏
得分:0 
搞定了,谢谢你们
2008-11-20 13:57
快速回复:在Excel里设置自动保存时间
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023819 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved