اتمام برنامج المدرسة القرآنية(المجموع - الترتيب )

[أبو عبد الملك السوفي]

السلام عليكم

العمود T يساوي  (E+F+G+H+I+K+M)  تقسيم 2

 

 

Quran School V10.rar

Quran School V10.rar

[ياسر خليل أبو البراء]

أخي الكريم أبو عبد الملك

كما تعودنا منك يفضل دائماً أن ترفق بعض النتائج المتوقعة لاختبار مدى صحة الكود ..

عموماً إليك الملف المرفق

تم إضافة السطر التالي للكود ليقوم بالمطلوب إن شاء الله

.Cells(I, "T").Value = Application.WorksheetFunction.Sum(.Range("E" & I & ":" & "I" & I), .Cells(I, "K"), .Cells(I, "M")) / 2

 

رجاء للأخوة الأعضاء أن يقوموا بتكبير حجم الخط إلى 22 أو 24 بحيث يكون واضح ومقروء

Quran School V10.rar

تم تعديل أغسطس 3, 2015 بواسطه ياسر خليل أبو البراء

[أبو عبد الملك السوفي]

السلام عليكم

مرحبا ابو البراء

هناك خطأ في الكود فهو يمسح النتائج التي اكتبها في العمودين H و I

كما الاحظ انه هناك اعمدة غير محسوبة اي لم تدخل في الحساب فالمجموع حاصل جمع 7 اعمدة

Quran School V10_2.rar

[ياسر خليل أبو البراء]

أخي الكريم أبو عبد الملك (كبر حجم الخط لوضوح الرؤية)

أعتقد اننا اتفقنا فيما سبق أن يكون رأس العمود (العنوان) باللون الأزرق في حالة أنه يتم فيه الإدخال بشكل يدوي (ألا تتذكر الأمر) 

عموماً معادلة الجمع سليمة وتجمع من 7 أعمدة لا اختلاف في الأمر .. المشكلة أنني أضفت سطر يمسح البيانات أولاً ومن ضمن الأعمدة التي يتم مسحها الأعمدة التي أشرت إليها

إليك الملف مع تعديل حرف واحد فقط  في الكود ليعمل بشكل صحيح

فقد غيرت ليكون السطر بهذا الشكل

.Range("A2:G1000,K2:M1000,P2:Q1000,S2:W1000").ClearContents

استبدلت حرف الـ I إلى حرف G ليتم تجنب العمودين H و I

 

Quran School V10.rar

[أبو عبد الملك السوفي]

السلام عليكم ممتاز استاذ ياسر زادك الله رفعة وعلما

استاذنك في الانتقال الة نقطة الترتيب

وهي كما تعمل دالة RANK ولايهم ان تكررت الرتبة 

تم تعديل أغسطس 3, 2015 بواسطه أبو عبد الملك السوفي
صغر الخط

[ياسر خليل أبو البراء]

أخي الكريم أبو عبد الملك

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

على العموم جرب الملف التالي .. ولا تنسى أن تحدد أفضل إجابة وتنهي الموضوع في حالة أن تم المطلوب

 

Quran School V10.rar

تم تعديل أغسطس 4, 2015 بواسطه ياسر خليل أبو البراء

[أبو عبد الملك السوفي]

ممتاز استاذ ياسر سننتقل الى موضوع جديد كما جرت العادة