t8899

想在sheet1 每三分鐘就自動執行"123"巨集(Sub 123())一次,要如何寫??

f3202

回復 1# t8899


     Application.OnTime Now + TimeValue("00:03:00"), "123"

t8899

回復  t8899


     Application.OnTime Now + TimeValue("00:03:00"), "123"
f3202 發表於 2013-1-22 17:58

我在sheet1 用mouse 按右鍵"檢視程式碼" 將 Application.OnTime Now + TimeValue("00:03:00"), "123"  貼入 等三分沒反應??
前面要加什麼嗎??? (從alt-f8 確實有"123"的巨集)

oobird

在sheet1 用mouse 按右鍵"檢視程式碼" 將 Application.OnTime Now + TimeValue("00:03:00"), "123"  貼入
這樣是建立在sheet1所屬模組，應該要指定工作表：Application.OnTime Now + TimeValue("00:03:00"), "Sheet1.123"
不過程式名可以用數字嗎？

t8899

在sheet1 用mouse 按右鍵"檢視程式碼" 將 Application.OnTime Now + TimeValue("00:03:00"), "123"  貼入
...
oobird 發表於 2013-1-22 20:43

改成 "Sheet1.123" 三分後也沒反應?

另外測試
按右鍵"檢視程式碼"
加入以下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call t
End Sub
Sub t()
Application.OnTime Now + TimeValue("00:01:00"), "123"
End Sub

請問這執行第一次正常 ,但第二次第三次......沒等1分鐘開始一直重覆執行"123" ???

oobird

给你個例子
Book1.zip (5.58 KB)

下載次數: 31

2013-1-22 21:37

t8899

给你個例子
oobird 發表於 2013-1-22 21:37

抱歉，小弟等級太低，無權下載附件

t8899

回復 7# t8899
可以麻煩寄到我的信箱嗎??
pianocat91@hotmail.com

f3202

回復 8# t8899
例(放置在sheet1)
Sub a123()
Cells(1 + a, 1) = Time '您要做的動作
Application.OnTime Now + TimeValue("00:03:00"), "Sheet1.a123"
End Sub

t8899

回復  t8899
例(放置在sheet1)
Sub a123()
Cells(1 + a, 1) = Time '您要做的動作
Application.OnTime ...
f3202 發表於 2013-1-22 22:08

還是動不了
Cells(1 + a, 1) = Time ===>是什意思