مطلوب كود لتكملة ساقية لجان

[سيد الأكرت]

المطلوب وضع كود لتكملة الساقية المرفقة علما بان اليوم به مادتين على فترتين ف1 وف2 وعدد لجان المدرسة 11 لجنة

الساقية.rar

[رجب جاويش]

أخى الفاضل /سيد تيجر

جرب الكود التالى

Sub ragab()

Application.ScreenUpdating = 0

[D8:O29].ClearContents

For i = 4 To 15

    For ii = 8 To 29

	    Randomize

1	   x = Int((11 - 1 + 1) * Rnd + 1)

		    Cells(ii, i) = x

		    y = Application.WorksheetFunction.CountIf(Range(Cells(8, i), Cells(29, i)), Cells(ii, i))

	    If y > 2 Then GoTo 1

    Next

Next

Application.ScreenUpdating = 1

End Sub

ساقية.rar

[سيد الأكرت]

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

يارب تحقق أملى يا باشا ولي سؤال بسيط لو زاد عدد اللجان مثلا هل الكود سيقوم بالتوزيع أم أنه سيقف عند اللجنة 11

وشكرمتواصل لشخصكم الكريم

والسلام عليكم

[رجب جاويش]

أخى الفاضل / سيد تيجر

عدد أيام الامتحان 6 أيام وكل يوم فترتين

لذا يكون المجوع هو 12 فترة يدخلها كل مدرس

وحيث أن عدد اللجان هو 11 فقط

لذا لابد أن يتكرر دخول المدرس مرتين فى لجنة معينة

[رجب جاويش]

أما بالنسبة لعمل الكود عندما يزيد عدد اللجان عن 11

فيمكن تغير السطر التالى

x = Int((11 - 1 + 1) * Rnd + 1)

بالسطر الآتى

x = Int(([N2] - 1 + 1) * Rnd + 1)

ليتم تحدد عدد اللجان فى الكود عن طريق الخلية N2

ثم عمل تعديل بسيط فى حلقة التكرار

تم تعديل يناير 21, 2013 بواسطه رجب جاويش

[سيد الأكرت]

أخى الفاضل  رجب جاويش 

من الممكن أن نجعل الملاحظ يكون احتياطيا فى لجنة من 12 فترة وبذلك يكون قد دخل 11 لجنة غير مكررة فعلى سبيل المثال جربت الكود في المرفق ووضعت تلوين للجان المكررة حيث انه يدخل لجنة معينة 3 مرات أو مرتين أو أكثر فالمطلوب أن رقم اللجنة لا يتكرر وكذلك عند مرافقته لملاحظ آخر لا تتكرر بقدر الإمكان وعلى ذلك فالمطلوب أن يدخل جميع اللجان بدون تكرار وألا يدخل مع زميل له قد سبق وأن دخل معه من قبل
أعلم أنى أثقلت عليك ولكن أطمع في سعة صدرك

تم تعديل يناير 27, 2013 بواسطه دغيدى

[سيد الأكرت]

معذرة هذا هو المرفق الذي به أمثلة للخلايا المكررة

ساقية.rar

[رجب جاويش]

أخى الفاضل

كيف يكون هناك ملاحظ احياطى فى لجنة 12 وهم 22 ملاحظ و 11 لجنة

وبالتالى لن يكون هناك مدرس احتياطى أبدا

أعتقد تحت هذه الشروط

فان عملية التكرار حتمية

[نورانور]

السلام عليكم

اخى الاستاذ رجب

نشكركم لسعة صدوركم وعلى الأعمال المميزة فعلا التى تقدمونها لأخوانكم ولى طلب بسيط كيف يمكن زيادة عدد الأيام والفترات واذا زاد عدد الملاحظين عن عدد الجان كيف نضع امامه كلمة احتياطى (ح) وبالتالى يكون العمل مكتمل تماما وأسف على الاطالة 

تم تعديل يناير 27, 2013 بواسطه دغيدى

[سيد الأكرت]

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

تم تعديل يناير 27, 2013 بواسطه دغيدى

[سيد الأكرت]

لقد وصلنا للنصف الأول من المطلوب باقى أن يحقق الشروط
في انتظار عمالقتنا العظماء

تم تعديل يناير 27, 2013 بواسطه دغيدى

[أم عبد الله]

أخي الفاضل الأستاذ / رجب جاويش

أولاً ألف مبروك على الترقية الجديدة

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

[أم عبد الله]

للرفع

[سيد الأكرت]

ما زلنا في الانتظار

[دغيدى]

بعد إذن الأخ / رجب جاويش

تعديل بسيط

ماعليك سوى ادخال عدد اللجان وعدد الفترات فقط دون التعديل فى الكود 

الملف حاليا معد لـ 100 لجنة واكثر من 28 فترة

ملحوظة يمكن وضع عدد اللجان بزيادة وتكون آخر الأرقام للإحتياطى

ساقية.rar

[أم عبد الله]

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

[دغيدى]

أخى الكريم / fzsss

الكود يعمل على وضع ارقام عشوائية حسب الأعمدة والصفوف المحددة من قبل ويعمل على تكرار العدد (رقم اللجنة)مرتين

وبالتالى توجد اكواد اخرى للأخوة الزملاء يتم بها وضع كل فترة مستقلة

[سيد الأكرت]

أخي الكريم ومشرفنا العظيم / دغيدي

هل يمكن وضع تعديل بسيط للكود ليجعل اللجنة التى يدخلها الملاحظ لا تتكرر في الفترات التالية ابتداء من الفترة الأولى

وجزاك الله عنا خيرا

[سيد الأكرت]

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

[سيد الأكرت]

هل من حل ؟ أستاذتى العظماء 

[سيد الأكرت]

اتمنى ان نجد جديدا في الموضوع