vba 在label中显示即时时间

老大这个没有那么麻烦吧，你直接这样子弄要简单些哦在窗体上面放一个timer，然后把它的interval设为1000,然后放个label，好，现在双击窗体上的timer，然后录入label1caption=time，好，完了，就这么简单！

Sub abc()

Dim a, b, c As String '定义变量

a = Date '当前年月日

b = Time '当前时间

c = Now '当前年月日 和 时间

MsgBox a & b & c '显示 a ，b ，c

End Sub

1、打开Excel工作簿后，通过点击“开发工具”选项卡的“Visual Basic”按钮或用快捷键“Alt + F11”打开VBE环境。

2、打开VBE环境后，通过点击如图所示的工具按钮添加用户窗体。

3、如图所示，设计用户窗体，添加3个文本框，2个Label控件和1个按钮控件。

4、双击窗体上的按钮控件，在d出的代码编辑区域添加如图所示的代码。

5、双击资源管理器中的“ThisWorkBook”，如图所示；在打开的代码编辑环境下，点击“通用”下拉框，选择“WorkBook”，如图所示；在出现的事件过程中添加如图所示的代码——在打开工作簿时自动立即用户窗体的关键代码。

6、将所有文件关闭后，重新打开保存好的xlsm文件，会发现添加的用户窗体会自动显示出来

Private Sub UserForm_Activate()

TextBox1Text = Format(Now, "yyyy年m月d日 hh:mm:ss AMPM")

End Sub

在窗体代码中输入上面代码就可以了，注意我这里的TextBox1Text你要改成你时间对应的文本框名称。

以上就是关于vba 在label中显示即时时间全部的内容，包括:vba 在label中显示即时时间、[Excel VBA] 如何获取北京时间、如何用VBA实现指定时间运行用户窗体等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！