0

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

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

谢谢...

4

2 回答 2

3

您可以按以下方式执行此操作(在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

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

于 2013-04-29T12:00:01.977 回答
0

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

于 2017-08-23T08:53:08.120 回答