اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

مفتاح السرى

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 9 months later...

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

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

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

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

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

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

دمت بود

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

أخى الفاضل /

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

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

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

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

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

أشكركم

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

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

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

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

هل هذا ممكن ؟؟

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information