请告诉我如何在用户表单中显示系统时间和运行秒数 - vba excel 2010
就像 Visual Basic 计时器对象一样 - 但我在宏中找不到这样的对象
谢谢...
您可以按以下方式执行此操作(在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
然后运行带有标签的表单。
您也可以编写此代码
Application.OnTime Time + TimeValue("00:00:01"), "Live_time" UserForm1.Label1 = 用户窗体初始化事件的时间。