小夥伴們好啊,今天和大家分享一個動态圖表技巧,先看效果:
隻要光标滑過不同的商品名稱,圖表就會自動變化。
步驟一:準備資料源
步驟二:輸入代碼
Alt+F11 打開VBE視窗,【插入】→【子產品】
複制如下代碼到子產品中,退出VBE視窗:
Function techart(rng As Range)
Sheet1.[g1] = rng.Value
End Function
步驟三:輸入公式
在G1單元格中輸入任意一個商品名稱,如牛仔褲。
G2輸入公式,下拉至G13:
=HLOOKUP(G$1,B$1:E2,ROW(),)
選中G1:G13,【插入】→【折線圖】
步驟四:美化圖表
設定折線圖為無線條。
設定資料點樣式,添加垂直線。
此處省略具體步驟,大家可以根據需要和喜好,設定出不同樣式不同風格的圖表樣式。
最終效果如下:
步驟五:輸入公式在圖表上方,輸入模拟圖表标題的公式。
=G1&"2015年銷售趨勢"
在圖表下方,輸入模拟坐标軸的公式。
本例以J15:K16單元格區域為例,依次輸入以下公式:
=IFERROR(HYPERLINK(techart(B1)),"◆"&B1&"◆"&REPT(" ",99))
=IFERROR(HYPERLINK(techart(C1)),"◆"&C1&"◆"&REPT(" ",99))
=IFERROR(HYPERLINK(techart(D1)),"◆"&D1&"◆"&REPT(" ",99))
=IFERROR(HYPERLINK(techart(E1)),"◆"&E1&"◆"&REPT(" ",99))
輸入公式後的效果如下:
公式後面為什麼要連接配接REPT(" ",99)呢?
如果隻是單獨顯示分類的話,滑鼠需要停到文字上才會變化,是以使用99個空格占位,滑鼠隻要停在目前分類單元格任意一個地方,都可以觸發代碼運作。
将檔案儲存成啟用宏的檔案(xls、xlsm),OK啦!
作者:提線木偶