很多用戶在進行Excel數據時，想知道自己在Excel中做一件事情需要多長時間，或是老師在上課的過程中，想在規定的時間內，來檢測學生的實際動手能力，等等此類，都需要計時。?

可能有的用戶想到了操作系統中的時鐘，或是想到了利用Flash來制作一個時鐘，來進行計時，其實大可不必，Excel軟件就能解決這個問題，我們可以用VBA在Excel中做一個秒表計時器，在做之前啟動秒表，做完后停止秒表看用了多長時間，如圖。這個秒表在單元格中顯示時間，可以實現秒表的基本功能：單擊“開始”按鈕開始計時，單擊“停止”按鈕暫停與停止，再次單擊“開始”按鈕繼續，單擊“復位”按鈕歸零。?

下面我們以Excel為例來說明其制作過程。

在搞活動的時候，我們會用到一些計時器，有時需要顯示在投影上。大家都會選擇在網上下載各種計時小軟件，有免費的、有破解的、還有收費的，很是麻煩！其實，我們用手頭上的EXCEL表格就可以制作比較簡單的計時器，稍微美化一下，還可以做出“手表”的感覺。

1、 先制作一個基礎的表格，用以制作后期的時鐘：

繪制一個表格，如圖所示，A列表示時鐘轉一圈60分鐘，每分鐘的刻度（0到59）;B列表示12個小時的刻度（每5行一個數值）;CDE分別代表時分秒。

表格內數據，大家照做就行，不多解釋。

2、 生成“時鐘”圖形：

1）選擇B、C、D、E單元格數據，插入——帶數據標記的雷達圖;

2）刪除自動生成的雷達圖多余的元素：標簽、坐標軸、網格、圖列等;

3）添加小時刻度的數據標簽（自己往上填寫1到12就可以了）;

3、 下面進入關鍵性步驟，編制VBA代碼：

1）啟動編輯器，插入——模塊

2）輸入以下代碼：

復制內容到剪貼板

Sub onClock（）

Dim h，m，s

h=Hour（Now）

m=Minute（Now）

s=Second（Now）

DoEvents

Range（ “C2:E62” ）.ClearContents

Cells（s+2，5）=9:Cells（s+3，5）=0

If s=59 Then Cells（2，5）=0

Cells（m+2，4）=8:Cells（m+3，4）=0

If m=59 Then Cells（2，4）=0

If h》=12 Then h=h-12

h=h*5+Int（m/12）

Cells（h+2，3）=6:Cells（h+3，3）=0

If h=59 Then Cells（2，3）=0

Application.OnTime Now+TimeValue（ “00:00:01” ）， “onClock”

End Sub

Sub offClock（）

On Error Resume Next

Application.OnTime Now+TimeValue（ “00:00:01” ）， “onClock” ，，False

End Sub

3）保存、關閉，別忘了！！！

4、 添加控制按鈕：

1）菜單欄選擇“開發工具”，插入窗體控件，在表中繪制兩個矩形按鈕;

2）將兩個按鈕分別指定宏為“onClock”——命名為“開始計時”，“offClock”——停止計時。

5、 實現計時功能，美化時鐘：

點擊開始按鈕，則會發現時鐘開始走起來，點擊停止則會暫停計時。

剩下的，就是大家發揮創意，盡可能地美化一下這個時鐘就好了。

注意事項： 表格制作一定按照圖片所示。