天天看點

高階圖表,是這樣做出來的

作者:Excel之家

小夥伴們好啊,今天和大家分享一個動态圖表技巧,先看效果:

高階圖表,是這樣做出來的

隻要光标滑過不同的商品名稱,圖表就會自動變化。

步驟一:準備資料源

高階圖表,是這樣做出來的

步驟二:輸入代碼

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啦!

高階圖表,是這樣做出來的

作者:提線木偶