我是一名辦公軟件愛好者，喜歡Excel，會函數、會基礎操作、也會一點VBA。現在和大家分享、交流一些excel的基礎知識，歡迎愛好的和需要學習的朋友，相互學習、一起進步。如果你喜歡我的文章，請關注我，以便第一時間看到我分享的內容。

今天我分享的是用圖表制作時鐘，我們先看下面的動圖效果演示(這個是剛制作完成的，還未美化)：

EXCEL圖表制作的時鐘

---

目錄：

效果演示；

數據構建原理；

數據構建結果；

圖表制作；

圖表美化；

設置時間自動更新；

---

數據構建的原理

(注：該部分內容有點燒腦，如果只為學習圖表制作的操作，坐標的計算過程和原理可以忽略。但是需要看下后面構建好的數據，了解下數據表的格式。需要演示數據的朋友，可以關注我的頭條號，給我私信消息，注明要時鐘圖表素材，我可以把演示數據直接發給你們)

EXCEL圖表制作時鐘，數據構建原理

本例中，我設置的表盤半徑為4，表盤的圓心坐標為(6,6)，然后結合這些參數，利用三角函數和正弦定理、余弦定理，分別計算出12個整點的坐標和48個分鐘的X、Y坐標值。

如上圖中的例子，要計算10點的X和Y坐標值。計算X坐標的公式如下：

=6+SIN(50/60*360*PI()/180)*4

注意：在Excel中，計算30°、60°角的SIN值、COS值，用的公式不是SIN(30)、COS(60)，而應該用SIN(30*PI()/180)或COS(60*PI()/180)【其中的PI()就是π】

由于共有60個點的坐標要計算，所以我將整個圓分成60份，10點的位置剛好是第50份，那么角度就是50/60*360*PI()/180，然后配合正弦定理，計算出邊長，再用圓心的X坐標值加上邊長，既可以得到10點的X坐標值(SINα正弦函數，角度α＞180°的時候，值為負數，10點位置的角度是300°，所以得到的這里得到的是負數)

同理，用余弦定理計算出10點的Y坐標值，公式如下：

=6+COS(50/60*360*PI()/180)*4

用以上兩個公式，只需要修改每個分鐘點相對于12點的角度(按順時針方向，1分鐘為1/60-360，2分鐘為2/60*360…)，就可以批量計算處每個點的X、Y坐標值。

數據構建的結果：

一、表盤設置

設置表盤的圓心坐標和半徑值演示效果

我們設置表盤圓心坐標為(6,6)，設置半徑為4.

二、12個整點坐標值，數據詳見下表

設置的時候，要結合表盤數據，以便在修改表盤參數的時候，整點坐標相應改變。這里用的12等分。

三、48個分鐘坐標值，數據詳見下表(部分數據)

分鐘刻度坐標(部分數據)

設置的時候，要結合表盤數據，以便在修改表盤參數的時候，分鐘坐標相應改變。這里用的60等分。

四、設置時針、分針、秒針坐標

1、設置時針、分針、秒針的坐標時，要結合現在的系統時間，故需要在表格中記錄現在的時間，見【C1】單元格；

2、時針、分針、秒針的第一個點都是圓心位置，坐標為(6,6)；

3、時間指示端的時針X、Y坐標公式為：

X坐標：=$C$3+SIN(MOD($C$1*24,12)/12*360*PI()/180)*($C$5-2)Y坐標：=$C$4+COS(MOD($C$1*24,12)/12*360*PI()/180)*($C$5-2)

4、時間指示端的分針X、Y坐標公式為：

X坐標：=$C$3+SIN(--("0:"&TEXT($C$1,"M:S"))*24*360*PI()/180)*(C5-1)Y坐標：=$C$4+COS(--("0:"&TEXT($C$1,"M:S"))*24*360*PI()/180)*($C$5-1)

5、時間指示端的秒針X、Y坐標公式為：

X坐標：=$C$3+SIN(TEXT($C$1,"S")/60*360*PI()/180)*$C$5Y坐標：=$C$4+COS(TEXT($C$1,"S")/60*360*PI()/180)*$C$5

圖表制作(重點內容)

本例使用的圖表類型為：帶平滑線和數據標記的散點圖

帶平滑線和數據標記的散點圖

一、生成時鐘的整點

生成時鐘的時鐘整點

二、生成時鐘的分鐘

生成時鐘的分鐘

三、生成時鐘的時針、分針、秒針

生成時鐘的時鐘、分針、秒針

圖表美化

時針、分針、秒針的樣式、顏色、大小等設置，各位朋友可以自己摸索、嘗試，這里的美化主要講在圖表中插入圖片背景(其實，圖表美化，我也不太會配色……尷尬)。操作如下：

圖表美化，加入表盤背景

下圖是表盤素材

表盤素材

設置時間自動更新

設置自動更新時間的代碼

由于EXCEL不會每隔一秒自己更新一次數據，所以，我們需要借助VBA代碼，讓excel自動更新時間。使用的代碼如下：

---

Option Explicit

Sub 開始() '開始自動更新時間和代碼

Application.ScreenUpdating = False '關閉屏幕更新

ThisWorkbook.ActiveSheet.Range("C1") = Time '當前工作表C1單元格寫入時間

Application.OnTime Now + TimeValue("00:00:01"), "開始" '啟動自動計時，當前時間+1秒

End Sub

---

Sub 停止() '終止自動跟新時間的代碼

Application.ScreenUpdating = False '關閉屏幕更新

On Error Resume Next '容錯代碼，遇到錯誤自動跳過，并執行后續代碼

Application.OnTime Now + TimeValue("00:00:01"), "開始", , False '停止自動計時

End Sub

---

將以上代碼復制到文件的VBE編輯器里面，然后再工作表中添加兩個按鈕，一個設置為開始計時，一個設置為停止計時。

完成后的效果

完成后的效果

到現在，制作過程展示完成，說下比較關鍵的地方：

1、構建數據，這個相對有點麻煩(尤其是這個例子，里面涉及到數學知識，估計好些人已經把，這也是制作圖表最基礎的地方，往往在很多時候，我們手上的數據無法直接用來制作圖表，都需要根據圖表的特點對數據進行二次加工，所以這個是學習基本功；

2、Excel的圖表有很多種類型，使用的的時候，選擇適合的，將數據的效果全部表達出來即可。

總結

以上是生活随笔為你收集整理的excel公式编辑器_用EXCEL图表制作时钟「内容详细，配有大量动画操作，值得收藏」的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。