編按：

今天來(lái)給大家分享一個(gè)隨著數(shù)字變化儀表刻度顏色自動(dòng)變化的動(dòng)態(tài)儀表盤(pán)圖。教程中會(huì)用到一段VBA循環(huán)語(yǔ)句。感興趣的同學(xué)趕緊學(xué)起來(lái)吧！

今天要介紹給大家的圖表叫“刻度顏色動(dòng)態(tài)變化儀表盤(pán)圖”，大概長(zhǎng)成下面這樣子！

這個(gè)圖表的使用環(huán)境，是完成度、進(jìn)度、占比類型的數(shù)據(jù)可視化展示。

初看這個(gè)圖表，感覺(jué)很簡(jiǎn)單是吧？沒(méi)有過(guò)多的輔助數(shù)值，也沒(méi)有過(guò)多的操作，根據(jù)數(shù)據(jù)的變化而刻度指示顏色發(fā)生變化是它唯一的特色。用刻度顏色變化取代了普通儀表盤(pán)圖表中的指針。

看著簡(jiǎn)單，但作者研究了半天，卻只能想到用VBA來(lái)做。

下面就是制作步驟：

STEP1：制作圖表源

在A1單元格輸入“數(shù)據(jù)源”，在A2:A101單元格區(qū)域輸入100個(gè)1，作為圖表的占位數(shù)據(jù)；

STEP2：選中A1:A101單元格區(qū)域，工具欄插入——圖表——環(huán)形圖，得到下面的圖表。

STEP3：完成比例
在C2單元格輸入任何一個(gè)完成比例值，譬如65%。

STEP4：錄入代碼

按ALT+F11，打開(kāi)VBE界面，選擇圖表所在代碼區(qū)；

然后，在代碼區(qū)，復(fù)制粘貼下面的代碼：

Private Sub Worksheet_Change(ByVal Target As Range) '''工作表單元格值改變觸發(fā)事件

  If Target.Row = 2 And Target.Column = 3 Then '''如果Target行2列3，即C2單元格時(shí)，則

    ActiveSheet.ChartObjects("圖表 1").Activate '''活動(dòng)工作表的圖表1被激活

    For i = 1 To 100 '''循環(huán)變量1-100，代表圖表的100個(gè)數(shù)據(jù)點(diǎn)

      k = k + 1 '''計(jì)數(shù)器，計(jì)算當(dāng)前的百分比值

      ActiveChart.FullSeriesCollection(1).Points(i).Select '''根據(jù)變量i，逐個(gè)選中系列的數(shù)據(jù)點(diǎn)

      If (k / 100) <= Round(ActiveSheet.[C2], 2) Then '''如果當(dāng)前累計(jì)的百分比值，小于等于完成度的值（四舍五入到小數(shù)點(diǎn)后兩位）

        With Selection.Format.Fill '''操作被選擇的對(duì)象的格式

          .ForeColor.RGB = RGB(77, 149, 179) '''填充色的RGB值為【77，149，179】

        End With '''With結(jié)束語(yǔ)句

      Else '''如果當(dāng)前累計(jì)百分比值大于完成度的值

        With Selection.Format.Fill

          .ForeColor.RGB = RGB(217, 217, 217) '''填充色的RGB值為【217，217，217】

        End With

      End If '''If語(yǔ)句結(jié)束

    Next i '''循環(huán)語(yǔ)句結(jié)束

    ActiveSheet.[C2].Select '''從圖表的選中狀態(tài)中退出，選擇C2單元格

  End If

End Sub '''結(jié)束工程

現(xiàn)在，當(dāng)我們改變C2單元格的百分比值，圖表就可以動(dòng)態(tài)顯示了，是不是有點(diǎn)酷呢！

最后關(guān)閉保存的時(shí)候，記得要將EXCEL文件保存為.XLSM啟動(dòng)宏的文件格式。
提示：
如果你在操作中發(fā)現(xiàn)改變C2數(shù)值后提示錯(cuò)誤，不用慌張，問(wèn)題很可能是當(dāng)前的儀表盤(pán)圖表編號(hào)與代碼中的圖表編號(hào)不一致。此處的代碼中指定的圖表編號(hào)是圖表“1”。選中你的圖表，右擊鼠標(biāo)，選擇“指定宏”命令，從彈出的 “指定宏”對(duì)話框中的宏名中可以看到當(dāng)前圖表的編號(hào)。根據(jù)這個(gè)編號(hào)修改代碼中的編號(hào)即可解決問(wèn)題。

研究了很久，也許是“思路卡住了”，但是我還是沒(méi)有想出這個(gè)圖表不用VBA的制作方法，如果大家有方法的話，歡迎評(píng)論留言分享學(xué)習(xí)一下。

另外對(duì)于圖表來(lái)說(shuō)，適當(dāng)讓大家也接觸一下VBA的做法，想不定哪天你用上了，也是好事一件嘛！

本文配套的練習(xí)課件請(qǐng)加入QQ群：902294808下載。

做Excel高手，快速提升工作效率，部落窩教育《一周Excel直通車》視頻和《Excel極速貫通班》直播課全心為你！

掃下方二維碼關(guān)注公眾號(hào)，可隨時(shí)隨地學(xué)習(xí)Excel：

相關(guān)推薦：

如何用氣泡圖做一個(gè)多維對(duì)比圖表？超詳細(xì)教程！

Excel教程：如何制作帶有層次和透視感的圖表？

Excel教程：如何制作帶有層次和透視感的圖表？

八大查找函數(shù)公式，輕松搞定數(shù)據(jù)中的多條件查找

版權(quán)申明：

本文作者E圖表述；同時(shí)部落窩教育享有專有使用權(quán)。若需轉(zhuǎn)載請(qǐng)聯(lián)系部落窩教育。