Question

在Excel中如何用VBA代码实现秒的实时动态更新？

Answer 1

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

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

再点菜单的插入，模块，粘贴如下代码：
Sub abc()
Application.OnTime Now + 1 / 24 / 3600, "abc"
Sheets("Sheet1").Range("A1").Calculate
End Sub

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