Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Intersect(Target, Me.Range("A:A")) Is Nothing ThenRange("B1:D1000").Interior.ColorIndex = xlNoneTarget.Offset(, 1).Interior.ColorIndex = 4 Target.Offset(, 2).Interior.ColorIndex = 6 End IfEnd Sub
کامنت