excel十字光标代码？

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