国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

EXCEL怎么制作計時器?

2019-12-13 13:04:19
字體:
來源:轉載
供稿:網友

在搞活動的時候,我們會用到一些計時器,有時需要顯示在投影上。大家都會選擇在網上下載各種計時小軟件,有免費的、有破解的、還有收費的,很是麻煩!其實,我們用手頭上的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.   
  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)保存、關閉,別忘了!!!

4、添加控制按鈕:

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

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

5、實現計時功能,美化時鐘:

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

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 兴宁市| 巨鹿县| 丹阳市| 新丰县| 改则县| 麻城市| 岳阳市| 洞口县| 长武县| 汶川县| 泽州县| 福安市| 咸宁市| 安化县| 寿光市| 潼关县| 北流市| 云安县| 治多县| 措勤县| 永兴县| 灵寿县| 安塞县| 夏河县| 花垣县| 山阴县| 会泽县| 北安市| 荆门市| 息烽县| 公主岭市| 宜川县| 金坛市| 高平市| 黑龙江省| 揭阳市| 金川县| 墨竹工卡县| 永兴县| 惠水县| 峡江县|