用EXCEL製作“倒計時器”

用EXCEL中的OnTime函數可以製作一個倒計時器，只要設定一個時間，EXCEL就會以一秒為單位倒計時，到達設定時間後停止並提示。

步驟/方法

（01）圖一是倒計時器的樣子，當然你也可以做成其他喜歡的樣式。

（02）只要在C2單元格中，按“時：分：秒” 格式輸入一個時間，按右邊的“開始”按鈕，就可以開始倒計時，並在C3格顯示出計時終止後的時間，在C4格還會動態顯示剩餘的時間。

（03）下面介紹製作過程

（04）第一步：在EXCEL窗口中按上圖的樣式做一個界面，設置你喜歡的字體大小與顏色邊框。由於是用VBA代碼製作計時部份，所以表格中不用輸入任何公式。

（05）第二步：按ALT+F11組合鍵調出VBA窗口，按“插入－模塊”，出現一個空白的模塊窗口，把下面代碼粘貼進去。

（06）Dim n '公用變量，記住下一個任務執行的時間Dim a '開始時間Dim b '結束時間Sub 計時()n = Now + TimeValue("00:00:01") '設定時間間隔為一秒If Now() > b Then MsgBox "倒計時結束": Call 停止: Exit Sub[c4] = Format(b - Now(), "h:mm:ss") '設置單元格格式me n, "計時" '到指定時間後再執行本過程End SubSub 開始()[c2] = Format([c2], "h:mm:ss") '設置單元格格式a = [c2] '設定時間b = Now() + a '計算結束時間[c3] = Format(b, "yyyy-m-d h:mm:ss") '設置單元格格式Call 計時End SubSub 停止()On Error Resume me n, "計時", , False '停止任務的執行End Sub

（07）這組代碼由四部份組成：第一部份（最上面三行）是聲名公共變量，使這幾個變量在下面各過程中都可調用。第二部份是“Sub 計時”，也是主代碼，它負責不停的計時並顯示剩餘時間。第三部份“Sub 開始”，相當於初始化部份，設置單元格格式及顯示“計時結束時間”，在這個部份會調用“Sub 計時”過程來進行倒計時。第四部份“Sub 停止”，終止倒計時過程。代碼中的關鍵部份是“sub 計時”，它使用onTime函數實現自動計時功能。常用語法：me 時間，要運行的過程名在上例中，“me n, "計時"”的含義是到下一個時間“n”，就執行一次名為“計時”（即 “sub 計時”自身)的代碼。時間“n”由語句“ n = Now + TimeValue("00:00:01")”計算得出，表示由當前時間（即“NOW”）加上一個1秒的時間值。在“Sub 停止”過程中，也使用了OnTime函數，但它多了一個參數False ，它的作用是到時間“n”後，停止過程“Sub 計時”的執行（即計時結束)。其他語句部份比較容易理解，可參考各語句後面的註釋。第三步：添加按鈕為了方便執行，需要在EXCEL窗口添加兩個按鈕，一個“開始”，另一個是“結束”。在EXCEL窗口中按“視圖－工具欄－窗體”，調出“窗體”工具欄，用鼠標選中上面的“按鈕”控件在C列的右邊“畫”出兩個大小適中的按鈕，再用鼠標右鍵分別點擊按鈕，選“編輯文字”，第一按鈕輸入“開始”，第二個按鈕輸入“停止”。

（08）接下來還要給按鈕指定要運行的宏（就是在VBA窗口中的代碼）在“開始”按鈕上點右鍵，選“指定宏”，在彈出的窗口中選“開始”後確定。同樣方法給“停止”按鈕指定“停止”宏。

（09）這樣就完成了整個製作過程，可以使用了。在C2單元格中輸入一個時間（格式為“時：分：秒”），點擊按鈕“開始”就能看到在C3格中出現一個計時結束的時間，同時在C4格出現以一秒為間隔不斷遞減的時間數字，當C4單元格顯示為0時彈出提示窗口，計時結束。