- 发布日期:2024-06-21 16:16 点击次数:194
编按:今天来给全球共享一个跟着数字变化仪容刻度表情自动变化的动态仪容盘图。教程中会用到一段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图表述;同期部落窝解释享有独有使用权加油站设备。若需转载请计议部落窝解释。
本站仅提供存储管事,扫数本色均由用户发布,如发现存害或侵权本色,请点击举报。- 然则短期仍是接近前期趋势线压力2024-06-16
- 申购价钱:8.42元2024-06-16