ماهي الدالة لاضافة 5 درجات القرار المدرسة

[karra 2]

الاخوة الاعزاء:


لدي جدول فيه مجموعة من درجات الطلاب التي تؤهلهم لدخول امتحان نهائي على النحو التالي

الاسم اسلامية عربية انكليزي رياضيات تاريخ جغرافية اقتصاد اجتماع المجموع النتيجة
عبد الله 60 55 45 70 66 63 99 56 مكمل
احمد 65 77 49 49 49 49 57 49 راسب
عمر 44 32 48 47 96 59 81 52 راسب
ابراهيم 47 48 49 50 55 91 88 45 راسب
زيد 33 33 21 22 60 44 33 24 راسب
محمد 50 99 56 78 66 57 88 76 570 ناجح
سعد 62 55 75 66 75 63 52 88 536 ناجح


-لدينا 5 درجات قرار(اي سماح للطالب) توزع هذه الدرجات على الطلاب الذين يحتاجوها اقصد 5 درجات لكل طالب لتغير حالة الطالب من المكمل الى النجاح ومن الرسوب الى النجاح او المكمل ..علماً ان شرط الدخول للامتحان النهائي يكون الطالب اقل شيء مكمل بدرسين.. لتكون درجاته على النحو التالي


الاسم اسلامية عربية انكليزي رياضيات تاريخ جغرافية اقتصاد اجتماع المجموع النتيجة
عبد الله 60 55 50 70 66 63 99 56 519 مكمل
احمد 65 77 50 50 50 50 57 50 449 ناجح
عمر 44 32 50 50 96 59 81 52 مكمل
ابراهيم 50 50 50 50 55 91 88 45 مكمل
زيد 33 33 21 22 60 44 33 24 راسب
محمد 50 99 56 78 66 57 88 76 570 ناجح
سعد 62 55 75 66 75 63 52 88 536 ناجح

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

وشرط توزيع 5 درجات تعطى الى ( 49 ، 48 ، 47 ، 46 ، 45 ) أي نبدأ ب ( 49 ) نضيف اليها درجة ويبقى اربع درجات نعطي منها ( 2 ) درجة الى ( 48 ) وتبقى عندنا درجتان للدور الثاني كذلك تبيقى الدرجات ( 47 ، 46 ، 45 ) بدون اضافة

ارجو عمل دالة بالاكسل لذلك جزاكم الله خير الجزاء

[karra 2]

شكر اخوتي على حسن الاستضافة

[ياسر أحمد الشيخ]

ارفق ملف أخى

[karra 2]

هذا ملف كمثال توضيحي لما اريد

Book2.rar

[karra 2]

ارفق ملف أخى

ان شاء الله

Book2.rar

[طارق محمود]

السلام عليكم

أخي الكريم

أهلا بك ومرحبا بين إخوانك

تفضل الحل بالمعادلات وليس الأكواد

إن شاء الله تجده يسيرا سهلا

Book2_2.rar

[ابو القبطان]

مهندس : طارق ...الله يبارك لك 

[karra 2]

السلام عليكم

أخي الكريم

أهلا بك ومرحبا بين إخوانك

تفضل الحل بالمعادلات وليس الأكواد

إن شاء الله تجده يسيرا سهلا

كل الشكر والامتنان لك اخي العزيز طارق محمودوجعله الله في ميزان حسناتك

[karra 2]

شكر لمروركم العطر امتناني وتقدير لكل من يخدم العلم والتعليم

[karra 2]

الاخ المهندس طارق محمود توجد مشكلة كما في الملف المرفق للتوضيح المشكلة

المشكلة.rar

[طارق محمود]

أخي الكريم

تم حل المشكلة بالمرفق

طبعا ممكن ضم المعادلات في عمود واحد أو إثنين ولكني أفضلها هكذا للبساطة

كما أنك تستطيع إخفاء (وإظهار) كل الأعمدة المساعدة (AC..AH)

بالضغط علي علي علامة السالب "-" التي تعلو العمود AI

تفضل المرفق

 

Book2_3.rar

[karra 2]

الاستاذ طارق المحترم اسف على الالحاح لكن توجد مشكلة جديدة بلغت بتغيير شرط القرار ليصبح ( يجب ان يصبح الطالب بعد اضافة درجة القرار ناجح او ** مكمل ** والا لا تضاف درجة القرار ) كما في الملف المرق مع المثال ارجوا مساعدتي مع شديد اعتذاري

[karra 2]

هذا هو مرفق مثال التوضيح مع خالص شكري لجهودكم

تغير شرط القرار.rar

تم تعديل فبراير 18, 2015 بواسطه karra 2

[طارق محمود]

معذرة أخي إنشغلت عنك

أعتقد أن المطلوب الجديد يحتاج للأكواد

ولن أستطيع المحاولة حتي الأحد القادم

[karra 2]

شكري الموصول بالاعتذار لكثرة الالحاح مع شدة انشغالك

[طارق محمود]

السلام عليكم

 

تفضل أخي الحل بالكود

يبقي عليك فقط التنسيق ليناسب ذوقك

الكود هو دالة استحدثتها لتناسب الحالة وهي 

Mrk(a)

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

هذا هو الكود

Function Mrk(a As Range) As Variant
    If a.Value >= 50 Or a.Value < 45 Then Mrk = a.Value: GoTo 10
    njh = Cells(a.Row, 18):    rsb = Cells(a.Row, 19)
    Dim sbj(9)
    For c = 2 To 9
       sbj(c - 1) = Cells(a.Row, c)
       If sbj(c - 1) < 50 And sbj(c - 1) > 44 Then n_rf = n_rf + 1: t_rf = t_rf + (50 - sbj(c - 1)): n = n + 1
    Next c
    
    If t_rf <= 5 And rsb - n_rf < 3 Then Mrk = 50: GoTo 10
    Mrk = a.Value
10
End Function

ومرفق الملف به الكود

تغير شرط القرار3.rar

[karra 2]

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

ولكن لدي سؤال

كيف يمكن ان افعل هذا الكود اذا وضع داخل معادلة وشرط المعادلة اذا كان الطالب راسب في اقل من ثلاث دروس فعل الكود واما اذا كان الرسوب اكثر من مادثين لا تفعل

[طارق محمود]

لم أفهم السؤال جيدا

ولكن بالمرفق شرح كود الدالة المستحدثة
تفضل

شرح الدالة المستحدثة.rar

[karra 2]

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

تغير شرط القرار3.rar

تم تعديل فبراير 23, 2015 بواسطه karra 2

[طارق محمود]

هذا الملف اللي انت أرسلته "تغير شرط القرار3.xlsm"

يعمل عندي بلامشاكل

لعل تحديث الشاشة عندك أو الحساب (Calculation) لايعمل أوتوماتيك

مرفق صورة من شاشة الملف ، لم أفعل شيئا فقط فتحته

[karra 2]

عجيب هذا الذي اريد لكن تظهر عند بهذا الشكل كما في البصورة

[طارق محمود]

جرب تقف علي الخلية التي بها الدالة Mrk واللي مفروض ترتفع الي 50 

ثم اضغط F2 ثم إنتر

أو

جرب تضغط F9

لو اتعدلت بعد الضغط علي F9 يبقي تضبيط الملف في الجهاز الحسابات غير آلية وسهل علاجها

[karra 2]

عجيب هذا الذي ابحث عنة لكن يا سبحان الله

يظهر عندي بهذه الصور

[طارق محمود]

جرب تضغط F9

[karra 2]

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