أخفاء أعمدة بناء على قيمة خلية

[khairi ali]

السلام عليكم ورحمة الله وبركاته

أريد كود لإظهار أعمدة معينة بناء على قيمة الخلية كما موضح في الملف المرفق

أخفاء اعمدة.xlsx

[ابراهيم الحداد]

السلام عليكم و رحمة الله

ضع الكود الاول فى موديول عادى

Sub HidColmns()
Dim ws As Worksheet, SRng As String
Dim FrRng As Range, SeRng As Range, ThRng As Range
Dim LR  As Long
Set ws = Sheets("ورقة1")
LR = ws.Range("B" & Rows.Count).End(3).Row
SRng = ws.Range("C2").Text
Set FrRng = ws.Range("F5:H" & LR)
Set SeRng = ws.Range("I5:K" & LR)
Set ThRng = ws.Range("L5:N" & LR)
Application.ScreenUpdating = False
Select Case SRng
Case "الأول"
FrRng.Columns.Hidden = False
SeRng.Columns.Hidden = True: ThRng.Columns.Hidden = True
Case "الثاني"
SeRng.Columns.Hidden = False
FrRng.Columns.Hidden = True: ThRng.Columns.Hidden = True
Case "المجاميع"
ThRng.Columns.Hidden = False
FrRng.Columns.Hidden = True: SeRng.Columns.Hidden = True
Case Else
End Select
Application.ScreenUpdating = True
End Sub

اما الكود الثانى فضعه فى حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
HidColmns
End Sub

 

[khairi ali]

مشكور جدأ وبارك الله فيك استاذي الفاضل