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

CFan 电脑爱好者 2020-08-27 10:01应用 标签:图表 单元 技巧 办公

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

1907A-JHTB-1

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

1907A-JHTB-2

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

1907A-JHTB-3

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

1907A-JHTB-4

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

1907A-JHTB-5

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

入驻平台680