excel选定行变色

最新推荐文章于 2024-08-01 21:42:43 发布

ZhangFengFree

最新推荐文章于 2024-08-01 21:42:43 发布

阅读量786

点赞数

分类专栏： Excel 文章标签： excel

本文链接：https://blog.csdn.net/ZhangFengFree/article/details/49132071

版权

Excel 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    On Error Resume Next
    Cells.FormatConditions.Delete
    With Target.EntireRow.FormatConditions
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = 36
    End With
    With Target.EntireColumn.FormatConditions
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = 36
    End With
End Sub