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

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

السلام عليكم

النقطة الموالية هي التقدير وهي نفس الكود المستعمل في صفحة التقرير الشهري

Quran School V10_4.rar

تم تعديل أغسطس 4, 2015 بواسطه أبو عبد الملك السوفي

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

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

يراعى الالتزام بالتوجيهات (عيني وجعتني من الخط الصغير ...)

إليك السطر التالي يؤدي الغرض

            .Cells(I, "V") = Level(.Cells(I, "T"))

 

Quran School V10.5.rar

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

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

السلام عليكم

معذرة استاذ ياسر نسيت تكبير الخط

ننتقل الآن الى النقطة الى ما قبل الاخيرة وهي المنهج

وتكون بالاعتماد على العمودين N O وصفحة المنهج

بحيث ياخذ السورة والآية الموجود في العمودين N O ثم يذهب الى صفحة المنهج ويرى رقم السطر الذي تقع فيه ثم يزيده 29 سطر ويكتب ما هو موجود في السطر 29 في العمود W

مثلا:

الطالب وليد موجود في العمودين N O المجادلة1

اذا ذهبا لصفحة المنهج نجد ان المجادلة 1 تقع في السطر221

نضيف لها 29 فتكون النتيجة

221+29=250

في السطر 250 نجد الواقعة 67

نكتبها في عمود المنهج

 

 

Quran School V10.5.rar

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

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

يرجى الإطلاع على الملف التالي والتحقق من النتائج

تم إضافة هذه الأسطر

'=======Start=======
'هذه الأسطر تقوم باستخراج بيانات عمود المنهج في ورقة التقرير الفصلي
            With Sheets("المنهج")
                LRCur = .Cells(Rows.Count, 1).End(xlUp).Row
                Set rngA = .Range("A2:A" & LRCur): Set rngB = .Range("B2:B" & LRCur)
                Set rngC = .Range("C2:C" & LRCur): Set rngD = .Range("D2:D" & LRCur)
                Set rngMnhg = .Range("A2:D1000")
            End With

            X = ValueLookUp(rngB, .Cells(I, "N").Value, rngC, rngD, .Cells(I, "O").Value, rngA)

            XX = Application.WorksheetFunction.VLookup(X + 29, rngMnhg, 2)
            YY = Application.WorksheetFunction.VLookup(X + 29, rngMnhg, 4)
            .Cells(I, "W") = XX & " " & YY
'=======End=======

إذا تم الأمر فيرجى إنهاء الموضوع بالشكل المناسب وطرح موضوع آخر بالطلب الجديد

ولا تنسى أن تسجل إعجابك إذا أعجبك الحل

تقبل تحياتي

Quran School V10.6.rar

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

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

الامر تمام استاذ ياسر بورك فيك

هناك خطأ في عمود السلوك وعمود المخالفات سنفتح موضوع جديد معالجتهما