Excel版倒計(jì)時(shí)牌

Excel版倒計(jì)時(shí)牌

在Excel中制作倒計(jì)時(shí)牌，先來看效果：

在日常工作中，經(jīng)常會有一些倒計(jì)時(shí)的應(yīng)用，例如常見的距高考還有n天、距項(xiàng)目結(jié)束還有n天等。使用Excel中的日期函數(shù)結(jié)合按指定時(shí)間刷新的VBA代碼，即可制作出倒計(jì)時(shí)牌。

步驟1 假設(shè)假期結(jié)束日期為2021年12月27日0時(shí)，在C2單元格輸入以下公式，得到剩余的整數(shù)天數(shù)。=INT("2021-12-27"-NOW())&"天"

步驟2 設(shè)置D2單元格自定義格式為：hh小時(shí)mm分ss秒

然后在D2單元格中輸入以下公式：="2021-12-27"-NOW()

雖然NOW函數(shù)屬于易失性函數(shù)，但是如果在工作表中沒有執(zhí)行能夠引發(fā)重新計(jì)算的操作，公式結(jié)果并不能自動(dòng)實(shí)時(shí)刷新，因此需要添加定時(shí)刷新的VBA代碼。

步驟3 按組合鍵打開VBE編輯器，依次單擊【插入】→【模塊】命令，在【工程資源管理器】中單擊選中剛剛插入的“模塊1”，在右側(cè)的代碼窗口中輸入以下代碼。

Sub Macro1()Application.OnTime Now + TimeValue("00:00:01"),"Macro1"CalculateEnd SubPrivate Sub workbook_open()Macro1End 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 Macro1End Sub

最后將文件保存為Excel啟用宏的工作簿，即xlsm格式。

制作完成之后，你就可以打開Excel，看著時(shí)間一點(diǎn)點(diǎn)的減少，心里對某個(gè)人的思念卻越來越強(qiáng)烈……

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。