Excel动态时钟VBA

我个人喜欢用的这种：

步骤1、插入一个模块，放入以下代码

Sub 计时()

Sheet1.Range("A1").Value = Format(Date, "yyyy年MM月DD日") & " " & Time

Application.OnTime Time + TimeSerial(0, 0, 1), "计时", , True

End Sub

步骤2、THISWORKBOOK代码编辑器中放入以下代码

Private Sub Workbook_Open()

Call 计时

End Sub

步骤3、运行步骤2或重启该电子表格