學電腦知識

VBA+公式 輕松制作動態圖表

學電腦知識 http://www.nnyvff.tw 2018-11-25 19:29 出處:網絡 編輯:@學電腦
在Excel中制作動態圖表,傳統的方法是利用表單控件與單元格鏈接,從而獲取圖表所需要數據。其實,不用控件,只需幾句VBA代碼,加上幾個HYPERLINK公式,也可以輕松制作出動態圖表。

在Excel中制作動態圖表,傳統的方法是利用表單控件與單元格鏈接,從而獲取圖表所需要數據。其實,不用控件,只需幾句VBA代碼,加上幾個HYPERLINK公式,也可以輕松制作出動態圖表。

VBA+公式 輕松制作動態圖表

首先打開存放制作圖表所需數據的工作表,選擇“開發工具”選項卡,點擊Visual Basic,在出現的VBA代碼編輯窗口中,點擊“插入→模塊”,輸入如下三行代碼。

Function techart(rng As Range)

Sheet1.[J2]=rng.Value

End Function

VBA+公式 輕松制作動態圖表

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

VBA+公式 輕松制作動態圖表

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

VBA+公式 輕松制作動態圖表

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


0

精彩評論

双色球26选5开奖结果