利用Excel制作秒表計(jì)時(shí)器?

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

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

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

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

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

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

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

2、 生成“時(shí)鐘”圖形：

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

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

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

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

1）啟動(dòng)編輯器，插入——模塊

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ā)工具”，插入窗體控件，在表中繪制兩個(gè)矩形按鈕;

2）將兩個(gè)按鈕分別指定宏為“onClock”——命名為“開始計(jì)時(shí)”，“offClock”——停止計(jì)時(shí)。

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

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

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

注意事項(xiàng)： 表格制作一定按照圖片所示。