高亮显示单元格行列
在WPS2019的功能中,【视图】【阅读模式】可以使的所选单元格的行列高亮显示,从而使得定位一些信息变得更加方便,功能位置如下:![在这里插入图片描述](https://img-blog.csdnimg.cn/2020022410305870.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L20wXzQ2MjkxNTg5,size_16,color_FFFFFF,t_70)
下面将通过VBA代码在Excel中实现改功能:包含高亮显示行和列、高亮显示行、高亮显示列:
高亮显示行和列
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Cells.Interior.ColorIndex = xlNone '每次点击都会清除之前的高亮区域
Set rng = Application.Union(Target.EntireColumn, Target.EntireRow) '高亮显示行和列
rng.Interior.ColorIndex = 24 '设置颜色
'rng.Interior.Color = 65535 '设置颜色的另一种方法
End Sub
高亮显示列
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Cells.Interior.ColorIndex = xlNone
Target.EntireColumn.Interior.ColorIndex = 24
End Sub
高亮显示行
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 24
End Sub
|