国产探花免费观看_亚洲丰满少妇自慰呻吟_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、實現計時功能,美化時鐘:

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

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 温州市| 东阿县| 涪陵区| 临武县| 内丘县| 定兴县| 美姑县| 来宾市| 宝鸡市| 安新县| 龙里县| 古田县| 舒兰市| 沐川县| 龙南县| 三门峡市| 银川市| 寿阳县| 武安市| 沧州市| 岢岚县| 宝坻区| 巴马| 龙山县| 苏州市| 山阳县| 临城县| 泗洪县| 龙州县| 通道| 托克逊县| 嵊泗县| 永泰县| 梁平县| 南雄市| 滁州市| 通州区| 龙里县| 罗平县| 永登县| 巴里|