我是一名辦公軟件愛好者，喜歡Excel，會函數、會基礎操作、也會一點VBA。現在和大家分享、交流一些excel的基礎知識，歡迎愛好的和需要學習的朋友，相互學習、一起進步。如果你喜歡我的文章，請關注我，以便第一時間看到我分享的內容。
今天我分享的是用圖表製作時鐘，我們先看下面的動圖效果演示（這個是剛製作完成的，還未美化）：
EXCEL圖表製作的時鐘
目錄：
- 效果演示；
- 數據構建原理；
- 數據構建結果；
- 圖表製作；
- 圖表美化；
- 設置時間自動更新；
數據構建的原理
（注：該部分內容有點燒腦，如果只為學習圖表製作的操作，座標的計算過程和原理可以忽略。但是需要看下後面構建好的數據，瞭解下數據表的格式。需要演示數據的朋友，可以關注我的頭條號，給我私信消息，註明要時鐘圖表素材，我可以把演示數據直接發給你們）
EXCEL圖表製作時鐘，數據構建原理
本例中，我設置的錶盤半徑為4，錶盤的圓心座標為（6,6），然後結合這些參數，利用三角函數和正弦定理、餘弦定理，分別計算出12個整點的座標和48個分鐘的X、Y座標值。
如上圖中的例子，要計算10點的X和Y座標值。計算X座標的公式如下：
<code>=6+SIN(50/60*360*PI()/180)*4/<code>
注意：在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座標值，公式如下：
<code>=6+COS(50/60*360*PI()/180)*4/<code>
用以上兩個公式，只需要修改每個分鐘點相對於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座標公式為：
<code>X座標：=$C$3+SIN(MOD($C$1*24,12)/12*360*PI()/180)*($C$5-2)/<code>
<code>Y座標：=$C$4+COS(MOD($C$1*24,12)/12*360*PI()/180)*($C$5-2)/<code>
4、時間指示端的分針X、Y座標公式為：
<code>X座標：=$C$3+SIN(--("0:"&TEXT($C$1,"M:S"))*24*360*PI()/180)*(C5-1)/<code><code>Y座標：=$C$4+COS(--("0:"&TEXT($C$1,"M:S"))*24*360*PI()/180)*($C$5-1)/<code>5、時間指示端的秒針X、Y座標公式為：
<code>X座標：=$C$3+SIN(TEXT($C$1,"S")/60*360*PI()/180)*$C$5/<code>
<code>Y座標：=$C$4+COS(TEXT($C$1,"S")/60*360*PI()/180)*$C$5/<code>
圖表製作（重點內容）
本例使用的圖表類型為：帶平滑線和數據標記的散點圖
帶平滑線和數據標記的散點圖
一、生成時鐘的整點
生成時鐘的時鐘整點
二、生成時鐘的分鐘
生成時鐘的分鐘
三、生成時鐘的時針、分針、秒針
生成時鐘的時鐘、分針、秒針
圖表美化
時針、分針、秒針的樣式、顏色、大小等設置，各位朋友可以自己摸索、嘗試，這裡的美化主要講在圖表中插入圖片背景（其實，圖表美化，我也不太會配色……尷尬）。操作如下：
圖表美化，加入錶盤背景
下圖是錶盤素材
錶盤素材
設置時間自動更新
設置自動更新時間的代碼
由於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的圖表有很多種類型，使用的的時候，選擇適合的，將數據的效果全部表達出來即可。
閱讀更多 上班下班 的文章
