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

f3202

回復 10# t8899

text版已寄到信箱

c_c_lai

回復 8# t8899
有以下之模式可供你選用：
(一)

1. 置於模組 Module1 內：
   
2. Private Sub Auto_Open()
   
3.     Ex
   
4. End Sub
   
5. 
   
6. Sub Ex()
   
7.     Static cts
   
8.    
   
9.     cts = cts + 1
   
10.     Cells(cts, 1).Value = "Here I Am!"
    
11.    
    
12.     Application.OnTime (Now + TimeValue("00:03:00")), "Module1.Ex"
    
13. End Sub

複製代碼

(二)

1. 置於 ThisWorkbook 內：
   
2. Private Sub Workbook_Open()
   
3.     Ex
   
4. End Sub
   
5. 
   
6. Sub Ex()
   
7.     Static cts
   
8.    
   
9.     cts = cts + 1
   
10.     Cells(cts, 1).Value = "Here I Am!"
    
11.    
    
12.     Application.OnTime (Now + TimeValue("00:03:00")), "ThisWorkbook.Ex"
    
13. End Sub

複製代碼

(三)

1. 置於模組 Module1 內：
   
2. Private Sub Auto_Open()
   
3.     工作表1.Ex
   
4. End Sub
   
5. 
   
6. 置於 工作表1 內：
   
7. Sub Ex()
   
8.     Static cts
   
9.    
   
10.     cts = cts + 1
    
11.     Cells(cts, 1).Value = "Here I Am!"
    
12.    
    
13.     Application.OnTime (Now + TimeValue("00:03:00")), "工作表1.Ex"
    
14. End Sub

複製代碼

自我感覺良好

stop.rar (8.16 KB)

下載次數: 3

2013-1-26 09:40

Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: Ctrl+p
'
[a1] = [a1] + 1
Application.OnTime Now + TimeValue("00:00:05"), "Sheet1.a123"
End Sub


呀﹗請問要怎樣停止？

自我感覺良好

原來是這樣子
http://office.microsoft.com/zh-tw/excel-help/HP005203075.aspx

停止巨集
全部顯示全部顯示

請執行下列其中一項動作：

    如果您要停止一個目前使用中的巨集，請按 ESC，然後按一下 [Microsoft Visual Basic] 對話方塊上的 [結束]。
    如果您想要避免在啟動 Microsoft Excel 時自動執行巨集，請在啟動時按住 SHIFT。

e-bbm

第1+a 的row 放入時間

loquat

没有权限下载附件，主要是自己水平太菜啊

GBKEE

還是動不了
Cells(1 + a, 1) = Time ===>是什意思
t8899 發表於 2013/1/22 23:56

查看VBA的說明可了解

t8899

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

GBKEE

回復 1# t8899
在這  Sub amou() 的模組頂端宣告 runtime2 為公用變數
如此 Sub a123() 才可得到runtime2 變數

1. Public runtime2 As Date
   
2. Sub amou()
   
3. 'Dim runtime2 As Date 不要再宣告 runtime2 變數
   
4. Range("a1") = Range("a1") + 1
   
5. runtime2 = Now + TimeValue("00:00:10")
   
6. Application.OnTime runtime2, "amou"
   
7. End Sub

複製代碼

t8899

回復  t8899
在這  Sub amou() 的模組頂端宣告 runtime2 為公用變數
如此 Sub a123() 才可得到runtime2  ...
GBKEE 發表於 2015-3-29 10:01

謝謝!幾秒執行一次有無其他方法??
尤其像1秒1次(時鐘)，滑鼠指標會變成漏斗一閃一閃的狀態...