发布日期:2024-09-28 06:17 点击次数:172
编按:今天来给全球共享一个跟着数字变化边幅刻度神情自动变化的动态边幅盘图。教程中会用到一段VBA轮回语句物联网app开发。感意思的同学飞速学起来吧!
今天要先容给全球的图表叫“刻度神情动态变化边幅盘图”,大略长成底下这花式!
这个图表的使用环境,是完成度、过程、占比类型的数据可视化展示。
图片
初看这个图表,嗅觉很浮浅是吧?莫得过多的提拔数值,也莫得过多的操作,把柄数据的变化而刻度教学神情发生变化是它唯独的特点。用刻度神情变化取代了世俗边幅盘图表中的指针。
图片
看着浮浅,但作家有计划了半天,却只可猜测用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 '''要是现时累计的百分比值,小于等于完成度的值(四舍五入到少许点后两位)
appWith 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图表述;同期部落窝阐发享有私有使用权。若需转载请有计划部落窝阐发物联网app开发。
本站仅提供存储就业,所有本色均由用户发布,如发现存害或侵权本色,请点击举报。