ahmedkamalali

Highlight the Column of the Selected Cell

تظليل عمود الخلية المحددة

هذا الماكرو سيتم تضليل العمود في الخلية النشطة. سيملأ هذا العمود من الخلية النشطة

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Static cc
If cc <> "" Then
With Columns(cc).Interior
.ColorIndex = xlNone
End With
End If
c = Selection.Column
cc = c
With Columns(c).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

__________________