编按:今天来给全球共享一个跟着数字变化边幅刻度颜料自动变化的动态边幅盘图。教程中会用到一段VBA轮回语句。感有趣有趣的同学飞速学起来吧!
今天要先容给全球的图表叫“刻度颜料动态变化边幅盘图”,概况长成底下这边幅!
这个图表的使用环境,是完成度、经由、占比类型的数据可视化展示。
图片
初看这个图表,嗅觉很简便是吧?莫得过多的援助数值,也莫得过多的操作,确认数据的变化而刻度指引颜料发生变化是它唯独的特质。用刻度颜料变化取代了宽泛边幅盘图表中的指针。
图片
看着简便,但作家参议了半天,却只可猜测用VBA来作念。
底下即是制作本事:
STEP1:制作图表源
在A1单位格输入“数据源”,在A2:A101单位格区域输入100个1,行为图表的占位数据;
STEP2:选中A1:A101单位格区域,器具栏插入——图表——环形图,得回底下的图表。
图片
STEP3:完成比例
在C2单位格输入任何一个完成比例值,比方65%。
STEP4:录入代码
按ALT+F11,大开VBE界面,遴选图表场地代码区;
图片
首页-诚园奥门窗有限公司然后,在代码区,青铜峡市静科地板有限公司复制粘贴底下的代码:
深圳市林澳进出口有限公司 255, 湛江市洁同石灰有限公司 255); text-align: justify;">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图表述;同期部落窝锻练享有独到使用权新闻资讯。若需转载请商量部落窝锻练。
本站仅提供存储劳动,系数本色均由用户发布,如发现存害或侵权本色,请点击举报。