t8899

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-25

1^# 跳轉到 »

發表於 2013-1-22 16:04 | 顯示全部帖子

工作表每三分鐘自動執行某巨集

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

TOP

t8899

大學生 Rank: 4

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-25

2^#

發表於 2013-1-22 19:48 | 顯示全部帖子

回復 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"的巨集)

TOP

t8899

大學生 Rank: 4

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-25

3^#

發表於 2013-1-22 21:30 | 顯示全部帖子

在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" ???

TOP

t8899

大學生 Rank: 4

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-25

4^#

發表於 2013-1-22 21:44 | 顯示全部帖子

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

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

TOP

t8899

大學生 Rank: 4

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-25

5^#

發表於 2013-1-22 22:00 | 顯示全部帖子

回復 7# t8899
可以麻煩寄到我的信箱嗎??
[email protected]

TOP

t8899

大學生 Rank: 4

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-25

6^#

發表於 2013-1-22 23:56 | 顯示全部帖子

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

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

TOP

t8899

大學生 Rank: 4

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-25

7^# 倒序看帖

打印

字體大小: tT

發表於 2015-3-29 08:33 | 顯示全部帖子

[發問] Application.OnTime 無法終止 ?

Sub amou()
Range("a1") = Range("a1") + 1
runtime2 = Now + TimeValue("00:00:10")
Application.OnTime runtime2, "amou"
End Sub

Sub a123()
On Error Resume Next
'Application.OnTime EarliestTime:=TimeValue(Runtime2), _
' Procedure:="amou", Schedule:=False
' Application.OnTime EarliestTime:=Runtime2, _
' Procedure:="amou", Schedule:=False
Application.OnTime runtime2, "amou", Schedule:=False
On Error GoTo 0
End Sub