كود لحساب نسبة التحصيل العلمي للطلاب

[هاشم العلوي]

لدي ورقتين 

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

الورقة الثانية فيها جدول لحساب نسبة التحصيل العلمي وذلك بجمع درجات الطلاب في المادة والقسمة (على عدد الطلاب مضروبا في ١٠٠) باعتبار النهاية العظمى الدرجة في جميع المواد ١٠٠ درجة  هناك توضيح أسفل الجدول أيضا لطريقة الحساب 

وجزاكم الله عني خير الجزاء النسبة.xlsb

[أبوأحـمـد]

بالمعادلات أو أكواد؟

وهل تريد مجموع (ف 1) من 50  أو النهائي  100 ؟

[هاشم العلوي]

إذا ممكن 

مجموع الفصل الاول ٥٠ 

الفصل الثاني ١٠٠

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

المطلوب اكواد 

الله يفتح عليك ويعطيك العافية ويسعدك دنيا وآخرة 

تم تعديل يوليو 24, 2023 بواسطه هاشم العلوي

[أبوأحـمـد]

باقي المجاميع ما أدري تريدها إجمالي أو متوسط

 

نسبة التحصيل العلمي للطلاب.xlsb

[هاشم العلوي]

المجاميع العامة  مطلوب متوسط  

فمثلا مجموع العام للصف الاول هو مجموع النسب للمواد على عدد المواد 

 

أطلعت العمل ممتاز لدي بعض الملاحظات 

من الأول إلى الثامن اخر ماده هي السلوك توضع في مكان السلوك وليس بعد الاجتماعيات. 

بالنسبة اول ثانوي وثاني ثانوي مادتي العلوم والاجتماعيات فارغة ليست من ضمن المقرر 

 

 

[أبوأحـمـد]

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

وتستطيع تغيير مسمى المادة في ورقة نسبة التحصيل بما يتوافق مع ترتيب المواد في قاعدة البيانات

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

المرفق بعد إضافة المجاميع

نسبة التحصيل العلمي للطلاب.xlsb

[هاشم العلوي]

الأستاذ القدير والرائع/ ابو احمد 

تحية وتقدير

أسأل الله تعالى أن يجعل هذا العمل في ميزان حسناتك

ويعطيك العافية ويسعدك دنيا وآخرة

العمل ممتاز ورائع

تبقى اخر مجموع وهو عبارة عن جمع مجموع من ١الى٨ زائدا مجموع اول ثانوي وثاني ثانوي والقسمة على اثنين لنحصل على المتوسط العام 

ولكم كل الاحترام والتقدير

 

[أبوأحـمـد]

ضع هذا آخر الكود قبل End Sub

'إجمالي عام
    For C = 2 To 43
     With ورقة6
   For R = 14 To 18 Step 4
     If .Cells(R, C) > 0 Then
        coun = coun + 1
        .Cells(19, C) = Val(.Cells(19, C)) + Val(.Cells(R, C))
        End If
    Next
    If coun > 0 Then .Cells(19, C) = Val(.Cells(19, C)) / coun
    coun = 0
End With
Next

 

[هاشم العلوي]

جزاك الله عني خير الجزاء  

ولقد صرت خجلان تعبكم معي ولا املك لك الا الدعاء 

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

تبقى من المجاميع  

الصف ١٤  الاعمدة ٤٤ و  ٤٥ و   ٤٦ 

الصف ١٨.   و ١٩.   الاعمدة. ٤٤.  و.  ٤٥.     ٤٦ 

[أبوأحـمـد]

تفضل

نسبة التحصيل العلمي للطلاب.xlsb

[هاشم العلوي]

الأخ القدير الاستاذ/ابو احمد 

أولا أعتذر عن الازعاج 

بعد مراجعتي لنتائج الكود تبين أن الصف الاول الثانوي والتقني الثانوي نسبة التحصيل غير صحيحة 

أرجوا مراجعة الكود شاكر تعاونك 

[أبوأحـمـد]

تفضل

نسبة التحصيل العلمي للطلاب.xlsb

[هاشم العلوي]

الف الف شكر لك  

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