كيف اظهر واخفي اعمدة مختارة بزر واحد ؟

[أبو ليمونه]

السلام عليكم ...

 

لدي ملف اكسل ودائما احتاج الى اخفاء الاعمدة F-I-K-O 

 

هل بالامكان عمل ذلك عبر كود VBA بحيث يكون هناك زر واحد عند الضغط عليه تختفي تلك الاعمدة وعند الضغط عليه مرة ثانية تظهر ؟؟

 

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

 

اخوكم ابو ليمونه

Hide-Show.rar

[أبو حنــــين]

السلام عليكم

تفضل اخي

Hide-Show.rar

[عبدالله باقشير]

السلام عليكم

بارك الله فيك اخي الحبيب ابوحنين

للفائدة هذا اثراء للموضوع

عكس العملية بدلا من استخدام شرط

Sub Button1_Click()
With Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn
    .Hidden = Not .Hidden
End With
End Sub

تحياتي

[وليد زقزوق]

Module7.rar

اضف هذا المديول الي ملفك مع تغير اسم الورقه واسماء الاعمده

 

[أبو ليمونه]

شكرا لك ابو حنين ...

 

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

 

اشكر الجميع على مشاركتهم

 

ودمتم ،،،

[أبو ليمونه]

ابو حنين

 

السلام عليكم ...

 

بعد التعديل على الكود لم يعمل ... يبدوا انني اضفت اعمدة كثيرة ... هل من حل لهذه المشكلة ؟؟

Sub Button1_Click()
With Sheets("Result").Range("J:J,Q:Q,X:X,AE:AE,AL:AL,AS:AS,AZ:AZ,BG:BG,BN:BN,BU:BU,CB:CB,CI:CI,CP:CP,CW:CW,DD:DD,DK:DK,DR:DR,DY:DY,EF:EF,EM:EM,ET:ET,FA:FA,FH:FH,FO:FO,FV:FV,GC:GC,GJ:GJ,GQ:GQ,GX:GX,HE:HE,HL:HL,HS:HS,HZ:HZ,IG:IG,IN:IN,IU:IU,JB:JB,JI:JI,JP:JP,JW:JW,KD:KD,KK:KK,KR:KR,KY:KY,LF:LF,LM:LM,LT:LT,MA:MA,MH:MH,MO:MO,MV:MV,NC:NC,NJ:NJ,NQ:NQ,NX:NX,OE:OE,OL:OL,OS:OS,OZ:OZ,PG:PG").EntireColumn
If .Hidden = True Then .Hidden = False Else .Hidden = True
End With
End Sub

[أبو حنــــين]

السلام عليكم

اخي ابو ليمونة

هذا هو الكود مع الأخذ بعين الاعتبار اسم الشيت

اذا كان اسم الشيت لديك هو Result  فغير هذا الجزئ

Sheets("Sheet1")

بهذا الجزئ

Sheets("Result")

و ان كان اسمه عندك هو Sheet1 فاترك الكود كما يلي

Sub Button1_Click()

With Union(Sheets("Sheet1").Range("J:J,Q:Q,X:X"), Range("AE:AE,AL:AL,AS:AS,AZ:AZ"), _
Range("BG:BG,BN:BN,BU:BU"), Range("CB:CB,CI:CI,CP:CP,CW:CW"), _
Range("DD:DD,DK:DK,DR:DR,DY:DY"), Range("EF:EF,EM:EM,ET:ET"), _
Range("FA:FA,FH:FH,FO:FO,FV:FV"), Range("GC:GC,GJ:GJ,GQ:GQ,GX:GX"), _
Range("HE:HE,HL:HL,HS:HS,HZ:HZ"), Range("IG:IG,IN:IN,IU:IU"), _
Range("JB:JB,JI:JI,JP:JP,JW:JW"), Range("KD:KD,KK:KK,KR:KR,KY:KY"), _
Range("LF:LF,LM:LM,LT:LT"), Range("MA:MA,MH:MH,MO:MO,MV:MV"), _
Range("NC:NC,NJ:NJ,NQ:NQ,NX:NX"), Range("OE:OE,OL:OL,OS:OS,OZ:OZ"), Range("PG:PG")).EntireColumn

If .Hidden = True Then .Hidden = False Else .Hidden = True
End With
End Sub

[أبو ليمونه]

بارك الله فيك اخي ابو حنين