كود لجمع الدرجات

[2saad]

وارفقت لكم ملف واريد كود لترحيل الدرجات من شيت( ملف تحريري نصف العام صف خامس ) الي الشيت الرئيسي ( شيت صف خامس )
ثم كود لجمع الدرجات في الشيت الرئيسي ( شيت صف خامس )

سعد3.xlsx

[أ / محمد صالح]

أولا أحييك على تصميم شكل الشيت الذي لا يحتوي على أية معادلات ولا أكواد

لكن المطلوب كبير جدا تصميم وبرمجة شيت كنترول للمرحلة الابتدائية

وهذا عمل طويل ربما يأخذ منك شهورا حتى يكتمل كما تريد

على كل حال

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

يمكنك الاستفادة منها وكلنا نتعلم من بعضنا

https://www.officena.net/ib/search/?&q=كنترول الابتدائى&type=forums_topic&nodes=135&search_and_or=and&sortby=relevancy

بالتوفيق 

[2saad]

اولا اشكر حضرتك علي الرد ولكن انا عايز مثال واحد فقط وانا اكمل الباقي

لان عايز اعمل الشيت بنفسي مش عايز برامج جاهزة

[أ / محمد صالح]

7 ساعات مضت, 2saad said:

ولكن انا عايز مثال واحد فقط وانا اكمل الباقي

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

ومثال لوضع درجات مادة اللغة العربية في شيت صف خامس

نضع في الخلية O10 المعادلة التالية

=' ملف وتحريري نصف العام صف خامس'!F10

وفي الخلية P10 المعادلة التالية

=' ملف وتحريري نصف العام صف خامس'!R10

وفي الخلية Q10 المعادلة التالية للجمع

=SUM(O10,P10)

نم سحب مقبض التعبئة لأسفل لنسخ المعادلة إلى باقي الخلايا 

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

وهي بسيطة جدا وهذا مثال لنفس المادة

Sub tst()
Dim lr As Long
lr = Sheets(" ملف وتحريري نصف العام صف خامس").Cells(Rows.Count, 2).End(xlUp).Row
With Sheets("شيت صف خامس").Range("O10:O" & lr)
.Formula = "=' ملف وتحريري نصف العام صف خامس'!G10"
.Value = .Value
End With
With Sheets("شيت صف خامس").Range("P10:P" & lr)
.Formula = "=' ملف وتحريري نصف العام صف خامس'!R10"
.Value = .Value
End With
With Sheets("شيت صف خامس").Range("Q10:Q" & lr)
.Formula = "=sum(O10,P10)"
.Value = .Value
End With
End Sub

مع ملاحظة الآتي

وجود مسافات زائدة في أسماء بعض الشيتات (" ملف وتحريري نصف العام صف خامس")

تسمية الشيتات باللغة الانجليزية تسهل التعامل مع المعادلات والأكواد

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

بالتوفيق 

[2saad]

الله يبارك فيك دنيا وآخرة وشكرا علي اهتمامك بطلبي

[أ / محمد صالح]

آمين ولك مثله ويزيد

[هشام جودي]

بارك الله فيكم 

لكم كل الشكر والعرفان