倒計時牌都不會做，妹子何必嫁這貨

小夥伴們假日好啊， 今天老祝和大家分享一個實用好玩的技巧， 在Excel中製作倒計時牌， 先來看效果：

在日常工作中， 經常會有一些倒計時的應用， 例如常見的距高考還有n天、距項目結束還有n天等。 使用Excel中的日期函數結合按指定時間刷新的VBA代碼， 即可製作出倒計時牌。

步驟1 假設假期結束日期為2018年5月2日0時， 在C2儲存格輸入以下公式， 得到剩餘的整數天數。

=INT("2018-5-2"-NOW())&"天"

步驟2 設置D2儲存格自訂格式為：

hh小時mm分ss秒

然後在D2儲存格中輸入以下公式：

="2018-5-2"-NOW()

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

步驟3 按複合鍵打開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秒，

步驟4 在【工程資源管理器】中按一下選中“ThisWorkbook”， 在右側的代碼視窗中輸入以下代碼， 然後按F5鍵， 即可在儲存格中實現倒計時效果。

Private Sub workbook_open()

Call Macro1

End Sub

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

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

製作完成之後， 你就可以打開Excel， 看著假期一點點的減少， 心裡對某個人的思念卻越來越強烈……