用图表表示数据时,有的数据适合于用柱形图,有的适合于用折线图,还有的适合于用饼图。把每样数据用不同的图表表现出来,比较繁杂。若用一个图表,根据下拉列表框选择用不同的图表类型表示不同的数据,将会显得紧凑有序。用定义名称生成图表数据源,借助简单VBA更改图表类型,即可实现这样的效果。
首先,在存放图表数据源工作表的空白位置输入下拉菜单所需要的内容。如在P1:P2单元格中输入月份、地区。选择“开发工具”选项卡,点击“插入→ActiveX控件→组合框”,在工作表合适位置画出一个组合框,选中组合框,点击“属性”,在它的属性窗口,LinkedCell处输入“Q1”,ListFillRange处输入“P1:P2”,点击BackColor设置它的背景色。还可按需设置它的其他属性。这样,该组合框下拉内容就是P1:P2所显示的内容,点击组合框的内容,就会存放在Q1单元格中(图1)。
选择“公式”选项卡,点击“名称管理器”,新建如图所示的6个名称并设置对应的引用位置(图2)。这样,就可以根据下拉列表的选择确定图表的数据源了。
接下来,选择一个空白单元格,插入一个带数据标记的折线图。右击这个空白图表,选择“选择数据”,在弹出窗口左侧图例项处点击“添加”,在弹出窗口的系列名称处输入“总计”,在系列值处输入“=Sheet1!Y_tmp”,在水平轴标签处点击“编辑”,在弹出窗口输入“=Sheet1!X_tmp”。
选择“开发工具”选项卡,在左侧VBAProject窗口中双击图表所在工作表,在右侧代码区输入如图所示代码(图3)。这样,图表类型就会跟随下拉列表的变化而改变了。
小提示:
图表类型代码可通过宏录制的方法得到。先建立一个柱形图,点击“开发工具→录制宏”,将柱形图更改为折线图,再点击“停止录制”,点击“宏”,在弹出窗口选择录制的宏名称,点击“编辑”,就可以看到更改后的图表类型代码了。知道代码后,将录制的宏删除掉。
最后,将组合框置于顶层,拖放它到图表的合适位置就可以了(图4)。
网友评论