احصاء نتيجة الطلاب بالكود

[جلال محمد]

الإخوه الكرام 

السلام عليكم

معظم الاحصائات غالبا ما تنفذ بالدوال ..... فهل ممكن عمل ذلك عن طريق الأكواد في الملف المرفق ؟

شاهد المرفق

 

احصا بالكود.rar

تم تعديل يوليو 21, 2016 بواسطه جلال محمد

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

وعليكم السلام ورحمة الله وبركاته أخي الكريم جلال محمد

طالت غيبتك عن المنتدى ولا نراك إلا نادراً ..

هل تحب الصيد أم تفضل السمك جاهز ؟

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

سنأخذ مثال واحد فقط ونطبق عليه الكود :

في ورقة الإحصاء في العمود الأول المطلوب إحصاء الذكور فالمعادلة التي يمكن استخدامها ببساطة باستخدام الدالة SUMPRODUCT ستكون بالشكل التالي

=SUMPRODUCT(--(Total!$CJ$13:$CJ$146="ذكر"))

سنقوم بوضع الكود التالي في موديول وسأشرح لك الأجزاء المهمة لتستطيع تنفيذ المهمة (شفت الجناس التام بين كلمة المهمة الأولى وكلمة المهمة الثانية ..مش موضوعنا)

Sub Ehsaa_Using_VBA()
    Dim Ws As Worksheet
    Dim Sh As Worksheet
    Dim LR As Long

    Set Ws = Sheets("Total")
    Set Sh = Sheets("احصاء بالكود")
    
    'متغير لمعرفة آخر صف فيه بيانات في ورقة العمل الأساسية
    LR = Ws.Range("C" & Rows.Count).End(xlUp).Row
    
    Application.ScreenUpdating = False
        With Sh.Range("C9:C24")
            .Formula = "=SUMPRODUCT(--(Total!$CJ$13:$CJ" & LR & "=""ذكر""))"
            .Value = .Value
        End With
        
    Application.ScreenUpdating = True
    MsgBox "Done...", 64
End Sub

الكود في أوله شوية متغيرات وبعدين بنرمز لورقة العمل الأساسية بالرمز Ws وورقة العمل إحصاء بالرمز أو المتغير Sh ..

بنحدد آخر صف فيه بيانات من خلال الكود .. ودا الفرق بين المعادلة والكود .. في المعادلة بنحدد آخر النطاق بأنفسنا لكن هنا في الكود هنخلي الإكسيل هو اللي يحدد آخر صف ودا هيكون بناءً على عمود الأسماء اللي هو العمود C أو العمود الثالث

 

نيجي بقا للجزء المهم اللي من خلاله هنقدر نتعامل مع النطاق C9:C24 (العمود الأول في الإحصاء)

كل الفكرة إننا هنضع المعادلة بس في الكود وبعدين نحول المعادلة لقيمة للتخلص من المعادلة والإبقاء على القيمة (ودا بيخفف من حجم الملف)

With Sh.Range("C9:C24")
	.Formula = "=SUMPRODUCT(--(Total!$CJ$13:$CJ" & LR & "=""ذكر""))"
	.Value = .Value
End With

إزاي نتعامل .. أولاً بنحدد النطاق في السطر الأول اللي هنضع فيه المعادلات ودي أمرها بسيط

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

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

النصوص بتوضع بين أقواس تنصيص مرتين .. يعني مثلا كلمة ذكر في المعادلة وضعنا قوس تنصيص قبلها وقوس تنصيص بعدها ، أما داخل الكود هنخلي أقواس التنصيص مرتين قبلها ومرتين بعدها
آخر حاجة بنعملها إننا بنشيل رقم آخر صف اللي هو في المعادلة الرقم  146 ونضع مكانه المتغير LR (اللي بيمثل رقم آخر صف داخل الكود)
يعني شيل الرقم 146 من المعادلة وضع مكانها

" & LR & "

....

قم بتكرار نفس الأسطر الأربعة المشروحة لك مع بقية المعادلات مع تغيير النطاق وتغيير المعادلات وغير ما يلزم ..

أرجو أن تكون الصورة واضحة لك .. وإن شاء الله تفلح في تكملة الحل .. واعذرني لأنني لا أقدم الحلول جاهزة كبقية الأخوة في المنتدى (هذا في رأيي الشخصي أفضل وأوفر للوقت والجهد ..)

