كود اخفاء

[وليد زقزوق]

هااااااااااااام جدا

اريد كود اخفاء عدد من الاعمده غير متسلسل

[عبد الله بولنوار]

لم تذكر الاعمدة التي تريد اخفاءها

 

هذا مثال

اخفاء.rar

تم تعديل ديسمبر 15, 2014 بواسطه عبد الله بولنوار

[ياسر خليل أبو البراء]

تفضل أخي هذا الملف لربما يفيدك

Hide Columns.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي عبد الله بولنوار وجزاك الله خير الجزاء

يمكن استخدام الكود بهذا الشكل بود الحاجة للتحديد :

Sub HideSpecificColumns()
    Range("B:B,D:D,F:F,H:H,J:J,L:L").EntireColumn.Hidden = True
End Sub

Sub ShowSpecificColumns()
    Range("B:B,D:D,F:F,H:H,J:J,L:L").EntireColumn.Hidden = False
End Sub