excel十字光标代码Cells.FormatConditions.Delete
WithTarget.EntireColumn
.FormatConditions.AddxlExpression,,”=true”
.FormatConditions(1).Interior.ColorIndex=23
EndWith
WithTarget.EntireRow
.FormatConditions.AddxlExpression,,”=true”
.FormatConditions(2).Interior.ColorIndex=27
EndWith
End