[已解决]application ontime的终止

金樽空对月

VB中怎样终止正在运行的timer程序，还有在excel VBA中怎样终止正在快速运行的ontime循环程序的运行？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-4-5 09:03

金樽空对月 发表于 2014-4-5 03:57
我的程序语句是这样的：
dim runtime as date
sub runtimer()

0.9秒，你的代码来得及嘛。
时间间隔设置长点，多个几秒看效果。
0.9秒，代码直接运行不停的。

1. Dim runtime As Date
   
2. Sub runtimer()
   
3.     Dim x
   
4.     For x = 1 To 20
   
5.         Cells(1, 1) = x + 1
   
6.     Next x
   
7.     Debug.Print Now
   
8.     runtime = DateAdd("s", 5, Now)
   
9.     Application.OnTime runtime, "runtimer"
   
10. 
    
11. End Sub
    
12. 
    
13. Sub teest()
    
14.     Application.OnTime runtime, "runtimer", , False
    
15. End Sub

复制代码

跳转到最佳答案楼层

759857387

Sub stoptime()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "*****", , False     '*****替换为你的
End Sub

hwc2ycy

时间和过程要一一对应，否则没法取消，只有关闭EXCEL再开了。

金樽空对月

759857387 发表于 2014-4-4 22:52
Sub stoptime()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "***** ...

我的程序语句是这样的：
dim runtime as date
sub runtimer()
dim x
for x=1 to 20
cells(1,1)=x+1
next x
runtime=dateadd("s",0.9,now)
application.ontime runtime,"runtimer"
end sub

金樽空对月

金樽空对月 发表于 2014-4-5 03:57
我的程序语句是这样的：
dim runtime as date
sub runtimer()

还是没办法让它停止

hwc2ycy

金樽空对月 发表于 2014-4-5 03:57
我的程序语句是这样的：
dim runtime as date
sub runtimer()

0.9秒，你的代码来得及嘛。
时间间隔设置长点，多个几秒看效果。
0.9秒，代码直接运行不停的。

1. Dim runtime As Date
   
2. Sub runtimer()
   
3.     Dim x
   
4.     For x = 1 To 20
   
5.         Cells(1, 1) = x + 1
   
6.     Next x
   
7.     Debug.Print Now
   
8.     runtime = DateAdd("s", 5, Now)
   
9.     Application.OnTime runtime, "runtimer"
   
10. 
    
11. End Sub
    
12. 
    
13. Sub teest()
    
14.     Application.OnTime runtime, "runtimer", , False
    
15. End Sub

复制代码

Marcoyang

hwc2ycy 发表于 2014-4-4 23:22
时间和过程要一一对应，否则没法取消，只有关闭EXCEL再开了。

您说的一一对应是什么意思，我也遇到了这个问题呢，尝试了很多种都无法关闭Application.ontime

he32176201

Marcoyang 发表于 2017-6-27 10:10
您说的一一对应是什么意思，我也遇到了这个问题呢，尝试了很多种都无法关闭Application.ontime

Sub CloseTimeOn()
Application.OnTime theTime, "TimeOn", , False
End Sub
thisworkbook beforeclose代码：
call CloseTimeOn

说明:如上例thetime是动态的模块变量，将closetimeon过程放在定义thetime的同一个过程，那么在thisworkbook beforeclose事件call这个closetimeon过程可以保证动态ontime变量值一致。