Excel动态仪表盘图表VBA代码控制颜色变换

编按：本日来给年夜家分享一个跟着数字变化仪表刻度色彩主动变化的动态仪表盘图。教程中会用到一段VBA轮回语句。感兴致的同窗赶紧学起来吧。

本日要先容给年夜家的图表叫“刻度色彩动态变化仪表盘图”，年夜概长成下面如许子。

这个图表的使用情况，是完成度、进度、占比类型的数据可视化展现。

初看这个图表，感觉很简单是吧。没有过多的辅助数值，也没有过多的操作，依据数据的变化而刻度指导色彩产生变化是它独一的特点。用刻度色彩变化代替了通俗仪表盘图表中的指针。

看着简单，但作者研讨了半天，却只能想到用VBA来做。

下面便是制造步调：

STEP1：制造图表源

在A1单位格输入“数据源”，在A2:A101单位格区域输入100个1，作为图表的占位数据；

STEP2：选中A1:A101单位格区域，对象栏插入——图表——环形图，获得下面的图表。

STEP3：完成比例

在C2单位格输入任何一个完成比例值，譬如65%。

STEP4：录入代码

按ALT+F11，打开VBE界面，选择图表地点代码区；

然后，在代码区，复制粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range) '''事情表单位格值转变触发变乱

If Target.Row = 2 And Target.Column = 3 Then '''假如Target行2列3，即C2单位格时，则

ActiveSheet.ChartObjects("大众图表 1公众).Activate '''运动事情表的图表1被激活

For i = 1 To 100 '''轮回变量1-100，代表图表的100个数据点

k = k + 1 '''计数器，计算当前的百分比值

ActiveChart.FullSeriesCollection(1).Points(i).Select '''依据变量i，逐个选中系列的数据点

If (k / 100) <= Round(ActiveSheet.[C2], 2) Then '''假如当前累计的百分比值，小于即是完成度的值（四舍五入到小数点后两位）

With Selection.Format.Fill '''操作当选择的工具的格局

.ForeColor.RGB = RGB(77, 149, 179) '''添补色的RGB值为【77，149，179】

End With '''With停止语句

Else '''假如当前累计百分比值年夜于完成度的值

With Selection.Format.Fill

.ForeColor.RGB = RGB(217, 217, 217) '''添补色的RGB值为【217，217，217】

End With

End If '''If语句停止

Next i '''轮回语句停止

ActiveSheet.[C2].Select '''从图表的选中状况中退出，选择C2单位格

End If

End Sub '''停止工程

如今，当我们转变C2单位格的百分比值，图表就可以动态显示了，是不是有点酷呢。

末了封闭保留的时刻，记得要将EXCEL文件保留为.XLSM启动宏的文件格局。

提醒：

假如你在操作中发现转变C2数值后提醒差错，不消张皇，问题很可能是当前的仪表盘图表编号与代码中的图表编号纷歧致。此处的代码中指定的图表编号是图表“1”。选中你的图表，右击鼠标，选择“指定宏”敕令，从弹出的 “指定宏”对话框中的宏名中可以看到当前图表的编号。依据这个编号改动代码中的编号即可办理问题。

研讨了好久，大概是“思绪卡住了”，然则我照样没有想出这个图表不消VBA的制造办法，假如年夜家有办法的话，迎接评论留言分享进修一下。

另外对付图表来说，恰当让年夜家也打仗一下VBA的做法，想不定哪天你用上了，也是功德一件嘛。

做Excel高手，快速晋升事情效力，部落窝教育《一周Excel纵贯车》视频和《Excel极速贯通班》直播课经心为你。

进修交流请加微信hclhclsc进群。

若何用气泡图做一个多维对照图表。超具体教程。

Excel教程：若何制造带有条理和透视感的图表。

Excel教程：若何制造带有条理和透视感的图表。

八年夜查找函数公式，轻松搞定数据中的多前提查找

版权声名：

本文作者E图表述；同时部落窝教育享有专有使用权。若需转载请接洽部落窝教育。