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

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

11^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

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

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

謝謝.

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

12^#

發表於 2010-10-19 15:31 | 只看該作者

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

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

13^#

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

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

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

14^#

發表於 2010-10-19 17:02 | 只看該作者

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

GBKEE

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

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

15^#

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

本帖最後由 GBKEE 於 2010-10-19 21:11 編輯

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

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

複製代碼

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

16^#

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

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

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

17^#

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

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

GBKEE

帖子: 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"

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

GBKEE

帖子: 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 上看看