馬震安

首先，在存放圖表數(shù)據(jù)源工作表的空白位置輸入下拉菜單所需要的內(nèi)容。如在P1：P2單元格中輸入月份、地區(qū)。選擇“開發(fā)工具”選項卡，點(diǎn)擊“插入→ActiveX控件→組合框”，在工作表合適位置畫出一個組合框，選中組合框，點(diǎn)擊“屬性”，在它的屬性窗口，LinkedCell處輸入“Q1”，ListFillRange處輸入“P1：P2”，點(diǎn)擊BackColor設(shè)置它的背景色。還可按需設(shè)置它的其他屬性。這樣，該組合框下拉內(nèi)容就是P1：P2所顯示的內(nèi)容，點(diǎn)擊組合框的內(nèi)容，就會存放在Q1單元格中（圖1）。

選擇“公式”選項卡，點(diǎn)擊“名稱管理器”，新建如圖所示的6個名稱并設(shè)置對應(yīng)的引用位置（圖2）。這樣，就可以根據(jù)下拉列表的選擇確定圖表的數(shù)據(jù)源了。

接下來，選擇一個空白單元格，插入一個帶數(shù)據(jù)標(biāo)記的折線圖。右擊這個空白圖表，選擇“選擇數(shù)據(jù)”，在彈出的窗口左側(cè)圖例項處點(diǎn)擊“添加”，在彈出窗口的系列名稱處輸入“總計”，在系列值處輸入“=Sheet1！Y_ tmp”，在水平軸標(biāo)簽處點(diǎn)擊“編輯”，在彈出的窗口輸入“=Sheet1！X_tmp”。

選擇“開發(fā)工具”選項卡，在左側(cè)VBAProject窗口中雙擊圖表所在工作表，在右側(cè)代碼區(qū)輸入如圖所示代碼（圖3）。這樣，圖表類型就會跟隨下拉列表的變化而改變了。

最后，將組合框置于頂層，拖放它到圖表的合適位置就可以了（圖4）。