返回列表 上一主題 發帖

[發問] 開啟excel檔案後 ，倒數一段時間(或到了設定時間)即執行另一段程式的寫法

ji12345678

帖子
28 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
SP2 
閱讀權限
20 
性別
女 
註冊時間
2012-5-4 
最後登錄
2016-9-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-16 16:47 | 只看該作者

[發問] 開啟excel檔案後 ，倒數一段時間(或到了設定時間)即執行另一段程式的寫法


Sub Workbook_open()
DoEvents  '？
'Application.OnTime "16:06:50", "StartTimer2", schedule:=True                 '設定時間觸發
Application.OnTime Now + TimeValue("00:00:05"), "StartTimer2", schedule:=True '到數觸發

End Sub
Sub StartTimer2()
MsgBox "資料複製結束"
End Sub

要寫一段測試程式，開啟excel檔案後 ，倒數一段時間(或到了設定時間)即執行另一段程式的寫法
可是一直出現錯誤訊息，請大大指教~~為什麼會這樣~~。謝謝



test-101.5.13.rar (5.86 KB)
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-5-16 17:05 | 只看該作者
回復 1# ji12345678


如圖,把
Sub StartTimer2()
MsgBox "資料複製結束"
End Sub
移至一般模組內

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題