返回列表 上一主題 發帖

[發問] 程序停止發問

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-20 
1# 跳轉到 »
發表於 2018-9-8 09:20 | 顯示全部帖子
Public xTime  '設為共用變數, 放在記憶中可供其它程序存取

Sub 每分迴圈()
xTime = TimeSerial(Hour(Time), Minute(Time) + 1, 0)
Application.OnTime xTime, "每分迴圈"
With ThisWorkbook.Worksheets("工作表1")
    .Cells(1, 1) = .Cells(1, 1) + 1
End With
End Sub

Sub 停止執行()
On Error Resume Next  '(略過錯誤) 若預訂執行的程式已不存在, 不發生錯誤
Application.OnTime xTime, "每分迴圈", Schedule:=False  '取消預訂執行程序
On Error GoTo 0
End Sub


如果預訂執行的程序有很多個, 則 [預訂時間] 變數 須用其他變數或物件存效, 再逐一取消

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表 上一主題