Application.OnTime 無法終止 ? - Excel程式區

t8899

大學生 Rank: 4

帖子: 765
主題: 255
精華: 0
積分: 1033
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-11-2

1^# 跳轉到 »

發表於 2013-1-22 16:04 | 只看該作者

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

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

TOP

f3202

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2025-9-6

2^#

發表於 2013-1-22 17:58 | 只看該作者

回復 1# t8899

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

TOP

t8899

大學生 Rank: 4

帖子: 765
主題: 255
精華: 0
積分: 1033
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-11-2

3^#

發表於 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

4^#

發表於 2013-1-22 20:43 | 只看該作者

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

TOP

t8899

大學生 Rank: 4

帖子: 765
主題: 255
精華: 0
積分: 1033
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-11-2

5^#

發表於 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

oobird