excel制作倒計(jì)時(shí)帶天時(shí)分秒？2007年6月24日下午1:04，如何使用Excel進(jìn)行任何時(shí)間的倒計(jì)時(shí)以2008年北京奧運(yùn)會(huì)倒計(jì)時(shí)為例：?jiǎn)?dòng)Excel并新建工作簿，按ALT F11進(jìn)入VBA編輯狀態(tài)

excel制作倒計(jì)時(shí)帶天時(shí)分秒？

2007年6月24日下午1:04，如何使用Excel進(jìn)行任何時(shí)間的倒計(jì)時(shí)以2008年北京奧運(yùn)會(huì)倒計(jì)時(shí)為例：?jiǎn)?dòng)Excel并新建工作簿，按ALT F11進(jìn)入VBA編輯狀態(tài)。在左側(cè)的項(xiàng)目資源管理器中，選擇當(dāng)前工作簿，然后執(zhí)行插入模塊命令以插入新模塊（模塊1）。雙擊“模塊1”進(jìn)入代碼編輯區(qū)，輸入以下代碼。輸入完成后，關(guān)閉窗口并返回工作表。Sub Timer（）ss=DateDiff（“s”，現(xiàn)在，“2008-8-8 20:00:00”）dd=ss86400ss=ss dd*86400hh=ss3600ss=ss hh*3600mm=ss60ss=ss mm*60活動(dòng)表范圍（“A1”）=“還有”&vbcrlf&DD&；“天”&HH&；“小時(shí)”&mm&；“分鐘”&SS&；2008年北京奧運(yùn)會(huì)開(kāi)幕前的“秒”應(yīng)用程序.OnTime現(xiàn)在TimeValue（“00:00:01”），“timer”End Sub按ALT F8展開(kāi)“macro”對(duì)話框，選擇“timer”宏，點(diǎn)擊“execute”按鈕返回。北京奧運(yùn)會(huì)倒計(jì)時(shí)鐘將立即出現(xiàn)在當(dāng)前工作表的A1單元格中