辦公小技巧：圖表類型巧切換

用圖表表示數據時，有的數據適合於用柱形圖，有的適合於用折線圖，還有的適合於用餅圖。把每樣數據用不同的圖表表現出來，比較繁雜。若用一個圖表，根據下拉列表框選擇用不同的圖表類型表示不同的數據，將會顯得緊湊有序。用定義名稱生成圖表數據源，藉助簡單VBA更改圖表類型，即可實現這樣的效果。

首先，在存放圖表數據源工作表的空白位置輸入下拉菜單所需要的內容。如在P1:P2單元格中輸入月份、地區。選擇「開發工具」選項卡，點擊「插入ActiveX控制項組合框」，在工作表合適位置畫出一個組合框，選中組合框，點擊「屬性」，在它的屬性窗口，LinkedCell處輸入「Q1」，ListFillRange處輸入「P1:P2」，點擊BackColor設置它的背景色。還可按需設置它的其他屬性。這樣，該組合框下拉內容就是P1:P2所顯示的內容，點擊組合框的內容，就會存放在Q1單元格中（圖1）。

選擇「公式」選項卡，點擊「名稱管理器」，新建如圖所示的6個名稱並設置對應的引用位置（圖2）。這樣，就可以根據下拉列表的選擇確定圖表的數據源了。

接下來，選擇一個空白單元格，插入一個帶數據標記的折線圖。右擊這個空白圖表，選擇「選擇數據」，在彈出窗口左側圖例項處點擊「添加」，在彈出窗口的系列名稱處輸入「總計」，在系列值處輸入「=Sheet1!Y_tmp」，在水平軸標籤處點擊「編輯」，在彈出窗口輸入「=Sheet1!X_tmp」。

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

小提示：

圖表類型代碼可通過宏錄製的方法得到。先建立一個柱形圖，點擊「開發工具錄製宏」，將柱形圖更改為折線圖，再點擊「停止錄製」，點擊「宏」，在彈出窗口選擇錄製的宏名稱，點擊「編輯」，就可以看到更改後的圖表類型代碼了。知道代碼後，將錄製的宏刪除掉。

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

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！