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

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


saad 77
إذهب إلى أفضل إجابة Solved by AbuuAhmed,

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

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

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

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

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

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

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

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

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

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

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

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

خ.PNG

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

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

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

سؤال آخر:
هل مادة الغياب تضاف على مواد الإكمال؟ أم يعتبر راسبا بمجرد غياب الطالب حتى لو في مادة واحدة؟.

 

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

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

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

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

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

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

بهذا السطر:

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

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

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

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

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

 

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

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

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

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

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

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

مطلوبه.PNG

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

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

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

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

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

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