办公小技巧：单元格一点 交互图表立现

很多动态图表一般都是通过与控件的互动而产生交互效果。其实，舍去控件，单纯地通过点击单元格也能实现交互式动态图表效果，只需要定义名称并有几句VBA代码的配合就可以了（图1）。

首先，选择“公式”选项卡，点击“名称管理器”，在弹出窗口中点击“新建”，“名称”处输入“sjrtmp”，“引用位置”处输入“=OFFSET($B$1:$I$1,CELL("row")-1,)”（图2）。

接着，选定一空白单元格，根据需要插入一个图表，如带数据点的折线图。右击图表，选择“选择数据”，在弹出窗口的左侧点击“添加”，“系列名称”处输入“源数据”，“系列值”处输入“=sheet2!sjrtmp”，在右侧“水平轴标签”处点击“编辑”，选定数据源中所需要的标签区域，如B1:I1（图3）。

接下来，选定数据区域A1:I8。切换到“开始”选项卡，点击“条件格式管理规则”，在弹出窗口的选择规则类型处选择最下面的“使用公式确定要设置格式的单元格”，在为符合此公式的值设置格式处输入“=AND(CELL("row")=ROW(),CELL("col")=COLUMN())”，点击“格式”，将填充色设置为绿色，文字设置为红色（可根据需要自行设置）。这样，当点击相应单元格，被选定的单元格就发生颜色填充及文字变色（图4）。

这时，当点击单元格时，图表的相应变化总是慢半拍，并且图表的位置总是固定不变的，可添加一小段VBA代码来增加交互时的流畅性。选择“开发工具”选项卡，点击“Visual Basic”，在出现的VBA代码编辑窗口中，双击图表所在工作表，如Sheet2，在右侧编辑窗口输入如图所示的一小段代码（图5）。

这样，当点击单元格时，图表内容及其位置发生相应变化。