光標(biāo)過處　圖表交互

馬震安

1.設(shè)置交互代碼

打開數(shù)據(jù)工作表，切換到“開發(fā)工具”選項卡（如果沒有這個選項卡，點(diǎn)擊“文件→選項”，在彈出的“Excel選項”窗口中選擇“自定義功能區(qū)”，然后勾選“開發(fā)工具”就可以了），點(diǎn)擊“Visual Basic”，在出現(xiàn)的VBA窗口中，點(diǎn)擊“插入→模塊”，在代碼窗口輸入圖中所示的3行簡單代碼（圖2）。

2.改造原數(shù)據(jù)

要想圖表具有交互性，還需要對原數(shù)據(jù)進(jìn)行一下改造。在A2單元格輸入“=IFERROR（HYPERLINK（changetmp（A2）），"A部門"）”，在A3單元格輸入“=IFERROR（HYPERLINK（changetmp（A3）），"B部門"）”，本列單元格的輸入內(nèi)容依此類推（圖3）。

3.構(gòu)造圖表數(shù)據(jù)源

切換到“公式”選項卡，點(diǎn)擊“名稱管理器”，在彈出的窗口點(diǎn)擊“新建”，在新彈出窗口的“名稱”處輸入“TEMP”，“引用位置”處輸入“=OFFSET（Sheet1！$A$1，MATCH（Sheet1！$P$1，Sheet1！$A$2：$A$5，0），1，1，12）”。這樣，就為圖表構(gòu)建了數(shù)據(jù)源（圖4）。

4.建立圖表

選中一空白單元格，插入一個帶數(shù)據(jù)點(diǎn)的折線圖。右擊這個空白圖表，選擇“選擇數(shù)據(jù)”，在新彈出窗口的“圖例項”處點(diǎn)擊“添加”，在彈出窗口的“系列值”處輸入“=SHEET1！TEMP”，確定;在“水平（分類）軸標(biāo)簽”處點(diǎn)擊“編輯”，軸標(biāo)簽區(qū)域選擇“=Sheet1！$B$1：$M$1”。這樣，圖表就構(gòu)建完成了，當(dāng)鼠標(biāo)在各部門滑過，圖表交互的效果就出現(xiàn)了（圖5）。

在Q1單元格輸入“=$P$1&"2019年1-12月銷售變化情況"”，選中圖表標(biāo)題，在公式編輯欄輸入“=Sheet1！$Q$1”（或者將光標(biāo)點(diǎn)擊到公式編輯欄后，用鼠標(biāo)點(diǎn)取Q1單元格）。這樣，圖表標(biāo)題也會隨著變化（圖6）。

5.美化圖表

為了讓圖表看起來更加漂亮，需要對圖表進(jìn)行進(jìn)一步的美化處理。刪除圖表的橫向網(wǎng)格線，右擊圖表的縱坐標(biāo)軸，選擇“設(shè)置坐標(biāo)格式”，在坐標(biāo)軸選項中，“最大值”處設(shè)置為“120”，刪除縱坐標(biāo)軸;切換到“圖表設(shè)計”選項卡，點(diǎn)擊“添加圖表元素→數(shù)據(jù)標(biāo)簽→上方”，設(shè)置好標(biāo)簽所需要的字體、顏色及大小;選中圖表中的數(shù)據(jù)點(diǎn)，在右側(cè)的“設(shè)置數(shù)據(jù)系列格式→填充與線條→標(biāo)記”選項卡中，“標(biāo)記選項”處選擇“內(nèi)置”，“類型”處選擇圖片，在彈出的窗口選擇所需要的圖片，“邊框”處選擇“無線條”;設(shè)置好橫坐標(biāo)軸的字體顏色及大小等（圖7）。

6.保存文件

因為交互過程用到了VBA代碼，所以需要將文件保存成啟用宏的文件。點(diǎn)擊“文件一另存為”，在彈出的窗口輸入所需文件名，保存類型處選擇“Excel啟用宏的工作簿”，點(diǎn)擊“保存”就可以了（圖8）。