如何用Excel製作隨時跳動的倒計時2007年06月24日 下午 01:04 以製作2008北京奧運會倒計時為例:啟動Excel並新建工作簿，按下Alt+F11進入VBA編輯狀態。在左側的"工程資源管理器"中選擇當前工作簿，然後執行"插入"－"模組"命令，插入一個新模組（模組1）。雙擊"模組1"進入程式碼編輯區域中，輸入以下程式碼。輸入完成後，關閉視窗返回工作表中。Sub Timer()ss=DateDiff("s", Now, "2008-8-8 20:00:00")dd=ss\86400ss=ss-dd*86400hh=ss\3600ss=ss-hh*3600mm=ss\60ss=ss-mm*60ActiveSheet.Range("A1") = "現在離北京2008奧運會開幕還有" & vbCrLf & dd & "天" & hh & "小時" & mm & "分鐘" & ss & "秒"Application.OnTime Now + TimeValue("00:00:01"), "Timer"End Sub按下Alt+F8展開"宏"對話方塊，選中"Timer"宏，單擊"執行"按鈕返回，當前工作表的A1單元格中即刻出現一個北京奧運的倒計時鐘
如何用Excel製作隨時跳動的倒計時2007年06月24日 下午 01:04 以製作2008北京奧運會倒計時為例:啟動Excel並新建工作簿，按下Alt+F11進入VBA編輯狀態。在左側的"工程資源管理器"中選擇當前工作簿，然後執行"插入"－"模組"命令，插入一個新模組（模組1）。雙擊"模組1"進入程式碼編輯區域中，輸入以下程式碼。輸入完成後，關閉視窗返回工作表中。Sub Timer()ss=DateDiff("s", Now, "2008-8-8 20:00:00")dd=ss\86400ss=ss-dd*86400hh=ss\3600ss=ss-hh*3600mm=ss\60ss=ss-mm*60ActiveSheet.Range("A1") = "現在離北京2008奧運會開幕還有" & vbCrLf & dd & "天" & hh & "小時" & mm & "分鐘" & ss & "秒"Application.OnTime Now + TimeValue("00:00:01"), "Timer"End Sub按下Alt+F8展開"宏"對話方塊，選中"Timer"宏，單擊"執行"按鈕返回，當前工作表的A1單元格中即刻出現一個北京奧運的倒計時鐘