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

馬震安

首先打開(kāi)存放制作圖表所需數(shù)據(jù)的工作表，選擇“開(kāi)發(fā)工具”選項(xiàng)卡，點(diǎn)擊Visual Basic，在出現(xiàn)的VBA代碼編輯窗口中，點(diǎn)擊“插入→模塊”，輸入如下三行代碼（圖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ū)域，選擇“插入”選項(xiàng)卡，插入折線圖。右擊圖表中的折線系列，選擇“設(shè)置數(shù)據(jù)系列格式”，在系列選項(xiàng)的“填充與線條”中，設(shè)置無(wú)線條，點(diǎn)擊“標(biāo)記”選項(xiàng)卡，在數(shù)據(jù)標(biāo)記選項(xiàng)下，選擇“內(nèi)置”，選擇所需要的類型，設(shè)置好大小、填充及線條顏色等；右擊圖表系列，選擇“添加數(shù)據(jù)標(biāo)簽”，設(shè)置好數(shù)據(jù)標(biāo)簽的位置、字體、大小等。選中圖表，選擇“設(shè)計(jì)”選項(xiàng)卡，添加圖表元素，選擇“線條→垂直線”，右擊圖表中添加的垂直線，選擇“設(shè)置垂直線”，設(shè)置好所需要的顏色和粗細(xì)；刪除圖表中的網(wǎng)格線，設(shè)置好圖表的背景色。調(diào)整好圖表大小，并與相應(yīng)單元格對(duì)齊（圖3）。

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

這樣，當(dāng)鼠標(biāo)點(diǎn)擊單元格中的品牌名稱時(shí)，圖表發(fā)生了相應(yīng)變化，圖表標(biāo)題等也發(fā)生了相應(yīng)變化。動(dòng)態(tài)圖表制作完成。