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

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

السلام عليكم

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

1- عمود السلوك هو ان يحسب درجة السلوك للاشهر التابعة للفصل من صفحة مجمع النتائج الشهرية  ويقسمها على 3

2- عمود المخالفات يحسب عدد المخالفات للاشهر التابعة للفصل من صفحة مجمع النتائج الشهرية

Quran School V10.6.rar

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

تفضل أخي الحبيب

'=======Start=======
'هذه الأسطر لحساب متوسط السلوك في ورقة التقرير الفصلي
            X1 = Application.WorksheetFunction.SumIfs(rngSlook, rngNames, .Cells(I, "C"), rngMonth, strA)
            X2 = Application.WorksheetFunction.SumIfs(rngSlook, rngNames, .Cells(I, "C"), rngMonth, strB)
            X3 = Application.WorksheetFunction.SumIfs(rngSlook, rngNames, .Cells(I, "C"), rngMonth, strC)
            X4 = Application.WorksheetFunction.Sum(X1, X2, X3) / 3
            XFinal = Application.WorksheetFunction.Round(X4, 2)

            .Cells(I, "E").Value = XFinal
'========End========

وهذا الجزء الثاني للمخالفات

'=======Start=======
'هذه الأسطر لحساب متوسط المخالفات في ورقة التقرير الفصلي
            X1 = Application.WorksheetFunction.SumIfs(rngMokhalef, rngNames, .Cells(I, "C"), rngMonth, strA)
            X2 = Application.WorksheetFunction.SumIfs(rngMokhalef, rngNames, .Cells(I, "C"), rngMonth, strB)
            X3 = Application.WorksheetFunction.SumIfs(rngMokhalef, rngNames, .Cells(I, "C"), rngMonth, strC)
            X4 = Application.WorksheetFunction.Sum(X1, X2, X3) / 3
            XFinal = Application.WorksheetFunction.Round(X4, 2)

            .Cells(I, "R").Value = XFinal
'========End========

وللعلم تم العمل على هذه الأعمدة من قبل بناءً على توضيح آخر لم يكن بهذا الشكل على ما أذكر

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

جرب الكود بعناية قبل الانتقال لنقطة جديدة ..

Quran School V11.rar

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

السلام عليكم

ماشاء الله عليك استاذ ياسر

الحمد لله كل شيئ تمام لحد الآن

بوركت وبورك علمك

ننتقل لموضوع آخر ان شاء الله وهو الترحيل

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

الحمد لله الذي بنعمته تتم الصالحات

يا ريت تبلغنا كم نسبة إنجاز المطلوب إلى الآن ؟

تقبل تحياتي