在thisWORKBOOK里面放入下面代码:
Private Sub Workbook_Open()
Call UpdateClock
End Sub
在新建一个模块 里面放入下面代码:
Sub UpdateClock()
ThisWorkbook.Sheets(1).Calculate
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "UpdateClock"
End Sub
保存 关闭打开试试