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

جزاكم الله خيرا اخي الكريم ناصر فمعك وبمعلوماتك تم انشاء هذا الكود كما الحال لغيره
هل تقصد انك تريد اضافة شرط معين للمجموع وهو اذا كان المجموع اقل من النصف يظهر مع مواد الرسوب المجموع لنصف الدرجة
هو حاليا يعامل نفس معاملة المواد ويعطى المجموع لثلث الدرجة أيضا ؟؟؟؟؟
من الممكن ان نضيف شرط خاص بالمجموع فقط
وضح المطلوب وان شاء الله نقوم بالتعديل عليه
تحياتي

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

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

المشاركة الأصلية كتبت بواسطة: Yasser Elaraby تريد اضافة شرط معين للمجموع وهو اذا كان المجموع اقل من النصف يظهر مع مواد الرسوب المجموع لنصف الدرجة

من الممكن ان نضيف شرط خاص بالمجموع فقط
ان شاء الله نقوم بالتعديل عليه
تحياتي

همتك معانا ياباشا

تفضل اخي الكريم ناصر جرب التعديل المرفق
استخراج حالة الطالب ومواد الرسوب معدل YASSER.rar
تحياتي

جزاك الله كل خير وبارك فيك يارب استاذ ياسر العربي
===
الرقم 52 الموجود داخل الكود يعني رقم عمود المجموع
والرقم 46 و 86 ماذا يعنون ؟
وهل ممكن نضع رقم عمود المجموع وعمود ( مجموع العملي والتحريري ) مثل هذه الفكره الرائعه منكم

    Const STATUS As Byte = 101    'عمود الحالة ناجح او دور ثان

لتكون كل المتغيرات اعلا الكود فقط

بالفعل تستطيع وضع ثابت لرقم المجموع مثل ما ذكرت

Const STATUS As Byte = 101&nbsp;<br />

كل ما عليك هو تغيير الاسم STATUS الى اسم يشير الى المجموع وليكن TOTAL
وبعدها تضع الاسم TOTAL مكان 52 بالكود
اما بخصوص 46 فهي بخصوص مادة العلوم نظرا لاختلافها عن المواد الاخرى
والرقم 86 ما هو الا رقم داخل الكود يتم الذهاب اليه في حالات معينه بالكود وليس له صلة باي مواد
تحياتي

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

Sub YASSER_ELARABY()
'تم هذا الكود بواسطه المحترم ياسر العربي
'فائده هذا الكود هو استخراج حاله الطالب من
'ناجح او دور تان وكذلك استخراج مواد الدور لتاني
'تم في 28/8/2016
    Dim ARR
    Dim ARRY
    Dim ARRYS
    '___________________________________________
    Dim R As Long
    Dim X As Long
    Dim XX As Byte
    Dim ALL_LESS As String
    '___________________________________________
    Const TOTAL  As Byte = 52    'عمود المجموع
    Const Since  As Byte = 109    'عمود مجموع العلوم
    Const STATUS As Byte = 101    'عمود الحالة ناجح او دور ثان
    Const NOTES As Byte = 102  ' عمود الملاحظات عمود المواد او منقول للصف ا لاخر
    Const GENDER As Byte = 112  ' عمود الجنس ذكر او انثى
    '_____________________________________________________
    Const LESS_ROW As Byte = 6  'صف الدرجة الصغرى
    Const NAM_ROW As Byte = 2    'صف اسماء المواد
    Const NAME_FIRST As Byte = 7  ' اول صف لاسماء الطلاب
    Const NAME_LAST As Long = 206 + NAME_FIRST  ' عدد الطلاب
    '_____________________________________________________
    ARR = Array(9, 18, 27, 36, 109, 54, 59, 64, 69, 78)   ' اعمدة اختبار الفصل الدارسي الثاني  لجميع المواد
    ARRY = Array(13, 22, 31, 40, 51, 57, 62, 67, 72, 82)   'اعمدة الدرجة النهائية لجميع المواد
    ARRYS = Array(5, 14, 23, 32, 41, 53, 58, 63, 68, 74)   'اعمدة اسماء كل المواد
    '_____________________________________________________
    With Sheet2    'اسم شيت البيانات
        Application.ScreenUpdating = False    'الغاء تحديث الشاشة
        Application.Calculation = xlManual    ' ايقاف الحساب التلقائي
        For R = NAME_FIRST To NAME_LAST    ' حلقة تكرارية تبدأ  بأول اسم طالب الى اخر اسم
            For X = 0 To UBound(ARR)    ' حلقة تكرارية تبدأ من الصفر الى اقصى مصفوفة اعمدة اختبار الفصل الدارسي الثاني
                On Error Resume Next
                '____________________________________________________
                'يتم حساب عدد ا لمواد المتغيب بها الطالب او درجتها صفر ويتم وضع عدد المواد في المتغير اكس اكس
                'اذا وصل عدد المواد الى 11 اصبح الطالب متغيب
                If .Cells(R, ARRY(X)) = 0 Or .Cells(R, ARRY(X)) = "غ" Then
                    XX = XX + 1
                End If
                '____________________________________________________
                'هذا الجزء خاص بمادة العلوم تحديدا الفصل الدراسي الثاني لانه مقسم على عمودين فتم اضافة هذا الجزء ليتم معالجة هذه المرحلة
                If ARR(X) = Since Then
                    'لايوجد اختلاف بين هذا الكود وبين الكود الموجود بالاسفل
                    If Val(.Cells(R, ARR(X))) + Val(.Cells(R, ARR(X) + 1)) < Val(.Cells(LESS_ROW, ARR(X))) Or .Cells(R, ARR(X)) = "غ" Or .Cells(R, ARR(X) + 1) = "غ" Then
                        ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " لثلث الدرجة " & " - ": GoTo 86
                        GoTo 86  'هنا يتم تخطى عمل الكود بالاسفل حتى لايتم معالجة مادة العلوم مرة اخرى
                    Else
                        GoTo 86  'وهنا ايضا يتم تخطى مادة العلوم الى المادة الاخرى
                    End If
                End If
                'هنا يتم مقارنة المواد بالدرجة الصغرى الخاصة الفصل الدارسي الثاني في اول الكود او اذا كانت غياب يتم اضافة اسم المادة من صف  المواد الى المتغير
                'ALL_LESS
                'او  مقارنة الدرجة النهائية لكل مادة بالدرجة الصغرى لها او اذا كانت غياب اذا تحقق الشرط فيتم اضافة المادة الى المتغير
                'ALL_LESS
                '______________________________________________________
                If .Cells(R, ARR(X)) < .Cells(LESS_ROW, ARR(X)) Or .Cells(R, ARR(X)) = "غ" Then
                    ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " لثلث الدرجة " & " - ":    'GoTo 86
                End If
                '_______________________________________________________
