Application.OnTime方法应用实例1：显示时间

vba中application.ontime方法，创建一个定时器使某个过程在指定的时间运行。

其语法如下：

Application.OnTime(EarliestTime,Procedure as string,LatestTime],[Schedule])

• • 参数EarliestTime为预定的程序开始时间。
  • 参数Procedure为过程的名称。
  • 参数LatestTime为程序最后的运行时间。
  • 参数Schedule参数Schedule为逻辑值，当为True（默认值）时，表示创建一个定时器，在由参数EarliestTime所指定的时间运行由参数Procedure所指定的过程，当为False时，表示取消由参数EarliestTime所指定运行时间的定时器。

运用ontime方法，编写一个显示时间小程序，vba代码如下：

Dim k   ‘k作为标识，k=1时显示当前时间，k=2时结束显示当前时间

Sub 开始显示()

Range("A1") = "当前时间"

Range("A2") = ""

k = 1

显示时间

End Sub

Sub 显示时间()

Dim x

If k = 1 Then

    Range("A2") = VBA.Format(Now, "hh:mm:ss")

    Application.OnTime Now + TimeValue("00:00:01"), "显示时间"

End If

If k = 2 Then

    Exit Sub

End If

x = VBA.DoEvents   

End Sub

Sub 结束显示()

k = 2

End Sub