Excel VBA 实现电子钟

Dim Runtime As Date

Sub RunTimer()
    Runtime = Now() + TimeValue("00:00:01")
    Application.OnTime Runtime, "my_Procedure"
End Sub

Sub my_Procedure()
    Range("A1") = Format(Time, "h:mm:ss")
    RunTimer
End Sub

OnTime函数指在某一具体时间执行某一过程，即过程my_Procedure。

执行my_Procedure的时候，就显示现在的时间，然后立即执行Runtime过程，接着就循环下去，效果如下图所示：（颜色大小可以另外设置）