excel十字交叉突亮显示

标签：change   mamicode   lex   技术   tco   obj   cond   rgb   模式   

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Cells.FormatConditions.Delete
    With Target.EntireColumn
        .FormatConditions.Add xlExpression, , "=true"
        .FormatConditions(1).Interior.Color = RGB(253, 255, 200)
    End With
    With Target.EntireRow
        .FormatConditions.Add xlExpression, , "=true"
        .FormatConditions(2).Interior.Color = RGB(253, 255, 200)
    End With
End Sub

效果如下

选择另外存为xlsm格式即可

excel十字交叉突亮显示

标签：change   mamicode   lex   技术   tco   obj   cond   rgb   模式   

原文地址：https://blog.51cto.com/songhl/2530903