基于VBA代码实现数据变更之后,一键刷新生成所需柱状图,即无酹汹钕拚论是添加数据,或者是减少数据,都能实现一键刷新生成新的图表,此方法极大地方便了大家的作图操作。
工具/原料
Excel
以13版为例
方法/步骤
1、本教程以下列数据为例。
2、插入一个ActiveX控件作为生成/刷新图表的按钮,本教程以插入一个命令按钮为例。
3、绘制好控件之后,右键单击该控件,选择命令按钮对象,编辑。
4、本教程编辑按钮名称为柱状图初级篇。
5、再次鼠标右键点击控件,在弹出的菜单中,选择查看代码。
6、此时会自动跳转到VBA界面,如图所示,并弹出一个代码窗口。
7、在代码窗口,复制粘贴以下代码(覆盖粘贴):PrivateSubCommandB掼鸿乡羰utton1_Click()Dimi%,j%on髫潋啜缅errorresumenextActiveSheet.ChartObjects(1).ActivateActiveChart.Parent.Deletei=Application.WorksheetFunction.CountA(Sheet1.Columns("A:A"))j=Application.WorksheetFunction.CountA(Sheet1.Rows("1:1"))Range(Cells(1,1),Cells(i,j)).SelectActiveSheet.Shapes.AddChart2(201,xlColumnClustered).SelectActiveChart.SetSourceDataSource:=Range(Cells(1,1),Cells(i,j))EndSub
8、关闭VBA窗口,回到Excel窗口,先将苇质缵爨Excel文档另存为启用宏的工作簿,以便保存代码,后缀名为xlsm。PS:本教程新建文档时就直接另存为xlsm格式,故跳过此步骤。
9、增加或减少表格数据之后,单击按钮即可生成/刷新图表。
10、删浑睡蔽嗍除一列E列数据之后,图表中的最后一组数据也自动删除了,此时再单击一下控件,可以刷新图表,最终效果如图所示。