在Excel中制作一個簡易的電子時鐘

在Excel中制作一個簡易的電子時鐘

本文為《別怕，Excel VBA其實很簡單（第3版）》隨書問題參-

在ThisWorkbook模塊中寫入下面的過程：

Private Sub Workbook_Open() Call OnTime方法End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnTime StartTime, "更新時間", , FalseEnd Sub

新插入一個模塊，在其中寫入下面的代碼：

Public StartTime As Date

Sub OnTime方法() StartTime = Now() + TimeValue("00:00:01") Application.OnTime StartTime, "更新時間"End Sub

Sub 更新時間() Range("B3") = Format(Now(), "yyyy-mm-dd hh:mm:ss") Call OnTime方法End Sub

保存、關閉，并重新打開工作簿，就能在活動工作表的B3單元格看到簡易的電子時鐘了。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。