Dim RunTime As Date
Dim Counter As Integer
Sub ScheduleTask()
RunTime = Now + TimeValue("00:00:05") ' 5秒后执行
' 设置执行次数
Counter = 5
' 调用指定的过程
Application.OnTime RunTime, "MyTask"
End Sub
Sub MyTask()
' 在此处编写定时任务的代码
MsgBox "定时任务执行了!剩余执行次数:" & Counter
' 减少剩余执行次数
Counter = Counter - 1
If Counter > 0 Then
' 设置下一次执行的时间
RunTime = Now + TimeValue("00:00:05") ' 5秒后执行
Application.OnTime RunTime, "MyTask"
End If
End Sub
不知道这个能不能实现你的需求
创作者俱乐部成员