التعديل علي كود اخفاء واظهار الصفوف

[ابوصلاح]

السلام عليكم  لدي ملف به كود للاستاذ محمود الشريف طبعا انا عدلت عليه لكن الكود بطئ جدا وبه بعض المشاكل

مثلا يلخد الكود اكثر من ثلاث دقائق  حتى الانتهاء  وكذلك عندما تريد اظهار المقيدين مثلا وسبق ان اظهرت المنقطعين  الكود لا يعمل

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

شئون3.rar

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

الأخ الحبيب أبو صلاح

أنا جربت الكود الموجود أولا ولم يستغرق معي الوقت الطويل الذي ذكرته استغرق حوالي 5 ثواني

يمكن تكون إمكانيات الجهاز لديك ضعيفة أو ما شابه؟

[ابوصلاح]

علي الاطلاق اخي ياسر الجهاز امكانياته عالية جدا بس عندما استدعي المنقطعين فقط ياخذ وقت

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

ممكن أسأل ليه مش بتستخدم الفلترة أسرع وأسهل ...!!!

[ابوصلاح]

الفلترة طبع ايسر بكثير لكن تحتاج اكثر من عمود للفلترة وبالتالي المستخدم للبرنامج يبحث عن اي عمود بدا الفلترة منه ويتوه بين الاعمدة لقلة خبرته

لكن انا وجدت كود رائع ارجو ان تبدي رايك وانا جربته ويعمل بكفاءة

Sub المقيد()
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlManual
For x = 9 To 308
If Cells(x, 24).Value = "غير مقيد" And Cells(x, 24) <> "" Then
Rows(x).Hidden = True
Else
Rows(x).Hidden = False
End If
Next
Application.Calculation = xlAutomatic
End Sub

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