مطلوب كود بسيط جازاكم الله خير

[يوسف عطا]

أريد أكواد إخفاء الأعمدة والصفوف للأمثلة التالية

إخفاء الأعمدة المتجاورة : من G إلى S

إخفاء الصفوف المتتالية : من 20 إلى 30

إخفاء عدة أعمدة غير متجاورة مثلاً عمود E و عمود K وعمود Y

إخفاء عدة صفوف غير متتالية مثلاً صف 20 وصف 25 وصف 40

إخفاء أعمدة من عمود P إلى آخر عمود فى الشيت

إخفاء صفوف من صف 100 إلى آخر صف فى الشيت

أريد أن يتم ذلك بالأكواد وليس من الشيت عن طريق تحديد الأعمدة أو الصفوف ثم إختيار إخفاء / إظهر

وهل هذه الأكواد تحقق الآتى أم لا ؟؟

1. هل يمكن إعادة إظهار الأعمدة والصفوف المخفية بها عن طريق تحديدها وإختيار أمر إظهار / إخفاء ؟

2. هل بعد إظهار الأعمدة والصفوف المخفية ثم إغلاق الملف يعود الكود للعمل تلقائياً ؟

3. هل يمكن تعطيل خاصية إظهار / إخفاء الأعمدة والصفوف من الشيت ؟

هل أطمع فى شرح الكود لإمكان إستخدامه مع أمثلة أخرى ؟؟

الف شكر مقدماً

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

أخي الحبيب يوسف عطا

لك وحشة .. بقالك فترة مش باين

عوداً حميداً أخ يوسف ...

إليك هدية بمناسبة عودتك ..

بس متنساش تدعي لي

أخوك أبو البراء

Test.rar

[يوسف عطا]

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

ورفع من شأنك

وعافاك فى دنياك

ورحمك فى آخرتك

ورزقك الرزق الوفير

وحماك وأهلك من الشرير

أشكرك على سؤالك عنى أخى الغالى ياسر بك خليل

جارى فتح الملف وأنتظر الإجابة عن الأسئلة بالمشاركة بالأعلى

[يوسف عطا]

أشكرك مرة أخرى على الملف وعلى الإجابات التى وجدتها بداخله

الف شكر

لا تحرمنا من إبداعاتك

أرجو شرح الأكواد لو تكرمت عليا

[يوسف عطا]

بالفعل معظم الأكواد المرفقة سهلة ومفهومة

الف الف الف شكر

ولى سؤال لو تكرمت

ما هى خطوات بناء كود للتجربة ليس إلا يعنى مثلاً معادلات كثيرة بعملها بالتجربة وبتنجح وعاوز أجرب أخترع كود قصددى أألف كود من دماغى يعنى

بالنسبة لوضع الكود فى workbook-open

كيف أقوم بذلك

معلش طولت عليك

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

أخي الحبيب

إليك الحل في المشاركة التالية

تم تعديل مايو 27, 2010 بواسطه YasserKhalil

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

أخي يوسف

ما هى خطوات بناء كود للتجربة ليس إلا يعنى مثلاً معادلات كثيرة بعملها بالتجربة وبتنجح وعاوز أجرب أخترع كود قصددى أألف كود من دماغى يعنى

تعلم الأكواد والبرمجة محتاج صبر وجهد ومتابعة للمواضيع المطروحة بالمنتدى..

بالنسبة لوضع الكود في الحدث Workbook_open

بعد ما تفتح محرر الأكواد اضغط دبل كليك على ThisWorkbook من النافذة Project Explorer ثم من الجهة اليمنى ستجد قائمتين منسدلتين إحداهما لاختيار الكائن Object اختر منها Workbook والأخرى لاختيار الاجراء Procdure اختر منها Open

وبذلك يتم تنفيذ الكود عند فتح المصنف

مثلاً ممكن إخفاء العمود E عند فتح المصنف بالكود

Columns("E:E").Hidden=True

أخوك أبو البراء

[يوسف عطا]

عزيزى أبوالبراء

أنا كتبت الكود التالى فى WORKBOOK-OPEN

ولقيت أن بيتم تنفيذ جزء منه عند فتح الملف وفى جزء ما بيتنفذش

كمان لو الملف فيه أكتر من شيت إزاى أخلى الكود يتنفذ فى الشيت إللى أنا عاوزه ومايتنفذش فى الشيتات الأخرى

الف شكر على ردك

الكود هو كالتالى

Private Sub Workbook_Open()

Columns("A:C").Hidden = True

Rows("1229:2010").Hidden = True

Cells.EntireRow.Hidden = False

Cells.EntireColumn.Hidden = False

[A1].Select

Columns("EB:EB").Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.EntireColumn.Hidden = True

Rows("2018:2018").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.EntireRow.Hidden = True

End Sub

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

أخي يوسف

ركز معايا

الخطأ في السطرين

Cells.EntireRow.Hidden = False

Cells.EntireColumn.Hidden = False

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

لو الملف فيه أكتر من شيت إزاى أخلى الكود يتنفذ فى الشيت إللى أنا عاوزه ومايتنفذش فى الشيتات الأخرى

قم بالإشارة إلى الشيت المطلوب على النحو التالي

Sheets("Yasser").Columns("A:C").Hidden=True

حيث أن Yasser هو اسم الشيت المطلوب نفيذ الكود عليه

أخوك أبو البراء

[يوسف عطا]

جازاك الله خيراً أخى ابوالبراء

جارى تعديل الكود

[يوسف عطا]

الأخ الغالى ابو البراء

فهمت كويس الجزء ده

طيب لو عاوز الكود يتنفذ تلقائياً بمجرد فتح الملف فى جميع شيتات الملف

إخفاء الأعمدة من A : C فى جميع صفحات الملف

هل يكون كالتالى ؟؟

Sheets("all sheets").Columns("A:C").Hidden=True

معلش تعبتك باسئلتى

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

[طارق محمود]

السلام عليكم

أخي يوسف

بعد إذن أخونا الغالي ياسر

أولا

لو عاوز الكود يتنفذ تلقائياً

غير إسمه من

Private Sub Workbook_Open()

إلي

Sub auto_open()

ثانيا لو عاوز الكود يتنفذ علي جميع شيتات الملف أضف السطرين التاليين في أوله بعد الإسم مباشرة وكذلك سطر Next قبل النهاية

Sub auto_open()


For x = 1 To Worksheets.Count

Worksheets(x).Select


الكود المطلوب

..


..


ثم تختم بهذا

Next x

End Sub

تم تعديل يونيو 27, 2010 بواسطه TareQ M

[يوسف عطا]

الف شكر على مرورك طارق بك

جارى التجربة