vba怎么制作数字时钟表

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

3、实际编写代码最好一个个写，此处为了方便展示，然后分别在sub过旯皱镢涛程中输入：Sub runtimer()clock = Now() + TimeValue("00:00:01")Application.OnTime clock, "my_procedure"End SubSub my_procedure()Range("a1") = Format(Time(), "h:mm:ss")Call runtimerEnd SubSub killtimer()Application.OnTime clock, "my_procedure", FalseEnd Sub点击运行，我们可以在A1单元格得到一个当前系统时间并且每次会涨一秒进行跳动。