单元格一点交互图表立现

马震安

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

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

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

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

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