复制以下代码。
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
在工作表名称"Sheet1"上单击右键,查看代码,把复制的代码粘上去。
关闭窗口,回到工作表就可以了.
开启视图里面的阅读模式
你的这个Excel是什么版本的?我在2003中好像没办法做到。同样等待大侠回答!