86          Next X    'الذهاب الى المادة الاخرى لاعادة تطبيق الكود مرة اخرى حتى انتهاء جميع المواد
            'اذا كان المتغير اكس اكس بيساوي عدد المواد اذن الطالب متغيب
            If .Cells(R, TOTAL) < .Cells(LESS_ROW, TOTAL) Or .Cells(R, TOTAL) = "غ" Then
                ALL_LESS = ALL_LESS & .Cells(NAM_ROW, TOTAL) & " لنصف الدرجة " & " - "
            End If
            If XX = 11 Then ALL_LESS = "غياب  ": XX = 0
            '_____________________________________________________
            'هنا بعد اكتمال الكود يتم عمل شرط للمتغير
            'ALL_LESS
            'اذا كان المتغير فارغ اي لم يتم اضافة اي مواد به اذا الطالب ناجح
            If ALL_LESS = "" Then
                If .Cells(R, GENDER) = "ذكر" Then .Cells(R, STATUS) = "ناجح "    'اذا كان نوع الطالب ذكر يتم وضع ناجح
                If .Cells(R, GENDER) = 2 Then .Cells(R, STATUS) = "ناجحة "    'اذا كانت انثى يتم وضع ناجحه
                If .Cells(R, GENDER) = "ذكر" Then .Cells(R, NOTES) = "ومنقول " & INFO.Range("B14")    'ويتم وضع في الملاحظات منقول الى ويتم جلب الصف من صفحة الانفو
                If .Cells(R, GENDER) = 2 Then .Cells(R, NOTES) = "ومنقولة " & INFO.Range("B14")    'مثل ماسبق
                'اما اذا كان المتغير يحمل اي بيانات لمواد يصبح الطالب له دور ثان
            ElseIf ALL_LESS <> "" Then
                If .Cells(R, GENDER) = "ذكر" Then .Cells(R, STATUS) = "له دور ثان في"    'مثل ما سبق بخصوص النوع
                If .Cells(R, GENDER) = 2 Then .Cells(R, STATUS) = "لها دور ثان في"    '
                .Cells(R, NOTES) = Left(ALL_LESS, Len(ALL_LESS) - 2)    'هنا يتم وضع قيمة المتغير اي المواد في خلية الملاحظات
                ALL_LESS = Empty    'تفريغ المتغير لاعادة تعبئة اسم طالب اخر
            End If
            '_____________________________________________________
        Next R    'الذهاب الى الصف التالي حتى انتهاء عدد الطلاب
    End With
    Application.ScreenUpdating = True    'اعادة تحديث الشاشة
    Application.Calculation = xlAutomatic    'تشغيل الحساب التلقائي
End Sub

ربنا يبارك فيك استاذ ياسر العربي
وجدنا ان عند الضغط على زر عرض النتيجه في عمود 102 التي يظهر فيه المواد في في نهايته تزيد حاله
====
جزاك الله كل خير