تعديل على كود يوزع درجات القرار من 10

[saad 77]

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

اساتذتي اخوتي وجدت كود في الانترنيت لتوزيع درجات القرار للطلبة المكملين لكنه يوزع من 10 والتوزيع المطلوب لدينا من 5 درجات وليس 10 درجات علما ان التفاصيل الدقيقة الموجود في الكود هي نفس التفاصيل الموجودة لدينا فقط هناك من 10 درجات وعندنا من 5 درجات اضافة هل يمكن جعل الكود عند توزيع الدرجات يوزع كما في المثال المرفق. لم استطع التعديل عليه لان لا خبرة لدي بالاكواد ارجو المساعدة وجزاكم الله خيرا

انتبه من فضلك مشاركة مكررة .. تــــم بالفعل حذف المشاركة الأخرى

كود توزيع القرار.xlsm

[AbuuAhmed]

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

كود توزيع القرار_11.xlsm

[AbuuAhmed]

لديك الآن 4 خيارات عن طريق الأزرار/الضغطات في صفحة المسودة ..موفقين.
كود توزيع القرار_12.xlsm

[saad 77]

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

اخوتي لدي هذا الملف فيه خلل في توزيع الدرجات حيث يقوم بكتابة الدرجات 49 و 48 و 47 الى 50  اي انه يكتب الدرجة 47 يكتبها 50 وهكذا ارجو المساعدة  ..كما في هذه الصورة

كود توزيع القرار_12 (1).xlsm

[AbuuAhmed]

أستاذ أنا معتذر من المواصلة مع المنتدى

ولكن ما هان علي أتركك وأترك هالموضوع بعد الجهد الكبير الذي بذلناه.أستاذ أعتقد أنك تريد للراسبين أن تعود درجاتهم الأصلية قبل درجة الإكمال أي قبل التعديل ، صحيح؟
جرب الآن ، وإن شاء يكون فحصك دقيق ونهائي ويكون تعديلي صحيح ونهائي أيضا.

كود توزيع القرار_14.xlsm

[saad 77]

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

اخوتي احبتي في الله لدي مشكلة وهي الطالب الغياب "غ" لايعمل الكود مع وجدود طالب (غ) فما هو الحل .

[AbuuAhmed]

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

[saad 77]

السلام عليكم استاذ ..شكرا للاجابة . الحمد لله على سلامتك ..العفو استاذ اذا كان الطالب غ لايعمل الكود

كود توزيع القرار_14.xlsm

[AbuuAhmed]

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

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

[saad 77]

تحية طيبة استاذ 

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

[AbuuAhmed]

اختصار المطلوب : لا تكتب حرف "غ" في صفحة المسودة ، دع خلايا الغياب بدون أي بيانات.

[saad 77]

Cells.Replace What:="غ", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

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

 

[AbuuAhmed]

جرب الآن

كود توزيع القرار_15.xlsm

[saad 77]

السلام عليكم

العفو استاذ ذكرت لك في الملف بعض الملاحظات وجزاك الله خيرا على هذا العمل الجميل...

كود توزيع القرار_15.xlsm

[AbuuAhmed]

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

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

منذ البداية قلت لك احذف حرف "غ" واترك الخلية فاضية وانتهى الموضوع ، إصرارك بحجة "ننفيذ" التعليمات يرهقك ويرقهنا. 

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

 

[saad 77]

العفو استاذ سوف احذف حرف ال غ من المسودة لاترهق نفسك لاني اتعبتك كثيرا بارك الله فيك وزادك علما والله ماقصرت..اما عن سؤال الغياب فهو اذا غاب في درسين وجميع الدروس ناجح يعتبر مكمل في درسين اما اذا غاب في درس وجميع الدروس ناجح يعتبر مكمل في درس اما اذا غاب في درسين وهناك درس اقل من 45 يعتبر راسب اما اذا اسعفه القرار يعتبر مكمل 

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

[AbuuAhmed]

جرب المرفق:

كود توزيع القرار_16.xlsm

[AbuuAhmed]

بدل هذا السطر:

If .Cells(ss, 16) <> "ناجح" Then

بهذا السطر:

If Not .Cells(ss, 16) Like "ناجح*" Then

إذا أحببت إضافة مواد الغياب على مواد الإكمال في خانة النتيجة، أخبرني.

[saad 77]

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

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

 

[AbuuAhmed]

حياك الله أستاذ

أصل الكود ليس لي وربما كاتبه هو سيدة باسم "ساجدة" حسب اسم الموديول (الوحدة النمطية).

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

ود توزيع القرار_18.xlsm

[saad 77]

نفع الله بك وبعلمك وزادك علما وعملا وايمانا وصعودا ورفع قدرك في الدنيا ورزقك من فيض نعيمه في الاخرة.

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

العفو استاذ بعد المراجعة هناك بعض الملاحظات 

[AbuuAhmed]

لا أعتقد أنك استخدمت النسخة الأخيرة ، عندي تظهر النتيجة هكذا:

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

[saad 77]

اتشرف بحضرتك تفضل استاذ هذا الاميل s247907@gmail.com

وهذه صفحة الفيس Saad Hamid Khalaf

[AbuuAhmed]

لي الشرف أستاذ ، توالصلنا إن شاء ليس الآن بل عندما ينتهي هذا الموضوع هنا.
بانتظار اختبار النسخة الأخيرة وخصوصا لملاحظتك الأخيرة.

[AbuuAhmed]

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