馬震安

1. 設(shè)置交互控件

在工作表的F1：F3分別輸入月份、地區(qū)、產(chǎn)品，H1：H2分別輸入地區(qū)、產(chǎn)品，I1：I2分別輸入月份、產(chǎn)品，J1：J2分別輸入月份、地區(qū)。

①構(gòu)建下拉列表1

點(diǎn)擊“開發(fā)工具→插入→表單控件→組合框”，在合適位置畫出一個組合框控件，將組合框的數(shù)據(jù)源區(qū)域設(shè)置為F1：F3，單元格鏈接為G1。

②構(gòu)建下拉列表2

點(diǎn)擊“公式→名稱管理器→新建”，名稱為“z_cd”，引用位置處為“=CHOOSE（Shee t1！$G$1，Sheet1！$H$1：$H$2，Sheet1！$I$1：$I$2，Sheet1！$J$1：$J$2）”；再畫出一個組合框控件，數(shù)據(jù)源區(qū)域?yàn)椤皕_cd”，單元格鏈接為G2。

在G4單元格輸入“=INDIRECT（CHOO SE（$G$1，"H"，"I"，"J"） & $G$2）”（圖2）。

2. 編寫數(shù)據(jù)鉆取VBA代碼

點(diǎn)擊“開發(fā)工具→Visual Basic”進(jìn)入VBA編輯器，點(diǎn)擊“插入→類模塊”，選中插入的“類1”，選擇“視圖→屬性窗口”，將類的名稱改為“CEventChart”，雙擊這個類進(jìn)入編輯窗口，輸入如圖所示代碼（圖3）。

接下來，點(diǎn)擊“插入→模塊”，雙擊“模塊1”，在代碼編輯窗口輸入如圖所示代碼（圖4）。

接下來，雙擊“ThisWorkBook”，在右側(cè)編輯窗口輸入如圖所示代碼（圖5）。

這樣，當(dāng)點(diǎn)擊圖表中的系列時，系列名稱就會出現(xiàn)在G3單元中。

3. 構(gòu)建圖表數(shù)據(jù)源

圖表的數(shù)據(jù)源是根據(jù)上述控件的當(dāng)前索引值獲得的。

①構(gòu)建主圖表數(shù)據(jù)源

分別新建名為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，）