تظليل الصف والعمود للخلية النشطة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Me.Cells.Interior.Color = xlNone

Columns(Target.Column).Interior.ColorIndex = 35

Rows(Target.Row).Interior.ColorIndex = 35

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

    Application.ScreenUpdating = False

    Cells.Interior.ColorIndex = 0

    With Target

  .EntireRow.Interior.ColorIndex = 4

  .EntireColumn.Interior.ColorIndex = 4

  End With

  Application.ScreenUpdating = True

End Sub