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

三寶

繼上一次提問設定時間自動執行巨集之後,
感謝版主大大鼎力相助,已解決小弟的問題
想再請教,
如果我想加入"日期"的話,
該怎麼寫呢?
就是設定:
2010年10月19日,早上09:00:00
macro1
這樣.

謝謝.

oobird

前面加一行if data <> "某某日" then exit sub

三寶

感謝oobird版大,
你的意思是這樣嗎?
Sub auto_open()
If Data <> "2010,10,19" Then Exit Sub
Application.OnTime "16:11:50", "macro1"
End Sub
可是都不會動耶....
請問哪裡錯了?
謝謝.

三寶

感謝oobird版大,
你的意思是這樣嗎?
Sub auto_open()
If Data <> "2010,10,19" Then exit sub
Application.OnTime "16:23:30", "macro1"
End Sub
可是這樣都不會動耶,
是哪裡寫錯了嗎?
謝謝.

GBKEE

回復 14# 三寶
你執行 Application.OnTime "16:23:30", "macro1"  時間有超過 "16:23:30" 嗎?
執行Ex() 後不要關閉Excel 明天再試試看

1. Sub Ex()
   
2. Application.OnTime "2010/10/20 09:00", "Macro1"
   
3. End Sub
   
4. Sub Macro1()
   
5. MsgBox Format(Now, "YYYY/M/D  H:M:ss")
   
6. End Sub

複製代碼

三寶

感謝GBKEE版大回覆
我在執行Application.OnTime "16:23:30", "macro1"  的時候沒有超過 "16:23:30"
因為我有一直改時間,然後等它執行.
我把你的VBA語法貼在Module 2
然後執行
它說....編譯錯誤,必須是:=.....
不好意思,還是我放錯地方了?
麻煩你了,謝謝.

oobird

第一行：
Sub Ex()
顯示不完全。我試了完全ok。

GBKEE

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

三寶

感謝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).....
嗯...還有很多要學的,
謝謝你們.

GBKEE

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