excel vba如何制作一个数字时钟

下面为大家分享excel中使用vba制作一个数字时钟方法,不会的朋友可以参考本文,来学习吧!
步骤
1、首先我们打开一个工作样表作为例子 。
2、使用alt+f11进入vbe编辑器,插入一个新的模块,并在模块编辑框中输入以下代码:
ption Explicit
Sub MyMacro()
Dim dTime As Variant
dTime = Now + TimeValue(00:00:01)
Application.OnTime dTime ,  Sheet3.MyMacro, ,  True
With Range(A1)
.Value = https://www.wannianli8.com/arc4278878/Now
.NumberFormat = hh:mm:ss
End With
End Sub
【excel vba如何制作一个数字时钟】3、这里我们将变量声明为不特定类型变量,然后对变量dTime赋值为当前时间返回值,并设定一个延时1秒的定义 。
4、接着我们用ontime函数来做一个定时处理,以dtime变量定义的时间来执行MyMacro这个宏过程 。
5、这里使用with函数来简写RANGE(a1)这段代码,使用方法很简单,在with后的属性代码都是表示的range(a1)这个对象的属性 。
6、将其值赋值为now当前时间,并以日期格式进行输出,如果不加固定格式的输出,那么输出的值会以当前工作表单元格的格式设置输出形式 。

excel vba如何制作一个数字时钟的详细内容就为您分享到这里,【精彩生活】jing111.com小编为您精选以下内容,希望对您有所帮助: