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

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

السلام عليكم

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

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

وصلنا الى صفحة التقرير الفصلي واريد فيها ما يلي

في هاته الصفحة تقريبا نفس اكودات لكن يجري على بعضها تغييرات.

الاعمدة E D C B A تبقى لها نفس الكودات ولا يجري عليها اي تغيير.

العمود F(الاختبار الشهري للحفظ):

ويقوم الكود بحساب متوسط درجات الطالب في الاشهر التابعة للفصل المراد حسابه (المكتوب في العمودX) وذالك بالاستعانة بصفحة الفصول وصفحة مجمع النتائج الشهرية

مثلا :

اذا كان العمودX مكتوب فيه الفصل الاول فنذهب لصفحة الفصول فنجد ان الفصل الاول فيه شهر أوت + سبتمبر+أكتوبر

فيقوم الكود بحساب متوسط درجة اختبار الحفظ لشهر أوت و سبتمبر واكتوبر الموجودة في صفحة مجمع النتائج الشهرية ثم يكتبها في العمودF  في صفحة التقرير الفصلي.

مثال بالارقام:

لدينا الطالب زاوي وليد بن إبراهيم

العمودX متكوب فيه الفصل الاول

الفصل الاول يضم شهر أوت سبتمبر أكتوبر

نذهب لصفحة مجمع النتائج الشهرية

 

درجة اختبار الحفظ لشهر أوت للطالب  زاوي وليد بن إبراهيم هي 22

درجة اختبار الحفظ لشهر أوسبتمبر  للطالب  زاوي وليد بن إبراهيم هي25

درجة اختبار الحفظ لشهر أكتوبر للطالب  زاوي وليد بن إبراهيم هي20

متوسطهم هو (22+25+20)/3/=22.33

22.33 تكتب في صفحة التقرير الفصلي في العمودF

 

.وبالاجمال الكود يحسب متوسط درجات اختبار الحفظ الشهرية للطالب حسب الفصل

Quran School V8.rar

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

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

المرفق لا يعمل بشكل سليم

يرجى إعادة رفعه مرة أخرى ...

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

السلام عليكم

كيف حالكم استاذ ياسر

كنت اضنك سافرت

مرفق

Quran School V8.rar

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

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

سأسافر غداً بإذن الله تعالي ..

حملت الملف ولكن !!!!!!!!

نفس المشكلة ..لا أدرى لما لا يفتح الملف عندي ...

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

الملف فتح عندي على جهاز آخر عليه نسخة أوفيس 2013

بالنسبة للجزء الاول لم أفهمه جيداً ..

 

 

وصلنا الى صفحة التقرير الفصلي واريد فيها ما يلي

في هاته الصفحة تقريبا نفس اكودات لكن يجري على بعضها تغييرات.

الاعمدة E D C B A تبقى لها نفس الكودات ولا يجري عليها اي تغيير.

 

تقصد ترحيل البيانات إلى هذه الأعمدة من أي ورقة؟

هل الترحيل من ورقة العمل "التقرير الشهري" أم الترحيل يكون من ورقة "مجمع النتائج الشهرية"؟

 

ولو الترحيل من ورقة التقرير الشهري ؟؟ هل يتم مسح البيانات الموجودة في ورقة "التقرير الفصلي" قبل الترحيل أم يتم الترحيل إلى أول صف فارغ ليس به بيانات

 

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

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

السلام عليكم

اقصد بـ

الاعمدة E D C B A تبقى لها نفس الكودات ولا يجري عليها اي تغيير.

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

الكود يجلب البيانات للاعمدة C B A من صفحة معلومات التسجيل

العمود D يعطي للطالب حلقته بالاستعانة بصفحة الحلقات و العمود N

العمود E يحسب درجة السلوك باعتبار العمود R (عدد المخالفات)

اقصد هاته الجزئية من الكود تبقى كما هي:

Sub CopyDataFromRecordInf()
    Dim WS As Worksheet, SH As Worksheet
    Dim LR As Long, LRCur As Long, I As Long
    Dim rngA As Range, rngB As Range, rngC As Range, rngD As Range
    Dim X, Y, XX, YY
    Dim rngMnhg As Range
    
    Set WS = Sheets("ãÚáæãÇÊ ÇáÊÓÌíá"): Set SH = Sheets("ÇáÊÞÑíÑ ÇáÔåÑí")
    LR = WS.Cells(Rows.Count, 1).End(xlUp).Row
    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
    
    Application.ScreenUpdating = False
        With SH
            SH.Range("A2:E1000,I2:K1000,R2:U1000").ClearContents
            
            For I = 2 To LR
                .Cells(I, 1) = WS.Cells(I, 1)
                .Cells(I, 2) = WS.Cells(I, 2)
                .Cells(I, 3) = WS.Cells(I, 3)
                
                .Cells(I, 4).Formula = "=IF(" & .Cells(I, 12).Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & .Cells(I, 12).Address & ",QNames,0)),ÇáÍáÞÇÊ!$F$2:$F$6,ÇáÍáÞÇÊ!$B$2:$B$6))"
                .Cells(I, 4).Value = .Cells(I, 4).Value
                
                If .Cells(I, 16) > 5 Then
                    .Cells(I, 5) = 0
                Else
                    .Cells(I, 5) = 5 - .Cells(I, 16)
                End If

هي تشبه صفحة التقرير الشهري تماما واختصارا للوقت نسمي اللكود باسم آخر ونستغله في صفحة التقرير الفصلي.

الاختلاف بين الكود في صفحة التنقرير الشهري والكود في صفحة التقرير الفصلي يبدأ  في العمود F كما شرحته في اول الموضوع

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

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

