编按：今天来给大家共享一个跟着数字变化形貌刻度神态自动变化的动态形貌盘图黑丝 足交。教程中会用到一段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教程：何如制作带有档次和透视感的图表？

八大查找函数公式，简流毒置数据中的多要求查找

版权声名：

本文作家E图表述；同期部落窝教育享有独有使用权黑丝 足交。若需转载请关连部落窝教育。 

本站仅提供存储作事，整个骨子均由用户发布，如发现存害或侵权骨子，请点击举报。