【excel vba】触发事件高亮显示

设置with对象

单元格格式设置
With………End With
Now()函数
Format函数

录制宏

Sub 宏1()
//喷颜色
    Rows("12:12").Select
    Range("P12").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
 //删除颜色
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

选取关键代码块

.Pattern = xlNone
.Interior.Color = 65535

触发事件

1、多选
放到目标表中的selection change作为触发事件

Sub gys()

Selection.EntireRow.Interior.Color = 65535

End Sub

此时选取的单元格有了颜色

2、触发单选

Sub gys()

    Cells.Interior.Pattern = xlNone
    Selection.EntireRow.Interior.Color = 65535
End Sub

自动触发