设置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
自动触发