EXCEL如何制作計(jì)時(shí)器?
發(fā)表時(shí)間:2023-09-09 來源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]在搞活動(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í)器,稍微美化一下,還可以做出“手表”的感覺。
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ù),大家照做就行,不多解釋。
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就可以了);
3、下面進(jìn)入關(guān)鍵性步驟,編制VBA代碼:
1)<ALT+F11>啟動(dòng)編輯器,插入——模塊
2)輸入以下代碼:
復(fù)制內(nèi)容到剪貼板
- Sub onClock()
-
- Dim h,m,s
-
- h=Hour(Now)
-
- m=Minute(Now)
-
- s=Second(Now)
-
- DoEvents
-
- Range("C2:E62").ClearContents
-
- Cells(s+2,5)=9:Cells(s+3,5)=0
-
- If s=59 Then Cells(2,5)=0
-
- Cells(m+2,4)=8:Cells(m+3,4)=0
-
- If m=59 Then Cells(2,4)=0
-
- If h>=12 Then h=h-12
-
- h=h*5+Int(m/12)
-
- Cells(h+2,3)=6:Cells(h+3,3)=0
-
- If h=59 Then Cells(2,3)=0
-
- Application.OnTime Now+TimeValue("00:00:01"),"onClock"
-
- End Sub
-
- Sub offClock()
-
- On Error Resume Next
-
- Application.OnTime Now+TimeValue("00:00:01"),"onClock",,False
-
- End Sub
-
Office辦公軟件是辦公的第一選擇,這個(gè)地球人都知道。除了微軟Office,市面上也存在很多其他Office類軟件。