鼠标移动行变色，十几年的梦想表格终于做出来了

选取Excel表格某行时该行会变色，已分享过多次制作方法，在网上也可以找很多制作教程。

但我们在其他软件中看到的却是只需光标移动（不需要选取），该行就会变色。N年来一直想实现同样的效果，直到今天早上，竟然做了出来，很是激动。来，先看效果：

看似一个选取一个移动变色，后者却难倒了无数Excel高手，因为可以通过VBA事件程序可以获取选取的行数，却无法获取光标移动的位置。但，想到了一个解决办法，完美地实现了这个多年来无法解决的难题。

可能你无法理解上段话的意思，没关系，只要你跟着做，也可以让你的表格实现上面演示的效果。

制作方法：

1、添加条件格式

选取表格 - 开始 - 条件格式 - 新建规则 - 设置公式条件 - 设置格式

=ROW(B3)=$A$2

2、插入图片控件

开发工具 - 插入 - 选取图片控件并拖画出来，最终覆盖除标题行以外的整个表格上

3、插入图片代码

在图片控件上右键 - 查看代码，在弹出的窗口左上角下拉框选取mousemove，然后把下面代码粘到自动出现的两行代码中间。

[a2] = Y \ (Image1.Height / 17) + 3

注：

• A2是表格中任一个空单元格，用来存放鼠标移动时光标所在的行数
• 17 ：是表格除标题行外的总行数
• 3：是控件开始覆盖的最上面一行的行数。
• Image1是插入的图片控件名称

4、把图片控件设置为透明

在图片控件右键 - 属性 - 把backstyle属性值修改为0

5、插入复选框控件和代码

开发工具 -插入 - 选取复选框并插入到表格中，修改标题后再点右键菜单中的查看代码，把下面代码粘到语句中间。

If CheckBox1 = True Then

Image1.Visible = True

Else

Image1.Visible = False

[a2] = ""

End If

注：

Image1：图片控件的名称，一定要和刚才插入的图片名称一致。

[a2] ：上一步设置存放光标所在行数的空单元格。

6、文件另存为加截宏的工作簿

完工！

使用方法：只需要关闭设计模式（点一下它），即可随时启用/关闭变色功能了。

设置步骤虽然有点麻烦，但如果你能实现这样的效果，你已成为办公室最闪亮的Excel高手之一。