1、首先我们打开一个工作样表作为例子。

3、这段代码是在a1单元格内输入时间,并且格式是小时:分钟:秒的形式。运行这段代码。会在a1单元格内现实当前的时间。如果我们需要时钟运行起来,我们可以使用一个循环语句,并设置无限循环。

5、我们输入以下代码Sub runtimer()Application.OnTime Now() + TimeValue("00:00:01"), procedure:="proce"End Sub

7、先写到这里了,谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看,如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。