在Excel中制作随着滚动条变化的动态图表

想让你的Excel数据展示活起来吗？一个能随着滚动条变化的动态图表，无疑能为枯燥的数字增添不少灵活性和趣味性。下面，我们就来一步步拆解这个实用的制作方法。

准备数据

万事开头，数据先行。首先，你得确保手头有一份完整且规律的数据源。比方说，一份按月份排列的销售数据表格，就是绝佳的练习材料。

创建滚动条

1. 找到“开发工具”选项卡。如果你的功能区里没有它，别急，只需进入“文件”>“选项”>“自定义功能区”，把它勾选上即可。

2. 在“开发工具”选项卡下，点击“插入”，从表单控件里选择“滚动条”。

3. 接下来，在你的工作表中拖动鼠标，绘制出一个滚动条。刚画出来的滚动条，位置和大小可能不太合心意，没关系——右键点击它，选择“设置控件格式”。

4. 在弹出的对话框中，切换到“控制”选项卡。这里的“最小值”、“最大值”、“步长”等参数是关键，它们必须与你的数据范围相匹配。举个例子，如果你的数据是从1到100，那么最小值就设为1，最大值设为100。

定义名称

为了让后续操作更清晰，我们可以给数据区域起个“名字”。选中与滚动条关联的那片数据区域，点击“公式”选项卡下的“定义名称”，给它取个像“销售数据”这样一目了然的名字。

制作动态图表

1. 现在，插入一个你想要的图表类型，比如柱形图。在选取数据时，就选择刚才命名的“销售数据”区域，图表会据此初步生成。

2. 选中这个图表，上方会出现“图表工具”菜单。点击其中的“设计”选项卡，找到“选择数据”。

3. 在弹出的“选择数据源”对话框中，点击“图表数据区域”右侧那个小小的折叠按钮，再次选中你定义好的数据区域，然后点击“确定”。这样一来，图表就和你的命名区域绑定了。

实现动态效果

重头戏来了，让图表真正“动”起来，需要一点VBA代码的助力。

1. 再次回到“开发工具”选项卡，点击“Visual Basic”进入VBA编辑器。

2. 在VBA编辑器中，通过菜单栏的“插入”，选择“模块”，新建一个模块。

3. 在模块的代码窗口中，输入以下核心代码：

Sub UpdateChart()
    Dim scrollValue As Integer
    scrollValue = ActiveSheet.Shapes(“滚动条名称”).ControlFormat.Value
    ActiveSheet.ChartObjects(“图表名称”).Chart.SetSourceData Source:=Range(“销售数据”).Offset(0, scrollValue - 1).Resize(1, 10)
End Sub

注意，你需要将代码中的“滚动条名称”和“图表名称”替换成你工作表中实际的名称。

4. 输入完毕后，关闭VBA编辑器，回到Excel工作表界面。

5. 右键点击之前创建的滚动条，进入“设置控件格式”。在“控制”选项卡里，找到“单元格链接”，将它指向一个空白单元格。这个单元格的作用，就是实时显示滚动条的当前数值。

6. 最后一步，添加一个触发按钮。在“开发工具”的“插入”里选择“按钮（窗体控件）”，在工作表上画出来。右键点击这个按钮，选择“指定宏”，然后选中我们刚刚编写的“UpdateChart”宏。

至此，大功告成。每当你拖动滚动条或者点击按钮时，图表就会像被施了魔法一样，根据数值的变化动态更新，展示出不同区段的数据面貌。试试看，是不是比静态图表有意思多了？