simple method to highlight row. paste in sheet code
Dim OldColorIndex As Integer
Dim WorkRange As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not WorkRange Is Nothing Then WorkRange.Interior.ColorIndex = OldColorIndex
OldColorIndex = Target.Interior.ColorIndex
Set WorkRange = Nothing
Set WorkRange = ActiveSheet.Range(Cells(Target.Row, 1), Cells(Target.Row, Cells(1, Columns.Count).End(xlToLeft).Column))
WorkRange.Interior.ColorIndex = 3
End Sub
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…