這個很簡單的事情，不過一般要用到vba，先用now函式，然後寫一段程式碼一秒重新整理一次就可以了，以下是答案：

Private Sub Workbook_Open()

Call otime "開啟工作薄後自動執行otime過程

End Sub

Sub otime()

Application.OnTime Now() + TimeValue("00:01:00"), "counttime"

End Sub

Sub counttime()

Worksheets(1).Range("a1") = Now()

Call otime "再次執行otime過程

End Sub

按f11＋alt，將以上第一段程式碼複製到ThisWorkbook中，新建一個模組，然後將後面兩段程式碼複製到新建模組中，然後將工作簿儲存為儲存宏的工作簿，然後關閉開啟即可同步時間。