所以我需要在我的表单上显示一个实时时钟，但我不确定如何。我确实知道代码：
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() 来启动循环，例如在表单的初始化方法中。
【讨论】：
Procedure:="DisplayCurrentTime", 后面缺少下划线）
_ 已修复。 -- 可以编译吗？你是否设置了断点/Debug.Print 调用来查看它在做什么？您可以尝试不使用LatestTime 参数吗？ DisplayCurrentTime() 在您的用户窗体模块中是公开的吗？另外，请尝试使用完全限定的方法名称（即"MyProject.UserForm1.DisplayCurrentTime"）。
Initialize 事件中调用了DisplayCurrentTime）没有错误，但标签只设置一次。如果我逐步完成它，我会收到错误The Macro may not be available in this workbook of all macros may be disabled。文件保存为 xlsm。
"MyProject.UserForm1.DisplayCurrentTime"） - 你这样做了吗？还有一些问题。
您尝试的问题是，您实际上是在创建一个无限循环。
您的 Excel 会占用相当多的 CPU 时间，甚至可能会阻止用户输入，因为它会尽可能快地执行您的 while 语句。
查看此示例http://www.andypope.info/vba/clock.htm 或查看此帖子中的解决方案How do I show a running clock in Excel?
他们应该会帮助你。
至少你应该在你的循环中包含一个DoEvents 语句。
【讨论】：
我解决了其他人在所选答案中使用给定代码时遇到的问题。我删除了latesttime 行，并将Label1.caption = Now() 改为使用Time()。
Sub DisplayCurrentTime()
Dim nextSecond As Date
nextSecond = DateAdd("s", 1, Now())
Label1.Caption = Time()
Application.OnTime _
Procedure:="DisplayCurrentTime", _
EarliestTime:=nextSecond
End Sub
然后我在 userform_initialize 函数中调用了它。 Label1.caption 已更改为我的 userform 上的相应标签。
【讨论】：