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

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

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

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

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

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

表格內(nèi)數(shù)據(jù)，大家照做就行，不多解釋。

2、 生成“時鐘”圖形：

1）選擇B、C、D、E單元格數(shù)據(jù)，插入——帶數(shù)據(jù)標(biāo)記的雷達(dá)圖;

2）刪除自動生成的雷達(dá)圖多余的元素：標(biāo)簽、坐標(biāo)軸、網(wǎng)格、圖列等;

3）添加小時刻度的數(shù)據(jù)標(biāo)簽（自己往上填寫1到12就可以了）;

3、 下面進(jìn)入關(guān)鍵性步驟，編制VBA代碼：

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

2）輸入以下代碼：

復(fù)制內(nèi)容到剪貼板

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” ，，F(xiàn)alse

End Sub

3）保存、關(guān)閉，別忘了！??！

4、 添加控制按鈕：

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

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

5、 實現(xiàn)計時功能，美化時鐘：

點擊開始按鈕，則會發(fā)現(xiàn)時鐘開始走起來，點擊停止則會暫停計時。

剩下的，就是大家發(fā)揮創(chuàng)意，盡可能地美化一下這個時鐘就好了。

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