想請教-在設定的日期自動執行巨集

帖子: 20
主題: 2
精華: 0
積分: 28
點名: 0
作業系統: vista
軟體版本: office 2003
閱讀權限: 10
註冊時間: 2010-10-10
最後登錄: 2010-11-3

21^# 跳轉到 »

發表於 2010-10-20 14:41 | 只看該作者

感謝GBKEE版大,我是這樣寫啦:
Sub macro1()
Application.OnTime "2010/10/19 22:55:30"
MsgBox Format(Now, "YYYY/M/D H:M:ss")
End Sub
然後我直接執行macro1,
這樣沒辦法執行...
不過沒關係,我就放在Sub EX()就可以了,
謝謝.

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 150
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-6-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

22^#

發表於 2010-10-20 14:56 | 只看該作者

回復 21# 三寶
expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
OnTime必要引數
EarliestTime觸發時間
Procedure程序名稱

學海無涯_不恥下問

TOP

三寶

小學生 Rank: 1

帖子: 20
主題: 2
精華: 0
積分: 28
點名: 0
作業系統: vista
軟體版本: office 2003
閱讀權限: 10
註冊時間: 2010-10-10
最後登錄: 2010-11-3

23^#

發表於 2010-10-20 17:46 | 只看該作者

不好意思,我發現一個問題,我的VBA是這樣寫:
Sub EX()
Application.OnTime "2010/10/19 17:26:00", "macro1"
Application.OnTime "2010/10/20 17:26:00", "macro2"
Application.OnTime "2010/10/21 17:26:00", "macro3"
End Sub
我昨天執行正常,因為昨天是10月19日,10月20日還沒到,所以macro2跟macro3不會觸發,
可是今天再打開檔案,再執行EX,
結果發現昨天的macro1又再執行了一次,
而把今天的資料都蓋掉了,
這....這.....這該怎麼辦?
要怎麼寫才表示過了10月19日之後,就不會再次執行macro1呢?
謝謝.....

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

24^#

發表於 2010-10-20 19:54 | 只看該作者

回復 23# 三寶
遇到資料刪除無法復原時關閉檔案時選擇不要存檔重新開啟檔案就可以

Sub Ex()
Dim Macro$
If Date = "2010/10/19" Then
Macro = "Macro1"
ElseIf Date = "2010/10/20" Then
Macro = "Macro2"
ElseIf Date = "2010/10/21" Then
Macro = "Macro3"
End If
Application.OnTime "17:26:00", Macro
End Sub

複製代碼

TOP

三寶

小學生 Rank: 1

帖子: 20
主題: 2
精華: 0
積分: 28
點名: 0
作業系統: vista
軟體版本: office 2003
閱讀權限: 10
註冊時間: 2010-10-10
最後登錄: 2010-11-3

25^#

發表於 2010-10-20 21:29 | 只看該作者

感謝GBKEE版大熱心回覆,
我試過,可以解決了
不過我改成:
Sub EX()
If Date = "2010/10/20" Then
Application.OnTime "2010/10/20 21:15:00", "macro1"

ElseIf Date = "2010/10/21" Then
Application.OnTime "2010/10/21 21:17:20", "macro2"

ElseIf Date = "2010/10/22" Then
Application.OnTime "2010/10/22 21:26:00", "macro3"

End If
End Sub
這樣也行,重開檔案之後,不會再去執行昨天的macro了(我有改系統日期測試過),
因為我很多時間是不一樣的,這樣比較好改,
謝謝你,又多學了一招......

TOP

GBKEE