Excel点击选中的行改变颜色

在Excel表格中，我们为了突出显示选中的记录。有时希望高亮显示点击的行。

在当前工作表的Worksheet_SelectionChange事件添加下面的代码，可在鼠标点击后高亮显示该行数据。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    
    Cells.FormatConditions.Delete
    
    With Target.EntireRow.FormatConditions
        
        .Delete
        
        .Add xlExpression, , "TRUE"
        
        .Item(1).Interior.ColorIndex = 6
        
    End With
End Sub

附上颜色代码编号。