تقبل تحياتي

 

[جلال محمد]

اخي الكريم : ياسر ابو البراء

السلام عليكم 

اقتباس

طالت غيبتك عن المنتدى ولا نراك إلا نادراً ..

هل تحب الصيد أم تفضل السمك جاهز ؟

اولا : اشكرك شكرا جزيل علي سؤالك عني .... فلك مني كل الشكر والتقدير .... فانا والله متابع جيد لهذا المنتدي الرائع بما فيه من عظماء ولكن .... الوقت ... والعمل 

ثانيا : انا والله من محبي الصيد ... واعتمد بعد الله عز وجل عليه في غالب الأحوال 

ثالثا : شرحك ما اروعة وما اجمله ... جزاك الله خيرا وجعله الله في موازين حسناتك 

وانا واثق انك سوف تقدم المساعدة عند تعثري 

شكرا جزيل لك .... وان شاء الله سوف ابدأ العمل علي ضوء ما تم شرحه 

[جلال محمد]

اخي الكريم : ياسر ابو البراء

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

ولقد وجت مشكله لم ادري هل هي من الدالة ام من الكود

وهي عند حصر غياب البنات والبنين ( الغائب عندي ولد واحد وبنت واحدة  في مادة الجغرافيا وقد ظهر الغائب في مادة اللغة العربية ) ... كذلك ظهر طالب غائب في مادة الانجليزي ولا يوجد غائب في الانجليزي فما الحل ؟

 

احصا بالكود2.rar

[ابو عبدالبارى]

اخى العزيز جلال محمد

كما ذكرت سابقا تشخيص المشكلة هو 90% من حلها

 .Formula = "=SUMPRODUCT(--(Total!N13:BX146=""غ"")*(Total!CJ13:CJ146=""ذكر""))"
.Formula = "=SUMPRODUCT(--(Total!N13:BX146=""غ"")*(Total!CJ13:CJ146=""انثى""))"

 

[جلال محمد]

اخي ابو عبد البارى : يارب تكون بخير

اقتباس

كما ذكرت سابقا تشخيص المشكلة هو 90% من حلها

همتك معانا 

الاخوة الكرام 

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

Sub dahmour()
    Dim Ws As Worksheet
    Dim Sh As Worksheet
    Dim LR As Long
    Dim L As String
    
    Set Ws = Sheets("Total")
    Set Sh = Sheets("احصاء بالكود")
    Application.ScreenUpdating = False
    'متغير لمعرفة آخر صف فيه بيانات في ورقة العمل الأساسية
    LR = Ws.Range("C" & Rows.Count).End(xlUp).Row
    If L <> "" Then
    Ws.Range("Total").Cells(Rows.Count, 7).End(xlToRight).Column
    Sh.Range("احصاء بالكود").Cells(Rows.Count, 1).End(xlUp).Row

    For Each cell In Ws.Range("Total").Range("O7:BY" & Ws)
    For Each cell2 In Sh.Range("احصاء بالكود").Range("B9:B" & Sh)
    If cell.Value = cell2.Value Then
    
        With Sh.Range("C9:C24")
            .Formula = "=SUMPRODUCT(--(Total!$CJ$13:$CJ" & LR & "=""ذكر""))"
            .Value = .Value
        End With
        With Sh.Range("d9:d24")
            .Formula = "=SUMPRODUCT(--(Total!$CJ$13:$CJ" & LR & "=""انثى""))"
            .Value = .Value
        End With
        With Sh.Range("e9:e24")
            .Formula = "=SUM(C9,D9)"
            .Value = .Value
        End With
        With Sh.Range("f9:f24")
            .Formula = "=SUMPRODUCT(--(Total!N13:BX146=""غ"")*(Total!CJ13:CJ146=""ذكر""))"
            .Value = .Value
        End With
        With Sh.Range("g9:g24")
            .Formula = "=SUMPRODUCT(--(Total!N13:BX146=""غ"")*(Total!CJ13:CJ146=""انثى""))"
            .Value = .Value
        End With
        With Sh.Range("h9:h24")
            .Formula = "=SUM(f9,g9)"
            .Value = .Value
        End With
        With Sh.Range("i9:i24")
            .Formula = "=C9-F9"
            .Value = .Value
        End With
        With Sh.Range("j9:j24")
            .Formula = "=D9-G9"
            .Value = .Value
        End With
        With Sh.Range("k9:k24")
            .Formula = "=SUM(i9,j9)"
            .Value = .Value
        End With
        
        
    Application.ScreenUpdating = True
    MsgBox "Done...", 64
    Exit For
