明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

EXCEL如何制作計(jì)時(shí)器?

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

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

 

EXCEL怎么制作計(jì)時(shí)器?1

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ù),大家照做就行,不多解釋。

EXCEL怎么制作計(jì)時(shí)器?2

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就可以了);

EXCEL怎么制作計(jì)時(shí)器?3

EXCEL怎么制作計(jì)時(shí)器?4

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

1)<ALT+F11>啟動(dòng)編輯器,插入——模塊

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.   

Office辦公軟件是辦公的第一選擇,這個(gè)地球人都知道。除了微軟Office,市面上也存在很多其他Office類軟件。