论文部分内容阅读
1. 设置交互控件
在工作表的F1：F3分别输入月份、地区、产品，H1：H2分别输入地区、产品，I1：I2分别输入月份、产品，J1：J2分别输入月份、地区。
①构建下拉列表1
点击“开发工具→插入→表单控件→组合框”，在合适位置画出一个组合框控件，将组合框的数据源区域设置为F1：F3，单元格链接为G1。
②构建下拉列表2
点击“公式→名称管理器→新建”，名称为“z_cd”，引用位置处为“=CHOOSE（Shee t1！$G$1，Sheet1！$H$1：$H$2，Sheet1！$I$1：$I$2，Sheet1！$J$1：$J$2）”；再画出一个组合框控件，数据源区域为“z_cd”，单元格链接为G2。
在G4单元格输入“=INDIRECT（CHOO SE（$G$1，"H"，"I"，"J"） & $G$2）”（图2）。
2. 编写数据钻取VBA代码
点击“开发工具→Visual Basic”进入VBA编辑器，点击“插入→类模块”，选中插入的“类1”，选择“视图→属性窗口”，将类的名称改为“CEventChart”，双击这个类进入编辑窗口，输入如图所示代码（图3）。
接下来，点击“插入→模块”，双击“模块1”，在代码编辑窗口输入如图所示代码（图4）。
接下来，双击“ThisWorkBook”，在右侧编辑窗口输入如图所示代码（图5）。
这样，当点击图表中的系列时，系列名称就会出现在G3单元中。
3. 构建图表数据源
图表的数据源是根据上述控件的当前索引值获得的。
①构建主图表数据源
分别新建名为lb_11、lb_22、lb_33的3个名称，lb_11的引用位置为“=INDEX（Sheet1！$A$1：$A$41，N（IF（{1}，SMA LL（99*（MATCH（Sheet1！$A$2：$A$41，Sheet1！$A$1：$A$41，）
新建名为“lb_tmp” 的名称，引用位置处输入“=CHOOSE（She et1！$G$1，lb_11，lb_22，lb_33）”；
新建名为“sum_1” 的名称，引用位置处输入“=SUMIF（Sheet1！$A$2：$D$41，lb_11，Sheet1！$D$ 2：$D$41）”；
新建名为“sum_2” 的名称，引用位置处输入“=SUMIF（Sheet1！$B$2：$D$41，lb_22，Sheet1！$D$2：$D$41）”；
新建名为“sum_3” 的名称，引用位置处输入“=SUMIF（Sheet1！$C$2：$D$41，lb_33，Sheet1！$D$2：$D$41）”；
新建名为“sum_tmp” 的名称，引用位置处输入“=CHOOSE（ Sheet1！$G$1，sum_1，sum_2，su m_3）”；
其中，lb_11、lb_22、lb_22分别获取各列中的不重复值，从而形成数组；lb_tmp确定使用哪个数组作为主图表的类别图例；sum_1、sum_2、sum_3分别对各类别数组所对应的数量求和；sum_tmp确定使用哪个求和结果作为主图表的数据源。
②构建子图表数据源
新建名为“l b _ t m p _ t m p”的名称，引用位置为“= I F（S h e et1！$ G $ 4 ="月份"，lb_11，IF（Sheet1！$G$4="地区"，lb_22，lb_33））”；
新建名为“sum_tmp_tmp”的名称，引用位为“=SUMIFS（She et1！$D$2：$D$41，IF（Sheet1！$G$ 1=1，Sheet1！$A$2：$A$41，IF（Sh eet1！$G$1=2，Sheet1！$B$2：$B$ 41，Sheet1！$C$2：$C$41）），Shee t1！$G$3，IF（Sheet1！$G$4="月份"，Sheet1！$A$2：$A$41，IF（Shee t1！$G$4="地區"，Sheet1！$B$2：$ B$41，Sheet1！$C$2：$C$41）），lb_ tmp_tmp）”；
其中，lb_tmp_tmp确定使用哪个数组作为子图表的类别图例； sum_tmp_tmp根据主图表中列表及子图表中列表的选择来对数量求和，从而作为子图表的数据源。
4. 插入并设置图表
插入两个饼状图。右击第1个饼图，选择“选择数据”，在弹出窗口的“图例项”处，点击“编辑”，在系列值处输入“=Sheet1！sum_ tmp”；在“水平（分类）轴标签”处，点击“编辑”，在弹出的窗口中输入“=Sheet1！lb_tmp”。右击第2个饼图，选择“选择数据”，在弹出窗口的“图例项”处，点击“编辑”，在系列值处输入“=Sheet1！sum_ tmp_tmp”；在“水平（分类）轴标签”处，点击“编辑”，在弹出的窗口中输入“=Sheet1！lb_tmp_tmp”。
最后，将每个下拉列表框都置于顶层，拖放到图表的各自位置，选中G 5单元格，输入“=CONCATENATE（G3，"各"，G 4，"销售情况统计" ）”，选择图表标题，在公式编辑栏中输入“=Sheet1！$G$5”。这样，图表标题就会跟随控件的选择而进行变化了。