1234
返回列表 上一主題 發帖

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

三寶

帖子
20 
主題
2 
精華
0 
積分
28 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2010-10-10 
最後登錄
2010-11-3 
1# 跳轉到 »
發表於 2010-10-18 15:00 | 只看該作者

想請教-在設定的時間自動執行巨集,VBA該如何寫?

我需要寫一個VBA,
內容很簡單,
就像下面這樣:

早上09:05:12
marco1

早上09:08:32
marco2

早上10:35:26
marco3
.
.
.
.
.
.
.
.
我巨集很多,不列出了
巨集我會自己錄
但是我寫不出"時間"的語法,
就是電腦系統時間到了,會自動執行巨集這樣子,
網路上有很多用Timer設定的方式,
講真的,我實在看不懂如何設定Timer,
好像要去算幾秒鐘是吧?然後會自動跳到下一列,
但是因為我時間不固定,
我想要隨時去改VBA裡的時間,
請教各位達人,
這該如何寫?
謝謝....

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2010-10-18 16:09 | 只看該作者
Application.OnTime "9:05:12", "marco1"

TOP

三寶

帖子
20 
主題
2 
精華
0 
積分
28 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2010-10-10 
最後登錄
2010-11-3 
3#
發表於 2010-10-18 16:33 | 只看該作者
不好意思,oobird版大,
請問這一句要放在哪裡啊?
放在marco1前面,還是放在marco1裡面?
要怎麼樣才會打開工作表後就可以自動執行呢?
感謝你....

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
4#
發表於 2010-10-18 16:47 | 只看該作者
Sub auto_open()
Application.OnTime "9:05:12", "marco1"
Application.OnTime "9:08:32", "marco2"
.....................................
...............................
end sub
放在module中。

TOP

三寶

帖子
20 
主題
2 
精華
0 
積分
28 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2010-10-10 
最後登錄
2010-11-3 
5#
發表於 2010-10-19 00:56 | 只看該作者
本帖最後由 GBKEE 於 2010-10-19 06:53 編輯

感謝oobird版大回覆,但是無法執行
以下是我測試的巨集:
Sub auto_open()
Application.OnTime "00:50:35", "marco1"
Application.OnTime "00:50:50", "marco2"
End Sub

Sub Macro1()

    Range("A1:D1").Select
    Selection.Copy
    Range("A2:D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub


Sub Macro2()

    Range("A1:D1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A3:D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

我按執行auto_open ,然後等時間到
它告訴我"找不到巨集"
我都放在同一個Module裡面,
但是它說找不到,
我如果直接按執行巨集,是可以執行的
請問為什麼找不到巨集呢?
是不是漏了什麼?
謝謝....

TOP

三寶

帖子
20 
主題
2 
精華
0 
積分
28 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
註冊時間
2010-10-10 
最後登錄
2010-11-3 
6#
發表於 2010-10-19 00:58 | 只看該作者
呃....
那個Range裡面是選取的儲存格D啦,
貼到版上變成笑臉了...呵呵...

TOP

GBKEE

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

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

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

TOP

三寶

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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

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

TOP

三寶

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

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
1234
返回列表 上一主題