Excel中制作可自动运行的动态图表，让你的演示与众不同！

效果演示

第1步：准备数据源：只是普通的表格数据，按公司及年份列示销售额数据，没有任何公式或函数；

数据源表格

第2步：构建辅助数据

1. 在M3输入2018；
2. 选中M4:M10单元格，在公式栏输入公式：=OFFSET(A4:A10,,MATCH($M$3,$B$3:$J$3,0),,)，按CTRL+SHIFT+ENTER三键输入数组公式；
3. 选中O4单元格，输入公式：=M4+RAND()/1000000000，向下拖拉公式到O10单元格。注：这一步的目的是在源数据上加一个很小的数，避免产生重复值；
4. 选中L4单元格，输入公式：=RANK(O4,$O$4:$O$10)，向下拖拉公式到L10单元格。

辅助数据

第3步：构建图表数据源

1. 选中M14单元格，输入公式：=VLOOKUP(L14,$L$4:$N$10,2,0)，向下拖拉公式到M20单元格。
2. 选中O14单元格，输入公式:=IF(N14='本公司',M14,NA())，向下拖拉公式到O20单元格。

图表源

第4步：引用图表数据源制作柱形图

1. 插入柱形图；
2. 分别添加2个系列，用于显示相应年份各公司的数据和突显本公司的数据；
3. 将公司名称添加到水平轴上；
4. 设置数据系列格式，将重叠度设置为：100%；
5. 添加一个文本框，在公式栏中输入：=$M$3，让其可以动态显示年份；

制作柱形图

第5步：插入命令按钮控件；

从开发工具选项卡--插入--ActiveX控件中找到命令按钮，在图表区域中画出即可；

插入命令按钮

第6步：写入VBA代码；

双击命令按钮，进行代码输入，并记得将文件保存为启用宏的工作薄，即可大功告成！

Private Sub CommandButton1_Click()

Static blnProcessing As Boolean

If blnProcessing Then

blnProcessing = False

CommandButton1.Caption = '开始'

Else

CommandButton1.Caption = '暂停'

blnProcessing = True

For i = 2010 To 2018

Range('M3').Value = i

t = Timer

Do While (Timer < t="" +="" 1)="" and="">

DoEvents

Loop

If Not blnProcessing Then Exit Sub

Next

blnProcessing = False

CommandButton1.Caption = '开始'

End If

End Sub

录入代码

总结：动态图表制作并不难，关键是要熟悉函数和图表的运用。如果需要让图表自动运行，则需要借助VBA的功能；如果你需要今天教程所使用的课件，你可以私信回复“自动运行”即可获取。