宏VBA（excel 2010）-在用户窗体中以运行秒数显示系统时间

请向我演示如何在userform-vba excel 2010中以运行秒数显示系统时间

就像visual basic timer对象一样，但我在宏中找不到类似的对象

谢谢…

您可以按以下方式执行此操作（在上找到）：

在一个名为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

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

您可以按以下方式执行此操作（在上找到）：

在一个名为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

---

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

您也可以编写此代码
Application.OnTime时间+时间值（“00:00:01”），“实时” UserForm1.Label1=时间

---

在userform的初始化事件上。

您也可以编写此代码
Application.OnTime时间+时间值（“00:00:01”），“实时” UserForm1.Label1=时间

---

在userform的initialize事件上。

我坚持使用这个解决方案，因为它看起来最简单。但是我认为您不需要在UserForm中额外运行onTime事件。只要调用Live_time（）就可以了。我会坚持这个解决方案，因为它看起来最简单。但是我认为您不需要在UserForm中额外运行onTime事件。只要调用Live_time（）就可以了。