كود التوزيع Sub Observer() بطئ جدا جدا في ورقة الثانوية العامة

[بلانك]

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

كود التوزيع  Sub Observer()  بطئ جدا جدا في ورقة الثانوية العامة 

ملاحظة.xlsm ملاحظة.xlsm

[AbuuAhmed]

لقد قمت بالتالي:
- الإجراء مكرر مرتين وقد قمت بحذف أحدهما
- تم تنظيم الكود شكلا.
- حذف سطر يمنع مقاطعة الكود أثناء المعالجة، لا أرى له فائدة سوى عرقلة المبرمج لكشف أي تكرار بلا نهاية، كما حصل معي 🙂 .
- تعديل عدد الأعمدة بطرح 2
- تعطيل عملية قفز "GoTo 1" ، لا أرى أي فائدة لها، وبسببها يدخل الكود في تكرار بلا نهاية.

 

لا أعرف صحة النتائج فلم ولن أدخل في صحة معالجتها.
نصيحة للمبرمجين، تخلصوا من عملية القفز بقدر المستطاع، فعملية القفز بات حل قديم ومصدي.
 

ملاحظة_02.xlsm

[بلانك]

استاذي الكبير AbuuAhmed بارك الله فيك وجعله في ميزان حسناتك

الكود اصبح سريع وجميل

ولكن !!!!!! اطمع بالنظر عند الضغط على التوزيع يترك اماكن خاليه بدون وضع ملاحظ وبالتالى تكون النتيجة في كشف الملاحظة وجود ملاحظ واحد فقط بدلا من اثنيين

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

وسارفع الملف مرة اخرى لترى الملاحظات وعذرا على التعب لذا ارجو من حضرتك نظرة الى الملف مرة  اخرى وشكرا مقدما

الملاحظات داخل الملف وسارفعه مرة اخرى

ملاحظة.xlsm

[AbuuAhmed]

21 ساعات مضت, AbuuAhmed said:

لا أعرف صحة النتائج فلم ولن أدخل في صحة معالجتها.

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

[بلانك]

عذرا AbuuAhmed على تعبك اولا وانا لا أعرف صاحب البرنامج وبالفعل اتصلت به عن طريق صفحته بالفيس ولكن الصفحة مغلقة وشكرا لك اولا واخيرا على الاهتمام

[AbuuAhmed]

أخي،

بعد فحص جديد انتبهت أن عملية القفز مطلوبة لاختيار ملاحظ عشوائيا.
ولكن قمت بالتعديل على الشرط ليكون كالتالي:
- ابقاء أحد الشرطين القديمين وهو منع تكرار الملاحظ لنفس الفترة.
- منع دخول الملاحظ لفترتين متتاليتين.
- أن لا يزيد عدد حضوره عن 3 على أساس أن حصة الملاحظ من الفترات = 26 فترة مقسومة على 10 ملاحظين لتكون النتيجة 2.6 فترة

لقد قمت بتعطيل جزء في آخر الكود ، افحص النتائج أولا، وإذا وجدت أي ملاحظات وقبل أن ترجع لي فعل الجزء المعطل وافحص النتائج من جديد.
موفقين

ملاحظة_03.xlsm

[بلانك]

بارك الله فيك وجعله في ميزان حسناتك الكود اصبح جميل وجمعه مبارك عليك وشكرا على تعب حضرتك معي