今天繼續分享一個圖表技巧,先看效果:
隻要光标滑過不同的商品名稱,圖表就會自動變化,是不是很炫酷啊。
一、準備數據源
二,輸入代碼
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(),)
選中按ctrl 連續選 A1:A13;G1:G13,【插入】→【折線圖】
四:美化圖表
設置折線圖為無線條。
設置數據點樣式,添加垂直線(垂直線添加方法如下)
此處省略具體步驟,大家可以根據需要和喜好,設置出不同樣式不同風格的圖表樣式。
最終效果如下:
在圖表上方,輸入模拟圖表标題的公式。
=G1&"2018年銷售趨勢"
在圖表下方,輸入模拟坐标軸的公式。
本例以I12:J13單元格區域為例,依次輸入以下公式:
=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個空格占位,鼠标隻要停在當前分類單元格任意一個地方,都可以觸發代碼運行。
将文件保存成啟用宏的文件,OK!
滑動鼠标看圖表,炫酷拉風不得了。
,
更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!