制作随鼠标而动动态图表.docVIP

制作随鼠标而动的动态图表 　　以前我们常用表单控件来制作动态图表，通过选项按钮、下拉列表等控件来控制图表的互动。而在下面的实例中只需要鼠标来到相应单元格，不用点击，即可使图表发生动态变化（图1）。操作更加简单了，但实现起来容易吗？让我们在Excel 2016中试试看吧 1. 巧用简单自定义函数 我们以球员得分数据表为例，打开数据表，整理好数据 随后点击“公式”选项卡中的“定义名称”，新建名称分别为“姓名”、“数据”，引用位置分别选择J2、K2的两个名称。点击“开发工具”选项卡打开VBA编辑窗口，点击“插入→模块”，在右侧的代码编辑区输入图中的两个简单自定义函数即可（图2） 接下来，在J9单元格输入“=IF（ISERROR（HYPERLINK（hl（$A$1））），$A$1，HYPERLINK（hl（$A$1）））”，在J10单元格输入“=IF（ISERROR（HYPERLINK（hl（$A$7））），$A$7，HYPERLINK（hl（$A$7）））”，J11到J13单元格中的公式依次类推，这样在J9、J10、J11、J12、J13就会显示NBA球员姓名，同时也实现了当鼠标放到J9、J10、J11、J12、J13单元格时，J2单元格就会出现相应的行号值；同样，在K8单元格输入“=IF（ISERROR（HYPERLINK（hll（B$1））），B$1，HYPERLI