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

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

WPS比较简单,我们先来介绍下WPS聚光灯的开启步骤

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

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

wpS的聚光灯设置方法

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

首先我们介绍通过条件格式实现EXCEL聚光灯效果,公式及具体操作如下:

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

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

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

设置条件格式

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

下面来看用VBA的方法:

代码:

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

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

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

设置VBA

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

VBA代码中:

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

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

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

色值可以用以下方式表示

第一种:&H000000FF&,网上有很多对照表,也可以通过excel中的调色表来找(如下图)

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

查找色标色号

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

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

vbRed &HFF 红色

vbGreen &HFF00 绿色

vbYellow &HFFFF 黄色

vbBlue &HFF0000 兰色

vbMagenta &HFF00FF 洋红

vbCyan &HFFFF00 青色

vbWhite &HFFFFFF 白色

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

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

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页