移动鼠标能变色，这种效果怎么样？

鼠标移动过去就能变色，这样的效果怎么样？

Step 01

准备数据源

Step 02：

Alt+F11 打开VBE窗口，【插入】【模块】

复制如下代码到模块中

Function color()

[e1] = Application.Caller().Row

End Function

Step 03：

退出VBE，在数据源最后一列输入公式：

=IFERROR(HYPERLINK(color(),"劫色"),"劫色")

Step 04:

下拉公式，这时候鼠标移动到D列单元格，E1单元格就会出现行号哦。

Step 05:

选中A2:C11单元格区域设置条件格式

Step 06：

确定之后，鼠标在D列移动，看看效果吧：

图文作者：罗子阳

图书《Excel VBA经典代码应用大全》作者之一

专业的职场技能充电站