鼠标随动指定区域高亮显示（Excel聚光灯）

最新推荐文章于 2026-03-03 00:45:22 发布

原创

最新推荐文章于 2026-03-03 00:45:22 发布 · 2.5k 阅读

标签

#聚光灯 #条件格式 #高亮显示 #指定区域聚光灯 #指定区域高亮显示

收录于

实例需求：工作表中数据表实现跟随鼠标选中高亮效果，需要注意如下几个细节需求

数据表为连续区域，但是不一定从A1单元格开始
数据表的前两行（标题行）不使用高亮效果
数据表中已经应用了条件格式，高亮显示取消后，不应破坏已经设置的条件格式
如果选中整列，则不启用高亮显示

演示效果如下图所示。

请添加图片描述
示例代码如下。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rowsRng As Range, useRng As Range, oFC As FormatCondition
    Set useRng = Me.UsedRange.Resize(Me.UsedRange.Rows.Count - 2).Offset(2)
    For Each oFC In useRng.FormatConditions
        If oFC.Formula1 = "=TRUE" Then oFC.Delete
    Next
    If Target.Rows.Count < Me.Rows.Count Then
        Set rowsRng = Application.Intersect(Target.EntireRow, useRng)
        If Not rowsRng Is Nothing Then
            Set oFC = rowsRng.FormatConditions.Add(Type:=xlExpression, Formula1:="True")
            With oFC
                .SetFirstPriority
                .Interior.Color = RGB(255, 235,