اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

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

الاستاذ سليم

حفظك الله

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

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

حفظك الله

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

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

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

رابط هذا التعليق
شارك

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

الاستاذ سليم

حفظك الله

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

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


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

حفظك الله

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

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

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

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

 

 

  • Like 1
رابط هذا التعليق
شارك

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information