Private Sub Workbook
_SheetSelectionChange (ByVal Sh As
Object, ByVal Target As Range)
Cells. FormatConditions. Delete
With Target. EntireColumn
。FormatConditions. Add xIExpression, , "
=true"
。FormatConditions (1) . Interior. Colorindex =20 End With
With Target. EntireRow
。FormatConditions. Add xIExpression, , "
=true"
。FormatConditions (2) . Interior. Colorindex =20 EndWith
End Sub