<em>Excel</em>动态<em>时钟VBA</em>

在A1输入
=NOW()
设置单元格格式，定义为你要的格式。zd

同时按Alt和F11进入宏界面，双击左上窗口的ThisWorkbook，在右边输入
Private Sub Workbook_Open()
abc
End Sub

再点菜单的插入，模块，粘贴如下代码：
Private Sub Workbook_Open()
abc
End Sub

存盘退回出（如果是2007版以上得另存为答可以启动宏的工作簿），再打开就可以了。

我个人喜欢用百的这种：
步骤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或重答启该电子表格

软件版本：Office2013

方法如下：

1.Alt+F11，打开VBE界面，点击左侧要执行代码的工作表，出现右侧空白编辑区

2.输入代码，点击运行按钮，或者按F5：

3.这样，就执行了宏代码：

我也期待有人回答。。