wps表格用vba制作编号递增（EXCEL和wps表格聚光灯的几种做法）

操作大数据的时候行列太多找数据不好找，总容易看走眼。用WPS的都知道，在右下角可以开启聚光灯，就是你选中一个单元格他对应的行和列都会有着重颜色。

首先打开wps表格，再也页面右下角底部信息栏中找到聚光灯的开启按钮，WPS中叫做阅读模式，单击即可打开。点击后面小箭头可以选择颜色，具体如图：

wpS的聚光灯设置方法

EXCEL默认是没有这个功能的只能通过条件格式或者VBA来实现，其实还可以通过插件来实现，不过我这里就不介绍了。

公式：=(cell("row")=row()) (cell("col")=column())

具体操作：选中数据区域（就是你所有数据所在的区域），我这里没有数据，直接选择整个表格，然后点击开始——条件格式——新建规则，选择使用公式确定要设置格式的单元格，在为符合此公式的值设置格式下粘贴上面的公式，然后再格式中给他一个颜色即可，具体操作如图：

设置条件格式

噗~，是不是发现了，你点了聚光灯不跟着你的鼠标走，哈哈哈，这个就是条件格式的弊端，你需要按F9从新计算（类似于刷新的效果），你每操作一步就需要按一下。没什么实用性。

代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target

.Parent.Cells.Interior.ColorIndex = xlNone

.EntireRow.Interior.Color = vbGreen

.EntireColumn.Interior.Color = vbCyan

.Interior.Color = vbRed

End With

End Sub

具体操作：在工作表名称上右击（你也可以通过开发工具来插入代码，不过这个默认没放在工具栏里你找不到的话还是按照我这个来吧），右击之后点击查看代码，在弹出来的代码框里粘贴代码，关闭代码框即可，具体操作如图：

设置VBA

VBA的实用性还是蛮高的，而且代码比较简单好操作。不过颜色不好操作，没办法手选。如果你觉得颜色不好看，可以继续往下看。

VBA代码中：

.EntireRow.Interior.Color = vbGreen 为行颜色，vbGreen为色值

.EntireColumn.Interior.Color = vbCyan 为列颜色，vbCyan为色值

.Interior.Color = vbRed 为选中单元格颜色，vbRed为色值

色值可以用以下方式表示

第一种：&H000000FF&，网上有很多对照表，也可以通过excel中的调色表来找（如下图）

查找色标色号

第二种：RGB(255, 0, 0)，这种网上也有对照表也可以通过excel中的调色表来找（如上图）

第三种：vbred 就是目前我们默认使用的色值，下面附一份常用的颜色vbBlack &H0 黑色

vbRed &HFF 红色

vbGreen &HFF00 绿色

vbYellow &HFFFF 黄色

vbBlue &HFF0000 兰色

vbMagenta &HFF00FF 洋红

vbCyan &HFFFF00 青色

vbWhite &HFFFFFF 白色

注意直接输前面的英文就好了，后面是对应的16进制颜色和中文描述！

好了今天的分享就到这里，喜欢的话帮忙点赞转发关注一下吧（有点贪心），谢谢大家！有不懂的也可以在评论区给我留言哦！