在日常工作中，經(jīng)常會(huì)有一些倒計(jì)時(shí)的應(yīng)用，例如常見(jiàn)的距高考還有n天、距項(xiàng)目結(jié)束還有n天等。使用Excel中的日期函數(shù)結(jié)合強(qiáng)制刷新的VBA代碼，就能制作出倒計(jì)時(shí)牌。
先來(lái)看效果：
接下來(lái)一起看看具體的操作步驟：
步驟1 假設(shè)假期結(jié)束日期為2022年9月14日0時(shí)，在C2單元格輸入以下公式，得到剩余的整數(shù)天數(shù)。
=INT("2022-9-14"-NOW())&"天"步驟2 設(shè)置D2單元格自定義格式為：
hh小時(shí)mm分ss秒
然后在D2單元格中輸入以下公式：
="2022-9-14"-NOW()雖然NOW函數(shù)屬于易失性函數(shù)，但是如果在工作表中沒(méi)有執(zhí)行能夠引發(fā)重新計(jì)算的操作，公式結(jié)果并不能自動(dòng)實(shí)時(shí)刷新，因此需要添加定時(shí)刷新的VBA代碼。
步驟3 按<Alt+F11>組合鍵打開(kāi)VBE編輯器，依次單擊【插入】→【模塊】命令，在【工程資源管理器】中單擊選中剛剛插入的“模塊1”，在右側(cè)的代碼窗口中輸入以下代碼。
Sub Macro1()
Application.OnTime Now + TimeValue("00:00:01"),"Macro1"
Calculate
End Sub
Private Sub workbook_open()
Macro1
End Sub
代碼中的”00:00:01″，表示刷新時(shí)間為1秒，實(shí)際使用時(shí)可根據(jù)需要設(shè)置。例如要設(shè)置刷新時(shí)間為1分鐘，可將此部分修改為”00:01:00″。
步驟4 在【工程資源管理器】中單擊選中“ThisWorkbook”，在右側(cè)的代碼窗口中輸入以下代碼，然后按F5鍵，即可在單元格中實(shí)現(xiàn)倒計(jì)時(shí)效果。
Private Sub workbook_open()
Call Macro1
End Sub
最后將文件保存為Excel啟用宏的工作簿，即xlsm格式。
再次打開(kāi)文件時(shí)，如果出現(xiàn)如圖 所示的安全警告，記得要點(diǎn)擊【啟用內(nèi)容】按鈕哦。
制作完成之后，你就可以打開(kāi)Excel，看著時(shí)間一點(diǎn)點(diǎn)的減少，對(duì)某個(gè)人的思念也越來(lái)越強(qiáng)烈……
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。