Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 7
End With
End Sub
工作表输入此代码后,选中单元格整行会变色,问题是:删除此代码后颜色去不掉。请高手帮忙解决。谢谢。