欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

EXCEL怎么制作計時器？

  發(fā)布時間：2015-07-09 09:41:13   作者：佚名   我要評論
EXCEL怎么制作計時器？在搞活動的時候，我們會用到一些計時器，有時需要顯示在投影上，其實，我們用手頭上的EXCEL表格就可以制作比較簡單的計時器，稍微美化一下，還可以做出“手表”的感覺，下面我們要起來看看吧

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

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

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

表格內(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）<ALT+F11>啟動編輯器，插入——模塊

2）輸入以下代碼：

復(fù)制內(nèi)容到剪貼板
  1. Sub onClock()   
  2.   
  3. Dim h,m,s   
  4.   
  5. h=Hour(Now)   
  6.   
  7. m=Minute(Now)   
  8.   
  9. s=Second(Now)   
  10.   
  11. DoEvents   
  12.   
  13. Range("C2:E62").ClearContents   
  14.   
  15. Cells(s+2,5)=9:Cells(s+3,5)=0   
  16.   
  17. If s=59 Then Cells(2,5)=0   
  18.   
  19. Cells(m+2,4)=8:Cells(m+3,4)=0   
  20.   
  21. If m=59 Then Cells(2,4)=0   
  22.   
  23. If h>=12 Then h=h-12   
  24.   
  25. h=h*5+Int(m/12)   
  26.   
  27. Cells(h+2,3)=6:Cells(h+3,3)=0   
  28.   
  29. If h=59 Then Cells(2,3)=0   
  30.   
  31. Application.OnTime Now+TimeValue("00:00:01"),"onClock"  
  32.   
  33. End Sub   
  34.   
  35. Sub offClock()   
  36.   
  37. On Error Resume Next   
  38.   
  39. Application.OnTime Now+TimeValue("00:00:01"),"onClock",,False   
  40.   
  41. End Sub   
  42.   

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

4、添加控制按鈕：

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

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

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

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

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

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

相關(guān)文章

最新評論