1234
返回列表 上一主題 發帖

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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
17# 跳轉到 »
發表於 2010-10-19 20:35 | 只看該作者
第一行：
Sub Ex()
顯示不完全。我試了完全ok。

TOP

三寶

帖子
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
然後執行
它說....編譯錯誤,必須是:=.....
不好意思,還是我放錯地方了?
麻煩你了,謝謝.

TOP

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 明天再試試看
  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
複製代碼

TOP

三寶

帖子
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
可是這樣都不會動耶,
是哪裡寫錯了嗎?
謝謝.

TOP

三寶

帖子
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
可是都不會動耶....
請問哪裡錯了?
謝謝.

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

TOP

三寶

帖子
20 
主題
2 
精華
0 
積分
28 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2010-10-10 
最後登錄
2010-11-3 
11#
發表於 2010-10-19 14:56 | 只看該作者
不好意思,
可以再請教一下,
如果我要加上日期,
該怎麼寫?
謝謝....

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
10#
發表於 2010-10-19 13:36 | 只看該作者
不怪你，要怪我。
代碼不夠人性化，它應該要自己會判斷套用的！

TOP

三寶

帖子
20 
主題
2 
精華
0 
積分
28 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2010-10-10 
最後登錄
2010-11-3 
9#
發表於 2010-10-19 11:14 | 只看該作者
啊!!
真的...
我這豬頭,
感謝GBKEE版大細心
問題解決了,
謝謝.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2010-10-19 06:53 | 只看該作者
本帖最後由 GBKEE 於 2010-10-19 07:02 編輯

回復 6# 三寶
不要有   發文時下面的選項要勾選 [禁用表情]
marco1<>Macro1 你的字母顛倒了

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
1234
返回列表 上一主題