在Excel中，实现秒的实时动态更新，求VBA代码。

你好，
实现这个功能比较占用系统资源哦，请谨慎使用。
Sub Run_it()
Application.OnTime TimeValue("00:00:01"), "shownowtime" '一旦开始运行后每隔一秒运行一次shownowtime这个宏
End Sub

sub shownowtime()
[a1] = now()‘每隔一秒a1单元格里的时间就更新一次，即可实现秒的实时动态更新
en sub

在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版以上得另存为可以启动宏的工作簿），再打开就可以了。

PrivateDiffVarAsVariantPrivateSubWorksheet_Change(ByValTargetAsRange)
IfDiffVarTarget.Font.Color=RGB(255,0,0)
Else
Target.Font.Color=RGB(0,0,255)
EndIf
EndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
IfTarget.Count=1Then
DiffVar=Target.Value
EndIf
EndSub