如何在Excel中插入倒數(shù)計時器

如何在Excel中插入倒數(shù)計時器？

如果您想在有限的時間內處理某些數(shù)據(jù)，可以在數(shù)據(jù)工作表中插入一個倒數(shù)計時器，完成倒數(shù)計時后，會彈出一個對話框提醒您。在這里，我將告訴您一個VBA代碼以在Excel中插入倒數(shù)計時器。

在Excel中插入倒數(shù)計時器

在Excel中插入倒數(shù)計時器驚人的！在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時間，并減少數(shù)千次鼠標單擊！

在Excel中，它不能倒計時，但是您可以復制以下VBA代碼以幫助倒計時。

1.選擇一個單元格并將其格式化為時間格式，方法是右鍵單擊該單元格并選擇 單元格格式，然后在對話框中，單擊時間并選擇 13：30：55 ，在 Type 列表，最后點擊 OK 退出此對話框。看截圖：

2.在格式單元格中輸入要倒數(shù)的時間。看截圖：

3。按 Alt + F11鍵 打開鑰匙 Microsoft Visual Basic應用程序 窗口。

4。點擊插頁 > 模塊然后將以下VBA復制到新窗口中。

VBA：倒數(shù)計時器。

Dim gCount As DateUpdateby20140925Sub Timer()gCount = Now + Timevalue("00:00:01")Application.onTime gCount, "ResetTime"End SubSub ResetTime()Dim xRng As RangeSet xRng = Application.ActiveSheet.Range("E1")xRng.Value = xRng.Value - TimeSerial(0, 0, 1)If xRng.Value <= 0 ThenMsgBox "Countdown complete."Exit SubEnd IfCall TimerEnd SubCopy

Tips:：以上代碼中的E1表示您在步驟2中鍵入的時間單元。

5。點擊運行按鈕或按下 F5 運行倒數(shù)計時器。現(xiàn)在時間倒計時了。

6.倒計時結束后，會彈出一個對話框提醒您。

Tips:：您無法在倒計時運行時停止倒計時，除非關閉工作簿。