鼠标随动指定区域高亮显示（Excel聚光灯）-Toy模板网

这篇具有很好参考价值的文章主要介绍了鼠标随动指定区域高亮显示（Excel聚光灯）。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

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

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

演示效果如下图所示。

鼠标随动指定区域高亮显示（Excel聚光灯）,Excel,条件格式,表格,聚光灯,条件格式,高亮显示,指定区域聚光灯,指定区域高亮显示
示例代码如下。

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, 156)
                .StopIfTrue = True
            End With
        End If
    End If
End Sub

【代码解析】
第3行代码获取需要设置高亮显示的数据表区域（不含标题行）。
第4~6行代码遍历数据表区域中的条件格式，根据公式删除Worksheet_SelectionChange事件创建的条件格式，如果数据表中没有使用其他条件格式，那么无需判断，全部清除即可。
第7行代码判断是否选中了整列。
第8行代码获取选中区域所在行与数据表区域的交叉部分（下文中成为高亮区域）。
第9行代码判断高亮区域是否为空。
第10行代码在高亮区域添加一个条件格式，其公式为=TRUE。
第12行代码设置条件格式最高优先级。
第13行代码设置高亮填充颜色。
第14行代码设置条件为真则停止，避免被其他条件格式覆盖。文章来源地址https://www.toymoban.com/news/detail-793682.html

到了这里，关于鼠标随动指定区域高亮显示（Excel聚光灯）的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！