编按：今天来给各人共享一个跟着数字变化面孔刻度表情自动变化的动态面孔盘图男性人体艺术。教程中会用到一段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图表述；同期部落窝证明享有私有使用权男性人体艺术。若需转载请关系部落窝证明。
本站仅提供存储就业，所有这个词实质均由用户发布，如发现存害或侵权实质，请点击举报。