鼠标点击单元格整行变色,也称之为聚光灯功能。

一、代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ‘高亮显示
If Target.Row >= Range(“G2”).Value And Target.Row <= Range(“H2”).Value Then ‘自第五行开始,此处数字“5”是行数可以改动
On Error Resume Next
[ChangColor_With1].FormatConditions.Delete
Target.EntireRow.Name = “ChangColor_With1”
With [ChangColor_With1].FormatConditions
.Delete
.Add xlExpression, , “TRUE”
.Item(1).Interior.ColorIndex = 20 ’20,是色表值,可以改为你需要的颜色,详情见色卡
.Item(1).Font.ColorIndex = 5
End With
End If
End Sub ‘结束

二、颜色参照色卡

三、代码放置的位置

声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。