【Excel趣味應用】放假倒計時

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

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

步驟1   

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

=INT("2018-9-1"-NOW())&"天"

步驟2 

   設置D2單元格自定義格式為：

hh小時mm分ss秒

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

="2018-9-1"-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，看著假期一點點的減少，心裡對某個人的思念卻越來越強烈……

圖文製作：祝洪忠