在ThisWorkbook模塊中寫(xiě)入下面的過(guò)程:
Private Sub Workbook_Open()
Call OnTime方法
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime StartTime, "更新時(shí)間", , False
End Sub
新插入一個(gè)模塊,在其中寫(xiě)入下面的代碼:
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)閉,并重新打開(kāi)工作簿,就能在活動(dòng)工作表的B3單元格看到簡(jiǎn)易的電子時(shí)鐘了。
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任,
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。