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

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

مشاركة: تظليل عمود الخلية المحددة
 

جزاك الله كل خير

مشاركة: تظليل عمود الخلية المحددة
 

سبحانك اللهم وبحمدك ، أشهد أن لا إله إلا أنت أستغفرك وأتوب إليك