excel图表换成数据源（「Excel-VBA」功能模块-图表-01-动态变更图表对应数据源）

• 系统环境：Windows 10
• Excel：2016版本

这个系列集锦一些常用的功能模块，在一些项目中会穿插应用

功能模块中又包括很多子模块，本文涉及的是：图表

动态变更图表对应数据源

1. 做好了一张图表，下次有数据更新的时候，但是数据量和原来的不一样
2. 当然通过手动可以重新选择数据源，但是如果是频繁的，也很烦
3. 今天介绍点不一样的，通过VBA来实现

图1 动图

Sub 图表1() Set sht = ThisWorkbook.Worksheets("示例") Set chart1 = sht.ChartObjects("图表 1") Set rng1 = sht.Range("A2:G3") chart1.Chart.SetSourceData Source:=rng1 End Sub Sub 图表2() Set sht = ThisWorkbook.Worksheets("示例") Set chart1 = sht.ChartObjects("图表 1") Set rng1 = sht.Range("A5:J6") chart1.Chart.SetSourceData Source:=rng1 End Sub

图2 代码截图

1. chart1.Chart.SetSourceData Source:=rng1，设置图表数据源为rng1
2. 所以如果你将rng1设置成动态，则可以实现你想要的图表变化
3. 关于rng1的变化可以考虑使用End (xlToLeft)找到某一行的最大列

1. 在示例工作表中设置两个按钮（开发工具-插入-按钮）
2. 右键按钮指定对应宏即可

图3 按钮

图4 添加按钮

以上，为本次的介绍内容，下回见。

本文首发于微信公众号：Excel高效办公之VBA。排版和细节略作修改，发于头条