طلب مساعدة في تعديل كود دوائر حمراء

[سيد الأكرت]

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

دوائر حمراء.rar

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

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

اذهب الى الكود المسى Circles1

و عدل هذا  G = 14   الى ذلك    G = 12     

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

[سيد الأكرت]

أعزك الله أستاذنا العزيز زيزو العجوز

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

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

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

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

    If IsNumeric(Cells(R, c.Column)) And Not IsEmpty(Cells(R, c.Column)) And (c.Value < Cells(R, c.Column) Or c.Value = "غ" Or c.Value = "غـ") And c.Value <> "" Then

بهذا السطر

    If IsNumeric(Cells(R, c.Column)) And Not IsEmpty(Cells(R, c.Column)) And (c.Value < Cells(R, c.Column) / 2 Or c.Value = "غ" Or c.Value = "غـ") And c.Value <> "" Then

 

[سيد الأكرت]

تسلم إيديك وجزاك الله خيرا 

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

تم تعديل ديسمبر 12, 2017 بواسطه سيد الأكرت

[سيد الأكرت]

معذرة أخي الفاضل الأستاذ زيزو قمت برفع الملف الاصلي لتساعدنى في معالجة الخلل

دوائر.rar

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

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

اخى الكريم الملف الذى ارسلته جميع التلاميذ فيه ناجحون

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

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

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

[سيد الأكرت]

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