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

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

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

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

2、生成“時鐘”圖形：

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

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

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

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

1）<ALT+F11>啟動編輯器，插入——模塊

2）輸入以下代碼：

1. Sub onClock()      
2. Dim h,m,s      
3. h=Hour(Now)      
4. m=Minute(Now)      
5. s=Second(Now)      
6. DoEvents      
7. Range("C2:E62").ClearContents      
8. Cells(s+2,5)=9:Cells(s+3,5)=0      
9. If s=59 Then Cells(2,5)=0      
10. Cells(m+2,4)=8:Cells(m+3,4)=0      
11. If m=59 Then Cells(2,4)=0      
12. If h>=12 Then h=h-12      
13. h=h*5+Int(m/12)      
14. Cells(h+2,3)=6:Cells(h+3,3)=0      
15. If h=59 Then Cells(2,3)=0      
16. Application.OnTime Now+TimeValue("00:00:01"),"onClock"     
17. End Sub