VBA 43 计时器

 

 DoEvents非常有用，当前程序运行时，可以把控制权交给其他程序，动画演示图标时会用到这句代码，
DoEvents转让控制权，在运行一个程序时，可以运行另外一个程序。

例子，视频中是通过公共变量k来中止这个程序，但是没有测试成功。

'在单元格查看就像一个表，显示当前时间
Sub 时间显示()
Dim x
Dim k
k = 2

If k = 1 Then
    k = 0
    End
End If

Range("A11") = Format(Now, "h:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "时间显示"

'非常有用，当前程序运行时，可以把控制权交给其他程序，动画演示图标时会用到这句代码，
' 转让控制权，在运行一个程序时，可以运行另外一个程序
x = DoEvents

End Sub

 

在设置的时间到达时，或者给定的时间间隔后，调用已经编写好的A程序。

Sub test5()
' 在给定的时间调用编写的A程序
Application.OnTime TimeValue("22:57:06"), "A"

End Sub


Sub A()
MsgBox "计时器响了"

End Sub


Sub test6()
'1秒调用上面编写的A程序
Application.OnTime Now + TimeValue("00:00:02"), "A"

End Sub