所以我需要在我的表单上显示实时时钟,但我不知道如何。我确实知道代码:
TimeValue(Now)
会给我当前时间,但我不知道如何在我的表单上持续显示它。
我有一个想法,就是将此代码放入循环内,如下所示:
Dim bool As Boolean
bool = True
Do While bool = True
Label1.Caption = TimeValue(Now)
Loop
但是我不确定该代码放在哪里。任何建议将不胜感激!
最佳答案
Excel 有 the OnTime
method它允许您安排任何过程的执行。
只需用它来安排一秒的节奏即可。
Sub DisplayCurrentTime()
Dim nextSecond As Date
nextSecond = DateAdd("s", 1, Now())
Label1.Caption = Now()
Application.OnTime _
Procedure:="DisplayCurrentTime", _
EarliestTime:=nextSecond, _
LatestTime:=nextSecond
End Sub
通过调用 DisplayCurrentTime()
一次来启动循环,例如在表单的初始化方法中。
关于VBA如何在用户窗体中显示实时时钟?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13449743/