excel中单击单元格行、列变色

1、先右键我们的工作表，点击查看代码

2、然后插入代码，代码复制进去就好

3、单击后所属行变色

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

4、单击后行、列均变色

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Cells.Interior.ColorIndex = xlNone

    Target.EntireRow.Interior.ColorIndex = 8

    Target.EntireColumn.Interior.ColorIndex = 8

End Sub

5、右键打开后，直接复制进去代码，直接关闭

6、然后继续关闭这个对话框

7、最后，我们就会发现，任意点击单元格就能将整行变色。录入不同的代码将进行不同的行、列变色