صراحة أنا تهت منك اعذرني

إنت ليه بتكرر البيانات ..عايز أفهم النقطة دي...

ودلوقتي إنت بتقول استدعاء ..هل الاستدعاء هيكون على أساس رقم القيد ...؟؟؟!!

 

أنا بنسى خلي بالك

 

يا ريت تمسك نقطة نقطة عشان أنا فعلاً تهت في الملف

الكلام الكتير في أكثر من نقطة توهني وخلاني مش عارف أبدأ .. ودي مشكلتي .. وعشان أعرف أتعامل وأكيد إنت فهمت كدا بتناول جزء جزء عشان اقدر أوصل للكل

أنا مش آالة أنا بني آدم وإمكانياتي محدودة والله

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

نقطة تانية .. طيب لما لا تتم عملية الاستدعاء مباشرة من ورقة "التقرير الشهري" فيها الـ 5 أعمدة جاهزين ننسخهم مرة واحدة بدلاً من إعادة صياغة الكود بدون داعي

هذه وجهة نظري

أنا قمت بالفعل بالبدء في عمل الكود

ولكن النقطة الأولى محيراني يا أخي.

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

تقبل تحياتي

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

السلام عليكم

آسف استاذ ياسر عن عدم الرد فانا الان مشغول بالتدريس

استاذ ياسر صفحة التقرير الشهري وصفحة التقرير الفصلي منفصلتان والرابط بينهما صفحة مجمع النتائج الشهرية لذل لا يصلح

لانه وقت استدعاء البيانات للصفحة التقرير الفصلي ستكون صفحة التقرير الشهري فارغة لانها رحلت الة صفحت مجمع النتائج الشهرية.

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

ارجوا ان اكون قد اوصلت الفكرة استاذي

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

سؤال أخير ..

البيانات في عمود المخالفات في ورقة "التقرير الفصلي" هي نفس البيانات في عمود المخالفات في ورقة "التقرير الشهري "أم أن كلاهما يكتب بشكل منفصل؟

 

ونفس السؤال على الأربعة الأعمدة الخاصة بالسور ؟؟ هل تكتب منفصلة في كل منهما ؟؟

اعذرني لكثرة الأسئلة .. هذا بسبب كثرة الأوراق والانتقال بينها

 

وطالما أن الكود الذي سأقوم بعمله مرتبط بهذه الأعمدة لما تجاهلتها ... كان يجب أن تكتب بها بعض البيانات

 

رجاااااء أخي ابو عبد الملك عند كل طلب جديد تكتب بعض البيانات وليكن في 10 أسطر حتى نختبر الكود أول بأول .. لأنه لو به خطأ فيما بعد سيكون من الصعب تداركه

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

 

سؤال آخر : عند بدء الكود هل يتم مسح البيانات الموجودة بورقة العمل "التقرير الفصلي"؟ أم أنه لو فيه بيانات قديمة تظل كما هي وترحل البيانات الجديدة أسفلها

كل دي أسئلة لم تجيب عليها

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

السلام عليكم

اعتذر والله استاذ ياسر فالنت بطيئة

لا ادري ان كنت سافرت ام لا

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

في نهاية كل شهر ا نكتب بيانات الطلبة في صفحة التقرير الشهري والدرجات التي تحصلوا عليها ونسبة حفظهم وعدد الغيابات والمخالفات ...الخ خلال هذا الشهر

ثم نرحل كل تلك البيانت لصفحة تجميع نسميها مجمع النتائج الشهرية

والشهر الموالي نفس الشئ

وبعد 3 اشهر (ونسميه فصل )

نقيم مستوى الطالب خلال هاته الاشهر الثلاث

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

ومتوسط السلوك مثلا يحسب كالتالي=(درجة السلوك للشهر + درجة السئوك للشهر الثاني+ درجة السلوك للشهر3 )/3

اجيب على اسئلتك استاذ ياسر:

عمود المخالفات في التقرير الفصلي= عدد المخالفات لشهر أوت+ عدد المخالفات لشهر سبتمبر+عدد المخالفات لشهر أكتوبر(كلها موجودة في صفحة مجمع النتائج الشهرية)

السور في العمود N O يكتب السورة والاية الموجود في العمود M L في شهر اوت (اي الشهر الاول من الفصل)

وفي العمود Q P   يكتب السورة والآية الموجودة في العمود N O  في شهر أكتوبر(اي الشهر الاخير من الفصل)

في عمود المنهج يكتب السورة والآية الموجودة  في شهر أكتوبر(اي الشهر الاخير من الفصل)

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

استاذ ياسر انا اتبع تعليماتك واردت عرض الموضوع نقطة نقطة حتى لا تختلط الامور لانه لو تناولناها جملة ستتعقد وتختلط لذا اردت تناولها جزئية جزئية

Quran School V8.rar

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

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

خلينا واحدة واحدة زي ما إحنا ماشيين مش ناقصة لخبطة

اتفضل جرب الملف التالي .. وضعت بيانات وهمية في الأعمدة اللي لسه هيتم عليها شغل ..

ايه البرنامج المعقد ده

Quran School V9.rar

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

السلام عليكم

آسف جدا استاذ ياسر امس كنت مرهق جدا.جدا

نسبة الانجاز الآن 70% تقريبا

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

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

 استودع الله دينك وامانتك استاذ ياسر تذهب وتعود لنا  بالسلامة ان شاء الله في اقرب وقت

ارجوا ان اجد من يساعدني من الاساتذة لاكمال الملف