vba - VBA 停止 OnTime 函数
问题描述
有人可以帮我如何停止 OnTime 功能吗?它不像我尝试的那样工作。
Option Explicit
Dim iTimerSet As Double
Public Sub FXKurs_Wahl()
iTimerSet = Now + TimeValue("00:05:00")
Application.OnTime iTimerSet, "FXKurs_Wahl"
End Sub
Public Sub EndeUhr()
On Error Resume Next
Application.OnTime iTimerSet, "FXKurs_Wahl", , False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call EndeUhr
End Sub
谢谢!
解决方案
如Application.OnTime 方法的文档中所述
设置
Schedule
为False
清除先前设置的具有相同Procedure
和EarliestTime
值的过程。
语法是.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
所以如果你用
Application.OnTime iTimerSet, "FXKurs_Wahl"
要启动它,您需要使用
Application.OnTime EarliestTime:=iTimerSet, Procedure:="FXKurs_Wahl", Schedule:=False
阻止它。请注意,iTimerSet
两者的值必须相同。
确保如果您FXKurs_Wahl
多次运行,您将需要删除多个OnTime
程序。还要确保没有其他代码操纵该iTimerSet
值。
如果可能发生FXKurs_Wahl
多次运行,请尝试在添加新的之前删除旧的OnTime
Public Sub FXKurs_Wahl()
EndeUhr 'remove the old one before setting a new one
iTimerSet = Now + TimeValue("00:05:00")
Application.OnTime iTimerSet, "FXKurs_Wahl"
End Sub
推荐阅读
- kotlin - Kotlin 如何在“返回(对象:接口){}”中使用它
- typescript - VSCode 中的 IntelliSense 在出现错误时无法正常工作
- reactjs - 在 useRef 中存储地图对象
- javascript - 在 React TypeScript 中异步/等待页面重新加载
- python - 如何批量读取图像和标签
- reactjs - 如何在材质 UI createStyles 中扩展类
- ruby-on-rails - Rails/Capybara:如何使 attach_file 与主动存储直接上传一起使用?
- python - 有人可以帮我理解这段代码吗?
- python - Django forms.PasswordInput() 更新了我的应用程序主密码
- postgresql - Postgres Docker 容器无法以 psql 启动:错误:连接到套接字“/var/run/postgresql/.s.PGSQL.5432”f 上的服务器