鼠标点击单元格整行变色，也称之为聚光灯功能。
*WEB端
明细高亮在名称管理器中创建公式名称_HoverRow

*Excel客户端
一、代码如下：
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 '结束

二、颜色参照色卡

三、代码放置的位置

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