End If
Next
Next
End If
End Sub

هذا هو الجزء المضاف 

If L <> "" Then
    Ws.Range("Total").Cells(Rows.Count, 7).End(xlToRight).Column
    Sh.Range("احصاء بالكود").Cells(Rows.Count, 1).End(xlUp).Row

    For Each cell In Ws.Range("Total").Range("O7:BY" & Ws)
    For Each cell2 In Sh.Range("احصاء بالكود").Range("B9:B" & Sh)
    If cell.Value = cell2.Value Then

هذه الاضافة في الكود لم تأتي بجديد فهل ينقصها شيئ

احصا بالكود3.rar

[ابو عبدالبارى]

13 ساعات مضت, ابو عبدالبارى said:

اخى العزيز جلال محمد

كما ذكرت سابقا تشخيص المشكلة هو 90% من حلها

 .Formula = "=SUMPRODUCT(--(Total!N13:BX146=""غ"")*(Total!CJ13:CJ146=""ذكر""))"
.Formula = "=SUMPRODUCT(--(Total!N13:BX146=""غ"")*(Total!CJ13:CJ146=""انثى""))"

 

اخى العزيز جلال محمد

المشكلة كلها تكمن فى الجزء الذى ذكرتة فى المشاركة السابقة وبالتحديد فى هذة الجزئية

(Total!N13:BX146=""غ"")

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

(Total!p13:p146=""غ"")

ويتم تغيير اسم العمود مع كل مادة المشكلة ان اسماء الأعمدة غير منتظمة ( هيا بنا الى الصيد بعد ان توافرت ادواته )

[جلال محمد]

اخي ابو عبد الباري

جزاك الله خيرا ..... فهذا فعلا مفتاح الحل ..... ولكن ...... هذا مرهق ويجعل الكود طويل جدا ..... فتخيل عدد المواد ( 16 مادة ) لحساب الغائب من الذكور .... ونفس الأمر يتكرر مع الاناث 

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

انا اردت في المشاركة السابقة ( ان نضع امر في الكود لعمل مقارنه للمواد في شيت ( total ) وما يماثلها في شيت ( احصاء بالكود ) وعند مطابقة المواد يوضع عدد الغائب في المادة التي يوجد بها ( غ ) 

فهذا لو تحقق اصبح الكود سهل وبسيط 

[جلال محمد]

الاخوه الكرام

السلام عليكم

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

فهل من غواص يحل عقدة السناره ...... ولا اشدها واقطعها ... وابأ من جديد

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

أخي الكريم جلال محمد

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

من الممكن عمل كود لإحصاء كل مادة ، وفي النهاية يتم تجميع الأكواد في كود واحد عن طريق الاستدعاء بكلمة Call أو كتابة اسم الكود بشكل مباشر

[جلال محمد]

اخي الكريم ياسر ابو البراء

شكرا جزيلا علي متابعتك للموضوع 

انا مشكلتي عدم ثبات عمود الغياب فمن الممكن ان يكون في عمود امتحان الفصل الأول .... او عمود امتحان الفصل الثاني 

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

[الشهابي]

أخي العزيز / جلال محمد 

وبعد اذن الأساتذة الكرام حفظهم وحفظكم الله آمين 

اسمح لي أن اشترك معكم في عملية الإحصاء 

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

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

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

قم بمراجعتها إذا هناك أخطاء أم لا 

 استفسار في ورقة الإحصاء ماذا تقصد بإجمالي الدور الثاني 

هذه لم أفهمه

والعفو 

 

احصا بالكود.rar

[جلال محمد]

اخي الكريم الشهابي

السلام عليكم

اولا : اسف جدا لتأخر الرد وذلك لظروف خاصة منعتني عن متابعة الموضوع

ثانيا : شكرا جزيلا علي الاهتمام بالموضوع والمشاركة الجميلة التي هونت الكثير للوصول الي المطلوب ان شاء الله 

ثالثا : الدالة المستخدمة رائعة جائت بالنتاج المرجوة .... يصعب عليا فهمها 

=IF($B9="الحاسب الآلي";SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=M$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))));IF(OR($B9="التاريخ";$B9="الفلسفة";$B9="الجغرافيا");SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=M$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))));SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=M$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1)))))))

