معادلة لشيت كنترول

[اكرامى رمضان]

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

مرفق صورة توضح الالوان و النسب المئوية المحددة لكل لون في نفس الخليه

[ابراهيم الحداد]

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

استخدم الدالة المعرفة الاولى لدرجات المواد

Function ColorSubject(Rng As Range) As Variant
Dim i As Double, j As Integer
Dim Color As Variant
i = Rng.Value
If i >= 25.5 And i <= 30 Then
Color = "ازرق"
'--------------
ElseIf i >= 19.5 And i < 25.5 Then
Color = "اخضر"
'--------------
ElseIf i >= 15 And i < 19.5 Then
Color = "اصفر"
'--------------
ElseIf i < 15 Then
Color = "احمر"
End If
ColorSubject = Color
End Function

و الدالة المعرفة الثانية لدرجات المجموع الكلى

Function ColorLastY(Rng As Range) As Variant
Dim i As Double, j As Integer
Dim Color As Variant
i = Rng.Value
If i >= 85 And i <= 100 Then
Color = "ازرق"
'--------------
ElseIf i >= 65 And i < 85 Then
Color = "اخضر"
'--------------
ElseIf i >= 50 And i < 65 Then
Color = "اصفر"
'--------------
ElseIf i < 50 Then
Color = "احمر"
End If
ColorLastY = Color
End Function

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

و ينتهى الامر

[اكرامى رمضان]

مرفق ملف للتطبيق فيه 

هي معادلة واحدة توزبع النسب من 100

المعادلة باللون.xlsx

[ابراهيم الحداد]

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

مرفق الملف بعد نسخ كود الدوال المعرفة

و تم التطبيق على مادة واحدة و قياسا عليها يمكنك تكملة باقى المواد

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

تم حفظ الملف بامتداد XLSM حتى يمكننا حفظ الملف

المعادلة باللون.xlsm

[ابراهيم الحداد]

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

الملف يفتح عادى جدا عندى

يبدو ان المشكلة عندك فى برنامج الاوفيس

يمكنك تجربة الملف على جهاز اخر عليه اوفيس

و على العموم ساقوم برفع الملف مرة اخرى ...... جايز!!!

 

المعادلة باللون.xlsm

[اكرامى رمضان]

فتحت ايوة بس محتاج التلوين علي اساس المجموع مش درجه المادة يعني الخانه 100

ثانيا لما نسخت التنسيقات اللون بينزل غلط لكن اسمه صح ممكن حضرتك تشوف الملف ده بعد للاستخدام

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

المعادلة تعديل).xlsm

[ابراهيم الحداد]

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

الملف بعد التعديل 

اى خلل قم برفع الملف الى مرة اخرى

 

المعادلة تعديل).xlsm

[اكرامى رمضان]

جزاكم الله خيرا اخي الكريم

لكن فيه خطأ.. الطالب لو جايب صفر او اي درجه ف الاعمال و 30في التحريرى بيطلع ازرق 

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

[ابراهيم الحداد]

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

الملف بعد التعديل و ارجو ان اكون قد فهمت طلبك صح

المعادلة تعديل2.xlsm

[اكرامى رمضان]

مرفق لحضرتك الملف بشرح المطلوب 

اسف جداوالله

المعادلة تعديل2.xlsm

[ابراهيم الحداد]

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

تم تحويل الارقام الى نسب مئوية حسب ما فهمت من طلبك

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

لانى وجدت احد الاكواد وقد تم حذفها من محرر الاكواد بالملف

هذا والله ولى التوفيق

المعادلة تعديل2 (1).xlsm

[اكرامى رمضان]

حضرتك مفهمتش قصدى

انا اقصد اللون حسب الدرجة اللي ف المجموع. الخانات المظللة دى المجموع عايز اللون علي اساس الخانات دى

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

وانما الخطأ ان اللون بيكون علي خانة اللي من 30 انا اريد التلوين علي حسب مجموع الطالب ف المادة اللي ف الخانة المظللة

اسف علي الاطالة

و انا لما حذفت الكود كنت فاكر اني بلغي التعامل علي الخانة اللي من 30دى

الصورة دي هي المطلوب 

 

[اكرامى رمضان]

تم عمل المطلوب بالمعادلات 

شكرا جزيلا على المساعدة

[ابراهيم الحداد]

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

الحمد لله على تمام المطلوب

[اكرامى رمضان]

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

جزاك الله خيراً اخي الكريم و بارك فيكم و نفع بكم