VBA+公式 輕松制作動態(tài)圖表

馬震安

首先打開存放制作圖表所需數(shù)據(jù)的工作表，選擇“開發(fā)工具”選項卡，點擊Visual Basic，在出現(xiàn)的VBA代碼編輯窗口中，點擊“插入→模塊”，輸入如下三行代碼（圖2）：

Function techart（rng As Range）

Sheet1.[J2]=rng. Value

End Function

退出VBA窗口，在工作表的J2單元格任意輸入數(shù)據(jù)源中已存在的礦泉水名稱，如“百歲山”，在J3單元格輸入“=HLOOKUP（$J$2， B $ 2 ： G 3 ， R O W （ ） -1，F(xiàn)ALSE）”，并下拉填充至所需要的單元格，如J14。選中J2：J14單元格數(shù)據(jù)區(qū)域，選擇“插入”選項卡，插入折線圖。右擊圖表中的折線系列，選擇“設置數(shù)據(jù)系列格式”，在系列選項的“填充與線條”中，設置無線條，點擊“標記”選項卡，在數(shù)據(jù)標記選項下，選擇“內置”，選擇所需要的類型，設置好大小、填充及線條顏色等；右擊圖表系列，選擇“添加數(shù)據(jù)標簽”，設置好數(shù)據(jù)標簽的位置、字體、大小等。選中圖表，選擇“設計”選項卡，添加圖表元素，選擇“線條→垂直線”，右擊圖表中添加的垂直線，選擇“設置垂直線”，設置好所需要的顏色和粗細；刪除圖表中的網(wǎng)格線，設置好圖表的背景色。調整好圖表大小，并與相應單元格對齊（圖3）。

接下來，在L16單元格輸入“=IF ERROR（HYPERLINK（techart（B2）），"*"&B2;&"*"&REPT;（" "，35））”，在O16單元格輸入“=IFERROR（HYP ERLINK（techart（C2）），"*"&C2;&"*"& REPT（" "，35））”，這樣，單元格就都顯示出了相應礦泉水的品牌名稱。同理，在L17：O18單元格中輸入相應公式以顯示其他礦泉水品牌名稱。最后，在L1單元格中輸入“=CONCATENATE（"某批發(fā)部 "，$J$2，" 品牌礦泉水銷售統(tǒng)計"）”，選中L1：Q1單元格區(qū)域，對齊方式為“跨列居中”，設置好填充色及字體顏色、大小等，選中L16：O18單元格，設置好它們的填充色及文字顏色、大小等（圖4）。

這樣，當鼠標點擊單元格中的品牌名稱時，圖表發(fā)生了相應變化，圖表標題等也發(fā)生了相應變化。動態(tài)圖表制作完成。