Excel也有觸摸屏！圖表就會自動變化……

點擊上方“數(shù)據(jù)管道”，選擇“置頂星標”公眾號

干貨福利，第一時間送達

今天分享一個圖表技巧，先看效果：

只要光標滑過不同的商品名稱，圖表就會自動變化，是不是很炫酷啊？是不是沒想到Excel也有觸摸屏？

步驟一：準備數(shù)據(jù)源

步驟二：輸入代碼

Alt+F11?打開VBE窗口，【插入】→【模塊】

復(fù)制如下代碼到模塊中，退出VBE窗口：

Function techart(rng As Range)

??? Sheet1.[g1] = rng.Value

End Function

步驟三：輸入公式

在G1單元格中輸入任意一個商品名稱，如牛仔褲。

G2輸入公式，下拉至G13：

=HLOOKUP(G$1,B$1:E2,ROW(),)

選中G1：G13，【插入】→【折線圖】

步驟四：美化圖表

設(shè)置折線圖為無線條。

設(shè)置數(shù)據(jù)點樣式，添加垂直線。

此處省略具體步驟，大家可以根據(jù)需要和喜好，設(shè)置出不同樣式不同風(fēng)格的圖表樣式。

最終效果如下：

步驟五：輸入公式

在圖表上方，輸入模擬圖表標題的公式。

=G1&"2015年銷售趨勢"

在圖表下方，輸入模擬坐標軸的公式。

本例以J15:K16單元格區(qū)域為例，依次輸入以下公式：

=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個空格占位，鼠標只要停在當(dāng)前分類單元格任意一個地方，都可以觸發(fā)代碼運行。

將文件保存成啟用宏的文件（xls、xlsm），OK啦！

-END-