إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول)

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

أحسنت أحسنت أحسنت

بالفعل لم أنتبه لتلك النقطة ..لأن الكود يقوم على إخفاء الكل ثم إظهار الأعمدة التي تم تخزينها في نطاق .. أعتذر عن الملاحظة التي لم تكن في محلها ..

 

ولكن تظل صعوبة تحديد الأعمدة المتباعدة قائمة

 

وبعدين إنت ذكرت أولاً .. طيب فين ثانياً ..!! مجرد مزحة

تقبل وافر تقديري واجترامي

[ناصر سعيد]

لاثراء الموضوع اضافه بسيطه

 

Sub إخفاء()
Application.ScreenUpdating = False
       Dim rng As Range
    Set rng = Range("c1,d1")
    Columns.Hidden = False
    rng.EntireColumn.Hidden = True
        Application.ScreenUpdating = True
End Sub

صندوق الكتابه في النسخه الجديده للمنتدى لايفي بالغرض مثل النسخه القديمه

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

إخواني الكرام ..

كان هذا موضوع البحث الأسبوع الفائت لمن أراد الإطلاع عليه ..

تقبلوا تحياتي

[ناصر سعيد]

اين موضوع هذا الاسبوع يابطل

ايه رايكم دام فضلكم في موضوع

نسخ صف بمعادلاته وتنسيقاته لعدد معين من الصفوف الى عدة صفحات 

وهذا العدد موجود بخليه في صفحة اخرى

[أبوبسمله]

11 دقائق مضت, nasersaeed said:

اين موضوع هذا الاسبوع يابطل

ايه رايكم دام فضلكم في موضوع

نسخ صف بمعادلاته وتنسيقاته لعدد معين من الصفوف الى عدة صفحات 

وهذا العدد موجود بخليه في صفحة اخرى

موضوع الاسبوع ده اتفضل الرابط

http://www.officena.net/ib/topic/67904-استخراج-الصور-التي-تم-إدراجها-في-مصنف-إكسيل/

بالتوفيق اخى

[ناصر سعيد]

9 ساعات مضت, أحمد الفلاحجى said:

موضوع الاسبوع ده اتفضل الرابط

http://www.officena.net/ib/topic/67904-استخراج-الصور-التي-تم-إدراجها-في-مصنف-إكسيل/

بالتوفيق اخى

جزاك الله خيرا وبارك فيك ...  ايه رايكم نخلي موضوعي للاسبوع القادم ان شاء الله

 

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

أخي الكريم ناصر سعيد

إن شاء الله في مراحل متقدمة سنفرد موضوعك .. لنحاول أن نبدأ بالموضوعات السهلة التي يمكن للجميع أن يشارك فيها لنتطور جميعاً ونرتقي .. لا أريد للموضوع الأسبوعي أن يكون قاصر على أعضاء بعينهم وفقط .. أريد المشاركة من الجميع سواء المبتديء أو المتوسط أو المحترف .. لجميع المستويات

تقبل تحياتي

(نداء أخير : هلا غيرت اسم الظهور للغة العربية)

 

[inas aly]

في ٢٤‏/٥‏/١٤٣٧ هـ at 15:33, ياسر خليل أبو البراء said:

أخي العزيز محمد علي سالم

شرفتنا بتواجدك معنا في الموضوع

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

Sub xx()
Columns.Hidden = True
Range("a1,c1,e1,j1,o1,z1").EntireColumn.Hidden = False
End Sub

السطر الأول يبدأ بكلمة Sub يليها اسم الإجراء واسم الإجراء أنت حر فيه سمه بما تريد

وأفضل أن تكون التسمية معبرة عن الهدف من الكود مثلاً UnhideSpecificColumns ..

وفي آخر سطر قفلة الكود بالجملة End Sub

ما بين السطرين البداية والنهاية هذا هو لب الكود (ودا ملوش علاقة بالسوداني .. ولا المصري !!)

السطر الأول في الكود يقوم بإخفاء الأعمدة كلها ...أينعم حيث أن الخاصية المستخدمة هي الخاصية Hidden وتعني مخفي .. إذاً ترجمة السطر الأعمدة. مخفي =صح يعني إخفاء كل الأعمدة

لو غيرنا القيمة True إلى False تفتكر ايه اللي ممكن يحصل ؟؟ معروف إن True عكسها False ..إذاً سيقوم السطر في هذه الحالة بإظهار كل الأعمدة

السطر الأول إذاً يقوم بإخفاء كل الأعمدة مرة واحدة (دفعة واحدة وفي نفس واحد)

ثم السطر الثاني يأتي ليحدد اعمدة يعينها للتعامل معها وإظهارها .. وهنا أخونا الغالي سليم استخدم أول خلية في كل عمود من الأعمدة المراد إظهارها ، فالخلية a1 تمثل العمود الأول ..

المهم جمع الخلايا في نطاق واحد كما هو مشار في الكود بهذا الشكل

Range("a1,c1,e1,j1,o1,z1")

ثم استخدم الخاصية EntireColumn والتي تتعامل مع العمود بالكامل ثم الخاصية Hidden والتي تحدثنا عنها ، وهنا إشارة لكل الأعمدة المطلوبة وفي النهاية تم وضع القيمة False لها لإظهارها دون سواها

أرجو أن أكون وفقت في توصيل المعلومة

تقبل تحياتي

شكرا

[hagagg]

أنا أريد أن أتعلم من البدايه ممكن مساعده