马震安

首先，在存放图表数据源工作表的空白位置输入下拉菜单所需要的内容。如在P1：P2单元格中输入月份、地区。选择“开发工具”选项卡，点击“插入→ActiveX控件→组合框”，在工作表合适位置画出一个组合框，选中组合框，点击“属性”，在它的属性窗口，LinkedCell处输入“Q1”，ListFillRange处输入“P1：P2”，点击BackColor设置它的背景色。还可按需设置它的其他属性。这样，该组合框下拉内容就是P1：P2所显示的内容，点击组合框的内容，就会存放在Q1单元格中（图1）。

选择“公式”选项卡，点击“名称管理器”，新建如图所示的6个名称并设置对应的引用位置（图2）。这样，就可以根据下拉列表的选择确定图表的数据源了。

接下来，选择一个空白单元格，插入一个带数据标记的折線图。右击这个空白图表，选择“选择数据”，在弹出的窗口左侧图例项处点击“添加”，在弹出窗口的系列名称处输入“总计”，在系列值处输入“=Sheet1！Y_ tmp”，在水平轴标签处点击“编辑”，在弹出的窗口输入“=Sheet1！X_tmp”。

选择“开发工具”选项卡，在左侧VBAProject窗口中双击图表所在工作表，在右侧代码区输入如图所示代码（图3）。这样，图表类型就会跟随下拉列表的变化而改变了。

最后，将组合框置于顶层，拖放它到图表的合适位置就可以了（图4）。