新插入一个模块，在其中写入下面的代码：

Public StartTime As Date

Sub OnTime方法()
StartTime = Now() + TimeValue("00:00:01")
Application.OnTime StartTime, "更新时间"
End Sub

Sub 更新时间()
Range("B3") = Format(Now(), "yyyy-mm-dd hh:mm:ss")
Call OnTime方法
End Sub

保存、关闭，并重新打开工作簿，就能在活动工作表的B3单元格看到简易的电子时钟了。

上一篇：excel表格制作教程：利用Workbook对象的Open事件修改工作表界面 下一篇：excel怎么做表格：年终总结写了吗？给你一个按年、月、季度汇总数据的妙招

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。