Excel範例詳解之倒計時

手機如何做表格：點選檢視

用你的EXCEL、PPT、WORD等技能在業餘時間來兼職賺錢：：點選入駐

相關學習推薦：

在日常工作中，經常會有一些倒計時的應用，例如常見的距高考還有n天、距專案結束還有n天等。使用Excel中的日期函數結合強制重新整理的VBA程式碼，就能製作出倒計時牌。

先來看效果：

接下來一起看看具體的操作步驟：

步驟1 假設假期結束日期為2022年9月14日0時，在C2單元格輸入以下公式，得到剩餘的整數天數。

=INT("2022-9-14"-NOW())&"天"

步驟2 設定D2單元格自定義格式為：

hh小時mm分ss秒

然後在D2單元格中輸入以下公式：

="2022-9-14"-NOW()

雖然NOW函數屬於易失性函數，但是如果在工作表中沒有執行能夠引發重新計算的操作，公式結果並不能自動實時重新整理，因此需要新增定時重新整理的VBA程式碼。

步驟3 按<Alt+F11>組合鍵開啟VBE編輯器，依次單擊【插入】→【模組】命令，在【工程資源管理器】中單擊選中剛剛插入的「模組1」，在右側的程式碼視窗中輸入以下程式碼。

Sub Macro1()
Application.OnTime Now + TimeValue("00:00:01"),"Macro1"
Calculate
End Sub
Private Sub workbook_open()
Macro1
End Sub

程式碼中的」00:00:01″，表示重新整理時間為1秒，實際使用時可根據需要設定。例如要設定重新整理時間為1分鐘，可將此部分修改為」00:01:00″。

步驟4 在【工程資源管理器】中單擊選中「ThisWorkbook」，在右側的程式碼視窗中輸入以下程式碼，然後按F5鍵，即可在單元格中實現倒計時效果。

Private Sub workbook_open()
Call Macro1
End Sub

最後將檔案儲存為Excel啟用宏的工作簿，即xlsm格式。

再次開啟檔案時，如果出現如圖 所示的安全警告，記得要點選【啟用內容】按鈕哦。

製作完成之後，你就可以開啟Excel，看著時間一點點的減少，對某個人的思念也越來越強烈……

相關學習推薦：

以上就是Excel範例詳解之倒計時的詳細內容，更多請關注TW511.COM其它相關文章！