vba - 宏 VBA (excel 2010) - 在用户表单中显示系统时间和运行秒数

Question

请告诉我如何在用户表单中显示系统时间和运行秒数 - vba excel 2010

就像 Visual Basic 计时器对象一样 - 但我在宏中找不到这样的对象

谢谢...

Answer 1

您可以按以下方式执行此操作（在Ozgrid.Com 论坛上找到）：

在带有名为Label1的标签的用户窗体中，输入以下代码

Private Sub UserForm_Initialize()
    Me.Label1 = Time
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
End Sub


Private Sub UserForm_Terminate()
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time", , False
End Sub

在公共模块中，输入以下代码：

Sub Live_time()
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
    UserForm1.Label1 = Time
    UserForm1.Repaint
End Sub

然后运行带有标签的表单。

Answer 2

您也可以编写此代码
Application.OnTime Time + TimeValue("00:00:01"), "Live_time" UserForm1.Label1 = 用户窗体初始化事件的时间。