اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

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

مفتاح السرى

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

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=

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

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

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

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

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

قام بنشر

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

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

قام بنشر

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

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

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

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

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

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

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

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

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

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

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

قام بنشر

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

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

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

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

قام بنشر (معدل)

أخى الفاضل /

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

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

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

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

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

أشكركم

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

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

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

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

هل هذا ممكن ؟؟

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information