三寶

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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

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

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

謝謝.

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

36^#

發表於 2010-10-22 07:55 | 只看該作者

回復 35# 三寶
Hsieh版主的程式碼Application.OnTime時所執行的程序要加上引數
程序有引數時呼叫此程式必須在空一格後加上引數程序的引數有指定型態時引數要是同型態
複製程式碼執行看看
Sub test()
mytime = Now
mystr = "'nn " & Chr(34) & mytime & Chr(34) & "'"
MsgBox mystr
Application.OnTime mytime, mystr
End Sub
Sub nn(T As Date) '引數型態是日期
MsgBox "執行時間"&t
End Sub

TOP

三寶

小學生 Rank: 1

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

35^#

發表於 2010-10-22 00:44 | 只看該作者

回復 30# basarasy
嗯,對啊,目前我試了是這樣沒錯,
不過要指定日期
If Date="2010/10/21" Then
這樣的話,只有在指定那一天的那個時間才會RUN
過了那個時間再RUN EX,它也不會RUN
可是沒有指定日期的話,那過了那個時間它還是會再RUN一次,
因為Hsieh版大寫的VBA我看不懂,
所以我還是用GBKEE版大的方法做,
到現在試起來是OK的,
你試試看吧,如果有發現什麼行不通的地方,
再通知一下,
說不定我沒發現到,
謝謝.

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

34^#

發表於 2010-10-22 00:11 | 只看該作者

謝謝大大.
但我是想問
指定時間(9:00:10)
在8:59:59 RUN EX
等到9:00:10  自動RUN "????"

9:00:11  RUN EX  不會RUN "????"

50 字節以內
不支持自定義 Discuz! 代碼

TOP

三寶

小學生 Rank: 1

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

33^#

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

本帖最後由三寶於 2010-10-21 23:23 編輯

回復 30# basarasy

我按照GBKEE版大的寫法,
就會達成你的要求啦
時間沒到不會RUN
時間過了也不會RUN
應該沒錯,你再試試看吧...

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

32^#

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

回復 30# basarasy
是不是如此

Sub Ex()
If Time > TimeValue("09:00") And Time < TimeValue("13:30") Then
Application.OnTime Time + TimeValue("00:00:10"), "????"
End If
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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