在ThisWorkbook模塊中寫入下面的過程：
Private Sub Workbook_Open()
Call OnTime方法
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime StartTime, "更新時(shí)間", , False
End Sub
新插入一個(gè)模塊，在其中寫入下面的代碼：
Public StartTime As Date
Sub OnTime方法()
StartTime = Now() + TimeValue("00:00:01")
Application.OnTime StartTime, "更新時(shí)間"
End Sub
Sub 更新時(shí)間()
Range("B3") = Format(Now(), "yyyy-mm-dd hh:mm:ss")
Call OnTime方法
End Sub
保存、關(guān)閉，并重新打開工作簿，就能在活動(dòng)工作表的B3單元格看到簡易的電子時(shí)鐘了。
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。