在线观看亚洲精品专区-在线观看亚洲免费-在线观看亚洲免费视频-在线观看亚洲欧美-欧美freexxx-欧美free嫩交video

VIP標識 上網做生意,首選VIP會員| 設為首頁| 加入桌面| 收藏本頁| 手機版| RSS訂閱
食品伙伴網服務號
 

第七課如何在Excel里使用定時器

放大字體  縮小字體 發布日期:2006-06-16

用過 Excel 97 里的加載宏 "定時保存" 嗎?可惜它的源程序是加密的,現在就上傳一篇介紹實現它的文檔。

在 Office 里有個方法是 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

以上只是兩個簡單的例子,有興趣的話,可以利用 Application.Ontime 這個函數寫出更多更有用的定時程序。

 
[ 網刊訂閱 ]  [ 食品專題搜索 ]  [ 加入收藏 ]  [ 告訴好友 ]  [ 打印本文 ]  [ 關閉窗口 ] [ 返回頂部 ]
更多

 

 
推薦圖文
推薦食品專題
點擊排行
 
 
Processed in 0.515 second(s), 815 queries, Memory 2.7 M
51La
主站蜘蛛池模板: 四虎影像| 亚洲性天堂 | 天天干天天操天天操 | 天天做天天爱天天爽综合网 | 中文字幕xxx | 天堂视频在线免费观看 | 99自拍视频| 色多多·com| 天天综合网天天综合色 | 黄网站免费视频 | 国产一区二区播放 | 人人草人| 中文字幕11页 | 红色一级毛片 | 欧美一卡二三卡四卡不卡 | 四虎影视在线观看 | 国产精品第9页 | 99久久国产免费 - 99久久国产免费 | 永久黄网站色视频免费观看 | 色综合成人网 | 成人网在线视频 | 天堂在线免费视频 | 99久久国产免费中文无字幕 | 456成人| 久久这里精品青草免费 | 欧洲性开放大片免费观看视频 | 日韩一级生活片 | 男啪女视频免费观看网站 | 国产特黄1级毛片 | 国产精品午夜国产小视频 | 欧美色欧美亚洲高清在线视频 | 欧美一卡二卡科技有限公司 | a毛片基地免费全部香蕉 | 欧美日操 | 亚洲第一区视频 | 911精品国产91久久久久 | 尻美女视频 | 黄色三级国产 | 中国美女一级黄色片 | 欧美午夜精品久久久久久黑人 | 人人艹在线 |