كود لاظهار اعمدة مختلفة او متجاورة

[ناصر سعيد]

جزاكم الله خيرا لكل ماتقدمونه من أعمال تقربا لله

المطلوب : كود يظهر اعمده متجاوره محدده...او اعمده غير متجاوره محدده في الصفحه ...
وباقي اعمده الصفحه مخفيه

وبارك الله لكم

[سليم حاصبيا]

جرب هذا الكود

يمكنك تحديد الاعمدة من خلاله 

Sub hide_some_columns()
Sheets("sheet1").Columns.Hidden = True
Range("b1,c1,d1,r1").EntireColumn.Hidden = False

End Sub

 

[عبدالباري البنا]

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

بعد اذن أستاذنا الكبيرسليم حاصبيا

محاوله أخرى أتمنى ان تفى بالغرض

اخفاء واظهار أعمدة1.rar

تم تعديل فبراير 22, 2017 بواسطه عبدالباري البنا

[ناصر سعيد]

الاستاذ سليم

حفظك الله

كودك متميز ولكن عند التجربه لايظهر امامي الاعمده المختارة وانما لابد من تريك الاسكرول بار اللي تحت عشان تظهر الاعمده امامي ... لو لها حل

الاستاذ عبد الباري

حفظك الله

كودك متميز ولكن تخيل فيه اسماء اعمده كتيره  ... هل الفورمه تستطيع انها تاتي بكل اسماء الاعمده

ثانيا اسماء الاعمده عندما اغيرها لاتتجدد الاسماء

حفظكم الله ورعاكم

[سليم حاصبيا]

1 ساعه مضت, ناصر سعيد said:

الاستاذ سليم

حفظك الله

كودك متميز ولكن عند التجربه لايظهر امامي الاعمده المختارة وانما لابد من تريك الاسكرول بار اللي تحت عشان تظهر الاعمده امامي ... لو لها حل

الاستاذ عبد الباري

Sub hide_some_columns()
Sheets("sheet1").Columns.Hidden = True
Range("b1,c1,d1,r1").EntireColumn.Hidden = False
Range("b1").Select
End Sub

حفظك الله

كودك متميز ولكن تخيل فيه اسماء اعمده كتيره  ... هل الفورمه تستطيع انها تاتي بكل اسماء الاعمده

ثانيا اسماء الاعمده عندما اغيرها لاتتجدد الاسماء

حفظكم الله ورعاكم

اضف الى الكود هذا السطر ليصبح هكذا

 

 

[ناصر سعيد]

الله يسعد ايامك استاذ سليم

Sub hide_some_columns()
Sheets("sheet1").Columns.Hidden = True
Range("b1,c1,d1,r1").EntireColumn.Hidden = False
Range("b1").Select
End Sub

 

[ناصر سعيد]

عند تطبيقه على ملف لم يتم المراد

والمرفق موجود

ارجو تضبيطه

 

الملف للمحترم سليم حاصبيا.rar

[ناصر سعيد]

للرفع

[سليم حاصبيا]

33 دقائق مضت, ناصر سعيد said:

للرفع

بدل الى هذا الكود

Sub hide_some_columns()
With Sheets("sheet1")
    .Columns.Hidden = True
    .Range("a1,b1,c1,g1").EntireColumn.Hidden = False
     Application.Goto Reference:=.Range("b1")
End With
Sheets("sheet2").Activate


End Sub

 

[ناصر سعيد]

Sub hide_some_columns()
With Sheets("sheet1")
    .Columns.Hidden = True
    .Range("a1,b1,c1,g1").EntireColumn.Hidden = False
     Application.Goto Reference:=.Range("b1")
End With
Sheets("sheet1").Activate


End Sub

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