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

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

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列移动，看看效果吧：