我們經常在報表或者PPT彙報中出現雷達圖，那麼如何制作雷達圖呢？其實基礎版本的雷達圖制作時非常簡單的，利用excel的圖表功能制作一個雷達圖時鐘，十分簡單。我們今天要說的是如何制作一個動态的動态時鐘雷達圖。

先和大家解釋一下何為雷達圖，又可稱為戴布拉圖、蜘蛛網圖（Spider Chart），是财務分析報表的一種。即将一個公司的各項财務分析所得的數字或比率，就其比較重要的項目集中劃在一個圓形的圖表上，來表現一個公司各項财務比率的情況，使用者能一目了然的了解公司各項财務指标的變動情形及其好壞趨向。雷達圖主要應用于企業經營狀況——收益性、生産性、流動性、安全性和成長性的評價。

照例舉一個例子,源數據如下圖所示:

看了上述的數據，是不是發現和雷達圖的原始數據非常的類似，其實，我們下面要完成的就利用雷達圖的特效，完成一個時鐘效果的雷達圖。

我們先看看動畫執行的效果：

看了以上的動畫，你是不是發現制作動态的雷達圖，其實很簡單。

您隻需要将以下代碼複制到Excel的VBE窗口的模塊中，然後執行程序即可。

PS:操作流程如下，按照順序1到4步，然後執行程序。

附上Excel VBA代碼

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 '在當前秒針的對應單元格中寫入數值9和0

If s = 59 Then Cells(2, 5) = 0 '如果到了59秒，則E2單元格寫入0

Cells(m 2, 4) = 8: Cells(m 3, 4) = 0 '在當前分針的對應單元格中寫入數值8和0

If m = 59 Then Cells(2, 4) = 0 '如果到了59分，則D2單元格寫入0

If h >= 12 Then h = h - 12 '将24小時格式轉為12小時格式

h = h * 5 Int(m / 12) '計算時針位置

Cells(h 2, 3) = 6: Cells(h 3, 3) = 0 '在當前時針的對應單元格中寫入數值6和0

If h = 59 Then Cells(2, 3) = 0 '如果時針到了59刻度位置，則C2單元格寫入0

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

'每隔一秒運行onClock子程序

End Sub

Sub offClock()

On Error Resume Next

'停止運行onClock子程序

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

End Sub

大家在沒事的時候，可以試試這個方法制作一下動态的雷達圖，當然本文其實最終的結果是制作一個時鐘效果。是借用雷達圖的基礎架構。

PS:雷達圖分析法是對企業經營情況進行系統分析的一種有效方法。從圖上可以看出企業經營狀況的全貌，一目了然地找出了企業經營上的薄弱環節，為下一步審計打下基礎。

以上就是今天要和大家分享的技巧，希望對大家有所幫助，祝各位一天好心情！

唯有不斷學習，才能不被淘汰！

Excel中每一個方法都有特定的用途，不是他們沒有用處，隻是你不了解或者暫時用不着，建議你收藏起來，萬一哪天用着呢？

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!