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

三寶

小學生 Rank: 1

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

27^# 跳轉到 »

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

感謝GBKEE版大提供更簡潔的寫法,
這樣可以少打很多字了,
謝謝.....

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兔年全勤獎章

26^#

發表於 2010-10-20 22:31 | 只看該作者

回復 25# 三寶

Sub EX()
If Date = "2010/10/20" Then
Application.OnTime "21:15:00", "macro1"
ElseIf Date = "2010/10/21" Then
Application.OnTime "21:17:20", "macro2"
ElseIf Date = "2010/10/22" Then
Application.OnTime "21:26:00", "macro3"
End If
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

超級版主 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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 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

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

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兔年全勤獎章

20^#

發表於 2010-10-20 06:55 | 只看該作者

回復 19# 三寶
不過Application這一句不能直接放在macro1裡
你如何寫 PO 上看看

TOP

三寶

小學生 Rank: 1

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

19^#

發表於 2010-10-19 23:06 | 只看該作者

感謝oobird,GBKEE版大熱心解惑,
Sub Ex()
Application.OnTime "2010/10/20 09:00", "Macro1"
End Sub
已經試過完全可行了,
Sub auto_open()也可以,
我發現隨便Sub什麼都行,sub aa()也可以
重點是日期的表示方法,要用2010/10/19
我之前一直用2010,10,19....所以不行
不過Application這一句不能直接放在macro1裡
它說....編譯錯誤,引數不為選擇性(optional).....
嗯...還有很多要學的,
謝謝你們.

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兔年全勤獎章

18^#

發表於 2010-10-19 21:16 | 只看該作者

回復 17# oobird
多謝指正已修正
回復 16# 三寶
貼在Module2 注意如Module1裡還有相同名稱 Sub Macro1() 時
需指明是哪一個模組 Application.OnTime "2010/10/20 09:00", "Module2.Macro1"

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]