ولي طلب من حضرتك .. عند وضع ( غ ) عند بعض الطلاب النتائج غير مضبوطه 

خصوصا ان الطالب الغائب وخصوصا ( في امتحان الفصل الدراسي الثاني ) يعتبر راسب في المادة

شاهد الصورة   

 

 

 

[جلال محمد]

اقتباس

استفسار في ورقة الإحصاء ماذا تقصد بإجمالي الدور الثاني 

اخي الكريم الشهابي

اجمالي الدور الثاني فعلا مكرر هو هو ( دور ثاني ) 

احصا بالكود (1).rar

[ابو عبدالبارى]

اخى العزيز جلال محمد

جرب المرفق التالى مؤقتاً

abo_abary_احصا بالكودنهائى.rar

[جلال محمد]

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

السلام عليكم 

أولا : جزاك الله خيرا علي مجهودك العظيم ... اللهم اجل اعمالك في موازين حسناتك

ثانيا : الملف رائع ويعطي نتائج رائعة ومجهود تشكر علية

لي طلب : هل من الممكن تحويل هذة الدوال الي كود وذلك لتخفيف حجم الملف كما بدأنا في مشاركة الأستاذ ياسر خليل 

كذلك الأستاذ الشهابي قدم مشاركة جميلة بها دالة مركبة ولكن لم افهمها جيدا وخصوصا الأرقام المجودة بالدالة فاذا كنت رئيتها فارجو من حضرتك شرحها 

=IF($B9="الحاسب الآلي";SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=L$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))));IF(OR($B9="التاريخ";$B9="الفلسفة";$B9="الجغرافيا");SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=L$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))));SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=L$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1)))))))

اقتباس

("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)

هذا جزء من الدالة ما دلالة الأرقام التي بالون الأحمر

[ابو عبدالبارى]

23 ساعات مضت, جلال محمد said:

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

السلام عليكم 

أولا : جزاك الله خيرا علي مجهودك العظيم ... اللهم اجل اعمالك في موازين حسناتك

ثانيا : الملف رائع ويعطي نتائج رائعة ومجهود تشكر علية

لي طلب : هل من الممكن تحويل هذة الدوال الي كود وذلك لتخفيف حجم الملف كما بدأنا في مشاركة الأستاذ ياسر خليل 

كذلك الأستاذ الشهابي قدم مشاركة جميلة بها دالة مركبة ولكن لم افهمها جيدا وخصوصا الأرقام المجودة بالدالة فاذا كنت رئيتها فارجو من حضرتك شرحها 

=IF($B9="الحاسب الآلي";SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=L$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))));IF(OR($B9="التاريخ";$B9="الفلسفة";$B9="الجغرافيا");SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=L$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))));SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=L$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1)))))))

هذا جزء من الدالة ما دلالة الأرقام التي بالون الأحمر

اخى العزيز جلال محمد

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

  ADDRESS الغرض منها الحصول على عنوان الخلية التى سيتم حساب الغياب فيها اما رقم 13 فهو رقم الصف الذى سيبحث فيه الجزء الخاص بالدالة MATCH للحصول على رقم العمود اما الرقم +5 لزيادة رقم العمود الذى حصل علية من الدالة MATCH بمقدار 5 اى      ( 19) يبقى عمود البحث W13 وده سبب المشكلة دى

في ٣‏/٨‏/٢٠١٦ at 18:53, جلال محمد said:

اخي الكريم الشهابي

السلام عليكم

اولا : اسف جدا لتأخر الرد وذلك لظروف خاصة منعتني عن متابعة الموضوع

ثانيا : شكرا جزيلا علي الاهتمام بالموضوع والمشاركة الجميلة التي هونت الكثير للوصول الي المطلوب ان شاء الله 

ثالثا : الدالة المستخدمة رائعة جائت بالنتاج المرجوة .... يصعب عليا فهمها 

=IF($B9="الحاسب الآلي";SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=M$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+5;1;1)))));IF(OR($B9="التاريخ";$B9="الفلسفة";$B9="الجغرافيا");SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=M$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+2;1;1)))));SUMPRODUCT(--(Total!$C$13:$C$1000<>"")*(Total!$CJ$13:$CJ$1000=M$8)*(INDIRECT(CONCATENATE("Total!";ADDRESS(13;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1);":";ADDRESS(1000;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1)))>=INDIRECT(CONCATENATE("Total!";ADDRESS(12;MATCH($B9;Total!$A$7:$BY$7;0)+3;1;1)))))))

