單元格一點(diǎn)交互圖表立現(xiàn)

馬震安

首先，選擇‘公式”選項(xiàng)卡，點(diǎn)擊“名稱管理器”，在彈出的窗口中點(diǎn)擊“新建”，“名稱”處輸入“sjrtmp”，“弓}用位置”處輸入“=OFFSET（$B$1：$I$1，CELL（"row"）-1，）”（圖2）。

接著，選定一空白單元格，根據(jù)需要插入一個(gè)圖表，如帶數(shù)據(jù)點(diǎn)的折線圖。右擊圖表，選擇“選擇數(shù)據(jù)”，在彈出窗口的左側(cè)點(diǎn)擊“添加”，“系列名稱”處輸入“源數(shù)據(jù)”，“系列值”處輸入“=sheet2！sjrtmp”，在右側(cè)的“水平軸標(biāo)簽”處點(diǎn)擊“編輯”，選定數(shù)據(jù)源中所需要的標(biāo)簽區(qū)域，如B1：11（圖3）。

接下來，選定數(shù)據(jù)區(qū)域A1：I8。切換到“開始”選項(xiàng)卡，點(diǎn)擊“條件格式、管理規(guī)則”，在彈出窗口的選擇規(guī)則類型處選擇最下面的“使用公式確定要設(shè)置格式的單元格”，在為符合此公式的值設(shè)置格式處輸入“=AND（CELL（"row"）=ROW（），CELL（"col"）=COLUMN（）”，點(diǎn)擊“格式”，將填充色設(shè)置為綠色，文字設(shè)置為紅色（可根據(jù)需要自‘于設(shè)置。這樣，當(dāng)點(diǎn)擊相應(yīng)的單元格，被選定的單元格就發(fā)生顏色填充及文字變色（圖4）。

這時(shí)，當(dāng)點(diǎn)擊單元格時(shí)，圖表的相應(yīng)變化總是慢半拍，并且圖表的位置總是固定不變的，可添加一小段VBA代碼來增加交互時(shí)的流暢性。選擇“開發(fā)工具”選項(xiàng)卡，點(diǎn)擊“Visual Basic”，在出現(xiàn)的VBA代碼編輯窗口中，雙擊圖表所在的工作表，如Sheet2，在右側(cè)編輯窗口輸入如圖所示的一小段代碼（圖5）。

這樣，當(dāng)點(diǎn)擊單元格時(shí)，圖表內(nèi)容及其位置發(fā)生相應(yīng)的變化。