كودين خاصة باظهار واخفاء الصفوف الفارغة سببت بطء في عمل البرنامج

[skyblue]

الاساتذة المشرفين والاعضاء الافاضل

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

مرفق ملف لاتوجد به اية مشكلة سواء ان هناك كودين انا اضفتهم باجتهاد من عندي من اجل اظهار الصفوف عند الترحيل واخفاءها بعد الترحيل ولكن سببت

بعض البطء في التنفيذ فاعتقد الكوديين يوجد بهم خطأ ما .

ارجوا المساعدة

تحياتي لكم

اضافة الصفوف والغاءها.rar

تم تعديل يوليو 6, 2011 بواسطه skyblue

[عادل حنفي]

ابدل ال "E" و ضع مكانها 5

و قولي هل هناك تاثير ام لا

[عادل حنفي]

ابدل ال "E" و ضع مكانها 5

و قولي هل هناك تاثير ام لا

[skyblue]

بدل E عملت 5 ولم يتغير شي لايزال هناك بطء

[يحيى حسين]

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

يوجد طريقة أخرى إضافة لطريقة الأخ عادل في التعامل مع الأسطر الفارغة لإظهارها و إخفائها و هي سريعة

في حدث تفعيل الصفحة الثانية إستخدم الكود التالي :

Private Sub Worksheet_Activate()

Range("E6:E1000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

End Sub

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

Private Sub Worksheet_Activate()

Sheets("ورقة2").Range("E6:E1000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False

End Sub

حيث سيقوم بإظهار أسطر الصفحة رقم 1 الفارغة

دمتم في حفظ الله