أبو ليمونه قام بنشر أبريل 14, 2014 مشاركة قام بنشر أبريل 14, 2014 السلام عليكم ... لدي ملف اكسل ودائما احتاج الى اخفاء الاعمدة F-I-K-O هل بالامكان عمل ذلك عبر كود VBA بحيث يكون هناك زر واحد عند الضغط عليه تختفي تلك الاعمدة وعند الضغط عليه مرة ثانية تظهر ؟؟ جزاكم الله خير... اخوكم ابو ليمونه Hide-Show.rar 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبو حنــــين قام بنشر أبريل 14, 2014 أفضل إجابة مشاركة قام بنشر أبريل 14, 2014 السلام عليكم تفضل اخي Hide-Show.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أبريل 14, 2014 مشاركة قام بنشر أبريل 14, 2014 السلام عليكم بارك الله فيك اخي الحبيب ابوحنين للفائدة هذا اثراء للموضوع عكس العملية بدلا من استخدام شرط Sub Button1_Click() With Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn .Hidden = Not .Hidden End With End Sub تحياتي 5 رابط هذا التعليق شارك More sharing options...
وليد زقزوق قام بنشر أبريل 14, 2014 مشاركة قام بنشر أبريل 14, 2014 Module7.rar اضف هذا المديول الي ملفك مع تغير اسم الورقه واسماء الاعمده 1 رابط هذا التعليق شارك More sharing options...
أبو ليمونه قام بنشر أبريل 15, 2014 الكاتب مشاركة قام بنشر أبريل 15, 2014 شكرا لك ابو حنين ... وجزاك الله الف الف خير اشكر الجميع على مشاركتهم ودمتم ،،، 1 رابط هذا التعليق شارك More sharing options...
أبو ليمونه قام بنشر أبريل 15, 2014 الكاتب مشاركة قام بنشر أبريل 15, 2014 ابو حنين السلام عليكم ... بعد التعديل على الكود لم يعمل ... يبدوا انني اضفت اعمدة كثيرة ... هل من حل لهذه المشكلة ؟؟ 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 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أبريل 16, 2014 مشاركة قام بنشر أبريل 16, 2014 السلام عليكم اخي ابو ليمونة هذا هو الكود مع الأخذ بعين الاعتبار اسم الشيت اذا كان اسم الشيت لديك هو 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 رابط هذا التعليق شارك More sharing options...
أبو ليمونه قام بنشر أبريل 16, 2014 الكاتب مشاركة قام بنشر أبريل 16, 2014 بارك الله فيك اخي ابو حنين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.