excel 选中单元格行列变色

选中单元格所在的行列变色

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        .Parent.Cells.Interior.ColorIndex = xlNone
        .EntireRow.Interior.ColorIndex = 6
        .EntireColumn.Interior.ColorIndex = 4
    End With
End Sub

选中单元格所在的行变色

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
        .Parent.Cells.Interior.ColorIndex = xlNone
        .EntireRow.Interior.Color = vbYellow
    End With
End Sub

 

隔行变色

设置条件格式

=MOD(ROW(),2)=0

 

选中单元格所在行变色，边框变色

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet
        .Range("A1:IV65536").Interior.ColorIndex = 0
        .Range("A1:IV65536").Borders.LineStyle = 0
        .Range(.Cells(Target.Row, 1), .Cells(Target.Row, 256)).Interior.ColorIndex = 6
        .Range(.Cells(Target.Row, 1), .Cells(Target.Row, 256)).Borders.ColorIndex = 5
    End With
End Sub