vba怎么制作数字时钟表

1、打开Excel，在开发工具栏里点击Visual Basic。

2、在Visual Basic里插入一个新模块，首先，声明一个变量clock，然后再创建三个sub过程。

3、实际编写代码最好一个个写，此处为了方便展示，然后分别在sub过程中输入：

Subruntimer()

clock = Now() +TimeValue("00:00:01") 

Application.OnTimeclock, "my_procedure" 

End Sub

Submy_procedure()

Range("a1") =Format(Time(), "h:mm:ss") 

Call runtimer 

End Sub

Subkilltimer()

Application.OnTimeclock, "my_procedure", False 

End Sub

点击运行，我们可以在A1单元格得到一个当前系统时间并且每次会涨一秒进行跳动。