معضلة الكتشنة للرصد على السرى بالترتيب

[يوسف عطا]

قمت بعمل برنامج كنترول الدور الثانى

الحمدلله تغلبت على بعض المشكلات التى واجهتنى

المطلوب حالياً عمل ماكرو أو كود للرصد على السرى بترتيب السرى

علماً بأن البيانات مدرجة بترتيب الجلوس

مفتاح السرى

الجلوس ------السرى

1:50 --------151:200

51:100 ------101:150

101:150 -----251:300

151:200 -----201:250

201:250 ----51:100

251:300 ----1:50

300:320 ----300:320

علماً بأن شيت الرصد هو نفسه شيت معاينة النتيجة ومنه يتم أخذ 3 نسخ بالمعادلات لتحويلها لكشوف نتيجة

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

كلمة المرور (جو)

شيت كنترول الدور الثانى 2010.rar

[قصي]

شكرا لك

ارجو ازالة كلمة المرور على الاكواد

لعلها تكون صدقة جاريه

[ابو الآء]

الف شكر

بارك الله فيك

[يوسف عطا]

حاضر جارى رفع الملف بدون باس وورد على الأكواد رغم أن كل الأكواد من هنا من الأخوة الأساتذة بالمنتدى ولم أضع الباسوورد إلا لمنع العبث بها بالخطأ

أعتذر مرة أخرى

[يوسف عطا]

أعتذر لعدم وضع الباسووردات كلها بالمشاركة وهذا خطأ غير مقصود

هذه النسخة من الملف

باسوورد (666666) يفتح الأكواد وحماية الأوراق

باسوورد (جو) يفتح الشيتات

إعتذارات أخرى لكم جميعاً

شيت كنترول الدور الثانى 2010.rar

[قصي]

أعتذر لعدم وضع الباسووردات كلها بالمشاركة وهذا خطأ غير مقصود

شكرا لخلقك الرفيع

[يوسف عطا]

للرفع رفع الله قدركم

[يوسف عطا]

للرفع رفع الله قدركم

[هشام شلبى]

السلام عليكم

===========

الاخ العزيز يوسف عطا

اضفنا زرين كتشنة وفك كتشنة فى صفحة1

الكودين المطبقين غلى الزرين للكتشنة ولفك الكتشنة هما على الترتيب

Sub ßÊÔäÉ()

    Range("B11").Select

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

    Range("A10:R330").Sort Key1:=Range("C11"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal

    ActiveWindow.ScrollRow = 1

End Sub

Sub Ýß()

    Range("B11").Select

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

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

    Range("A10:R330").Sort Key1:=Range("B11"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal

    ActiveWindow.ScrollRow = 1

End Sub

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

تحياتى لشخصكم الكريم

شيت كنترول الدور الثانى 2010.rar

[يوسف عطا]

عزيزى الغالى هشام بك

الف شكر على مرورك وتعبك

سؤال

هل مهما غيرنا مفتاح السرى يظل الكود صالح للعمل أم يحتاج تعديل ؟؟

الف شكر

[هشام شلبى]

السلام عليكم

===========

عاش من شافك يوسف بك

اعتقد ليس له علاقة عموما جرب وشوف

واتمنى من عرضك للعمل كامل ان شاء الله فى المنتدى بعد لمساتك الفنية علية

بجد هو عمل جميل

من فضلك حمل الملف مرة اخرى

شيت كنترول الدور الثانى 2010.rar

[يوسف عطا]

عزيزى الغالى هشام بك

تحت النظر والله بس ظروف العمل والإمتحانات أخذت الواحد فترة بالإضافة للحر الشديد

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

وبالنسبة لإعادة تحميل الملف جارى التحميل

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

مرة أخرى ألف شكر

[يوسف عطا]

الأخ الغالى هشام شلبى أدام الله عزك

للأسف أزرار الكتشنة تعمل بطريقة خاطئة وليس العيب فيها فهى تقوم بالكتشنة فعلاً ولكنها عند الكتشنة وفك الكتشنة تعطى درجات طالب لطالب آخر

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

ومرفق الملف بعد وضع الدرجات التجريبية لمعاينة نتيجة الكتشنة

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

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

دمت بود

شيت كنترول الدور الثانى 2010.rar

[دغيدى]

الأخ الفاضل / يوسف عطا

سلام الله عليكم

هذا الشرط مكرر فى المادة الواحدة وجميع المواد

("غ";"غ"=D2;"غ")=IF(AND(C2=

("غ";"غ"=D2;"غ")=IF(OR(C2=

هل هذا الشرط صحيح ؟

[يوسف عطا]

الأخ الفاضل / يوسف عطا

سلام الله عليكم

هذا الشرط مكرر فى المادة الواحدة وجميع المواد

("غ";"غ"=D2;"غ")=IF(AND(C2=

("غ";"غ"=D2;"غ")=IF(OR(C2=

هل هذا الشرط صحيح ؟

أخى الغالى دغيدى

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

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

جازاك الله خيراً وشكراً لمرورك

[دغيدى]

أخى الفاضل / يوسف

أنا اتفهم ماتعنيه ولكن برجاء مراجعة ماء بمشاركتى السابقة رقم ( 14) فى كل الأماكن وشكرا

[teacher maher]

الأخ الفاضل / يوسف عطا

سلام الله عليكم

هذا الشرط مكرر فى المادة الواحدة وجميع المواد

("غ";"غ"=D2;"غ")=IF(AND(C2=

("غ";"غ"=D2;"غ")=IF(OR(C2=

هل هذا الشرط صحيح ؟

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

ازيك استاذى دغيدى

اريد اسأل سرال بخصوص هذا الشرط

انا لا افهم معننى هذا الشرط

حتى عندما بدأت فى تنفيذه لم ينفذ

[يوسف عطا]

أخى الفاضل / يوسف

أنا اتفهم ماتعنيه ولكن برجاء مراجعة ماء بمشاركتى السابقة رقم ( 14) فى كل الأماكن وشكرا

أستاذى العزيز هل تقصد إلغاء أحد الشرطين والإبقاء على الآخر ؟؟

طيب إلغاء إف أند ولا إف أور ؟؟

[دغيدى]

أخى الفاضل /

("غ";"غ"=D2;"غ")=IF(AND(C2=

هذا الشرط مكرر فى المادة الواحدة وجميع المواد ( داخل الدالة الواحدة ) فالتكرار غير ذات قيمة ( تحذف واحدة وتبقى الأخرى ).

("غ";"غ"=D2;"غ")=IF(OR(C2=

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

هل وصلت الفكرة

أشكركم

تم تعديل مايو 5, 2011 بواسطه دغيدى

[يوسف عطا]

نعم وصلت الفكرة

أشكرك عزيزى الغالى

ولكن هل أطمع فى إيجاد الحل للمشكلة الأصلية وهى الرصد على السرى بتسلسل السرى وبعد إتمام الرصد العودة للترتيب على أرقام الجلوس ؟؟

هل هذا ممكن ؟؟

[دغيدى]

أخى يوسف

انتظر الملف اليوم (شيت كامل للنتيجة )

[يوسف عطا]

يا باشا ربنا يخليك ويجازيك بالخير

الف شكر وعلى مهلك