1時間函式

當單元格中輸入現在的時間函式=now()時

便會返回現在的年月日，時分秒

yyyy/MM/dd aaaa hh:mm:ss

代表年月日 星期 時分秒

表格計算一次時，資料也會自動更新，但不會每秒更新。要每秒進行更新，需要使用VBA進行實現

2建立VBA程式碼

建立一個模組，並建立一個名為update的過程，輸入VBA程式碼：

VBA程式碼

Sub update()

DTime = Now + TimeValue("00:00:01")

Application.OnTime DTime, "update", , True

With ThisWorkbook.Sheets("Sheet1").Range("A1")

.Value = Now

.NumberFormat = "yyyy/MM/dd aaaa hh:mm:ss"

End With

End Sub

將檔案另存為xlsm格式，要不然重新開啟檔案時這段程式碼就消失了！

3程式碼解釋

用到的是application.ontime表示式：

OnTime(EarliestTime, Procedure, LatestTime, Schedule)

說明：

使用 Now + TimeValue(time) 可安排經過一段時間（從現在開始計時）之後執行某個過程。使用 TimeValue(time) 可安排某個過程只執行指定的時間。

3執行結果

在開發工具中找到宏，執行名字為update過程

便能得到上述效果，如果想開啟檔案自動更新，那麼在thisworkbook中建立一個open事件過程