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或重启该电子表格

用不到宏，像楼上两位说的，用函数now()就行了。可以显示年月日和时间（没有秒）
如果你非要用宏的话就用这个代码吧，是我以前从网上找到的，只能显示时间不能显示年月日。
ActiveSheet.Range("a1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "biao"

想要打开就运行的话那你就打开Excel后按alt+F11打开编辑器，在左上窗口中选择：
ThisWorkbook然后在右边代码窗口中，有个通用的下拉菜单那里选：Workbook,然后在旁边的下拉菜单选择open事件，然后把那段代码复制进去

直接插入函数就可以了。NOW（）

用now函数其实更快捷的