ولي طلب من حضرتك .. عند وضع ( غ ) عند بعض الطلاب النتائج غير مضبوطه 

خصوصا ان الطالب الغائب وخصوصا ( في امتحان الفصل الدراسي الثاني ) يعتبر راسب في المادة

شاهد الصورة   

 

 

 

 

[الشهابي]

أخي العزيز الأستاذ القدير / جلال محمد 

أولا أعتذر عن تأخري في الرد بسبب بعض الإنشغالات 

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

وتم إجراء التعديلات من أجل تفادي بالأخطاء التي حصلت 

مرة ثانية راجع المعادلات وتأكد من صحة النتائج 

وإذا كانت صحيحة ممكن تحويلها إلى كود حسب طلبكم 

والعفو

احصا بالكود.rar

[جلال محمد]

اخي ابو عبد الباري 

شكرا جزيلا لك .... الشرح اوضح الكثير والكثير ... شكرا لك 

اخي الكريم الشهابي

السلام عليكم 

أولا : شكرا جزيلا علي متابعتك للموضوع ... ولا يوجد بين الاخوان اعتزار

ثانيا : الملف المرفق جمبل جدا واعتقد اننا كدنا نصل الي المطلوب 

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

وبالتالي سوف نجعل مرجع للغياب عمود واحد وهو ( الفصل الدراسي الثاني ) 

اما مرجع الدرجة الصغري يكون عمودين وهما ( عمود اختبار الفصل الدراسي الثاني --- وعمود الدرجة الكلية ) 

كما موضح بالصورة المرفقة 

احصا بالكود (2).rar

[الشهابي]

أخي العزيز الأستاذ القدير / جلال محمد 

بالنسبة للمواد الأحياء والكيمياء والفيزياء هل مرجع الدرجة الصغرى ثلاثة أعمدة ( العملي والتحريري والدرجة الكلية )

أم عمودين ( التحريري والدرجة الكلية )

وهل هناك قيود أخرى حول النجاح والرسوب والغياب 

 

[جلال محمد]

اخي الكريم الشهابي

فعلا اخي الكريم المواد (  الأحياء والكيمياء والفيزياء  - وكذلك - الفيزياء والفلسفة والجغرافيا ) 

مرجع الدرجة الصغري عمودين فقط هما  ( التحريري والدرجة الكلية )

ولا يوجد قيود اخي حول النجاح والرسوب 

شكرا لك علي مجهودك العظيم ..... جعلة الله في موازين حسناتك 

[الشهابي]

أخي العزيز الأستاذ القدير / جلال محمد 

جرب التعديل الآتي  وقمبمراجعته 

كما جعلت نطاق الدور الثاني للراسبين 

ونطاق إجمالي الدور الثاني للراسبين مع الغائبين 

إن شاء الله  نكون وصلنا للمطلوب 

تقبل تحياتي

احصا بالكود.rar

[جلال محمد]

اخي الكريم الشهابي

بسم الله ماشاء الله 

كده تمام .... جزاك الله خيرا .... النتائج 10/10 والاحصاء تمام .... الله ينور عليك 

وانا كملت الجزء الأخير من الاحصاء 

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

احصاء بالكود اخر تعديل.rar

[الشهابي]

أخي العزيز الأستاذ القدير / جلال محمد 

هذا الملق بعد تحويل المعادلات إلى قيم من خلال الكود 

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

والعفو 

احصاء بالكود اخر تعديل.rar

[جلال محمد]

اخي الكريم الشهابي

بسم الله ما شاء الله ..... اللهم بارك لك في جميع اعمالك .... اللهم اجعلها في موازين حسناتك

ارجو المعزره في تأخري عن الرد وذلك لظروف طارئه لم تكن في الحسبان ( ونحمد الله عليها )

قمة السعادة والنجاح عندما يتحول الحلم الي حقيقة .... فكانت فكرة الإحصاء عن طريق الكود عبارة عن حلم .... ولآن تحقق هذا الحلم

 جزاك الله خيرا لك ولجميع اعضاء هذا المنتدي الرائع 

جاري فهم الكود وكيفية تطبيقة علي الصف الثاني بقسمية ( العلمي والأدبي ) 

ولنا لفاء اخر ان شاء الله