圖表中的交互 數(shù)據(jù)鉆取還能這么用

馬震安

1. 設置交互控件

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

①構建下拉列表1

點擊“開發(fā)工具→插入→表單控件→組合框”，在合適位置畫出一個組合框控件，將組合框的數(shù)據(jù)源區(qū)域設置為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）”；再畫出一個組合框控件，數(shù)據(jù)源區(qū)域為“z_cd”，單元格鏈接為G2。

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

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

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

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

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

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

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

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

①構建主圖表數(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，）