PrivateSub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireColumn
.FormatConditions.Add xlExpression, , =true
.FormatConditions(1).Interior.ColorIndex = 23
End With
With Target.EntireRow
.FormatConditions.Add xlExpression, , =true
.FormatConditions(2).Interior.ColorIndex = 27
End With
End
顶一下
(0)
0%
踩一下
(0)
0%
上一篇：返回栏目