返回列表下一主題上一主題發帖

[發問] 程序停止發問

blue2263

中學生 Rank: 2

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-9-4 23:23 | 顯示全部帖子

[發問] 程序停止發問

請教大大以下兩個問題
問1, 我想寫一個停止程序,停止 a123程序,所有項未執行的程序,請教程式碼要如何寫?
問2, 有沒有辦法先判斷,程序是否有排入時程, 確定沒有在執行 Application.OnTime TimeValue("08:43:00"), "程序1" 的方法?

sub a123()　
Application.OnTime TimeValue("08:43:00"), "程序1"
Application.OnTime TimeValue("09:45:00"), "程序2"
Application.OnTime TimeValue("15:45:00"), "程序3"
end sub

樓主熱帖

blue2263

中學生 Rank: 2

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

2^#

發表於 2018-9-6 06:51 | 顯示全部帖子

回復 2# faye59

謝謝F大解答

程序加入顯示文字,雖然可以知道執行程序在那一個
但是因為排定時程的程序有可能是同一個,且程序太多,也會不好判斷

針對我的問題我在寫詳細一點
問1: 8:30執行( a123程序),我在8:50想停止預定9:45 & 15:45 執行的程序 ,請教程式碼要如何寫?
問2: 問1的問題解決後,己可解決我的問題,我只是想了解,有沒有方法知道,排定程序是否己取消執行

TOP

blue2263

中學生 Rank: 2

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

3^#

發表於 2018-9-6 22:14 | 顯示全部帖子

回復 4# faye59

F大您好
我執行(停止執行)程序,依舊無法停止(每分迴圈)程序
不好意思我是初學者,可否請F大大詳解

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 停止執行()
Application.EnableCancelKey = xlInterrupt
End Sub

TOP

blue2263