excel表做在線時鐘（利用EXCEL製作會動的時鐘）

2023-04-28 09:36:16 1

好久的沒有更新了，今天準備給大家分享一個利用EXCEL製作時鐘的案例。

這裡，很多小夥伴們可能會說，EXCEL可以做時鐘嗎？答案當然是可以的。下面，EK就慢慢給大家分享製作過程。

首先我們看一下案例效果圖：

圖1 鐘錶效果圖

案例裡面使用了VBA和圖表。

第一步，我們新建一個「鐘錶.xlsm」文件（可以使用VBA）。

圖2 新建一個XLSM文件

第二步，準備輔助數據。A3：F123中的數據。

圖3 Sheet2中A3：F123單元格區域的數據

第三步，在H1中添加公式：="時間:" & TEXT(NOW,"hh:mm:ss")

G4：=IF(HOUR(NOW)>12,(HOUR(NOW)-12 MINUTE(NOW)/60)*30,(HOUR(NOW) MINUTE(NOW)/60)*30)

表示取當前時間對應小時的刻度。

G5：1

小時指針的寬度

G6：=360-G4-G5

H4：=MINUTE(NOW)*6

H5：0.5

H6：=360-H4-H5

I4：=SECOND(NOW)*6

I5：0

I6：=360-I4-I5

第四步，將B4：F123選中，點擊【插入】-》【圓環圖】。操作如下圖：

圖4 插入圓環圖

第五步，處理圓環圖。

將內圈2個小圓環圖設置為無填充，無實線。這裡是為了區分鐘表的時針、分針、秒針的長度所做的輔助圓環。等下小夥伴們就會明白為什麼這麼做。

圖5 設置內圈圓環格式

設置外圈三個圓環的格式。最外圈如下圖：

圖6 最外圈格式

第三個內圈設置無填充和無實線，次外圈添加數據標籤。

圖7 設置第2個第3個外圈

設置第2個內圈的標籤格式，同時設置為無填充和無線條，如下：

圖8 生成總表時針標籤

添加時分秒數據進入圖表中，首先添加時針。操作如下，為了演示方便我先將時針的指針大小設置為20.

圖9-1

圖9-2

圖9-3

同理，我們可以將分針和秒針也放進圖標中，這裡，EK就簡單略過，直接實現了。小夥伴們可以按照時針的輸入方法進行放入。圖10 為實現後的效果：

圖10 鐘錶圖

我們為單元格H1添加公式：="時間:" & TEXT(NOW,"hh:mm:ss") 並且為當前圖表添加標題，標題內容為H1（當前時間）中的內容：

圖11 添加時間

第六步，打開ALT F11組合鍵，也可以點擊【開發工具】-》【查看代碼】。添加一個模塊。添加如下代碼：

Sub StartTimer

Sheet2.Range("h1") =時間:"" & TEXT(NOW,""hh:mm:ss"")"

Application.OnTime Now TimeValue("00:00:01"), "StartTimer"

End Sub

Sub EndTimer

On Error Resume Next

Application.OnTime Now TimeValue("00:00:01"), "StartTimer", , False

End Sub

如下圖所示：

圖12 添加代碼

插入兩個按鈕-【開始時鐘】【停止時鐘】：指定宏分別為-》StartTimer和-》EndTimer：

圖13 添加按鈕

咱們來看一下實現效果，

圖14 時鐘效果圖

我們對時鐘界面進行稍微修正美化一下，就可以看到圖1 的效果了。

最後，感謝小夥伴們的觀看，我是EK。如果上述內容能夠幫助到你們，希望你們能點讚，關注，評論，轉發，你們不清楚的地方我會盡力為大家解答，謝謝大家的支持。我會給大家帶來更多關於EXCEL的小技巧。