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

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

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

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

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

制作方法：

1、添加条件格式

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

=ROW(B3)=A2

2、插入图片控件

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

3、插入图片代码

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

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

注：

A2是表格中任一个空单元格，用来存放鼠标移动时光标所在的行数

17：是表格除标题行外的总行数

3：是控件开始覆盖的最上面一行的行数。

Image1是插入的图片控件名称

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

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

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

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

IfCheckBox1=TrueThen

Image1.Visible=True

Else

Image1.Visible=False

[a2]=""

EndIf

注：

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

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

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

完工！

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

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

长按下面