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





بيان نتيجة الطالب في الترم الاول

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



06-12-2017 01:09 مساء
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 253
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 153
الاعجاب : 58
 offline 
بسم الله الرحمن الرحيم
احبابي في الله
ادعو الله ان تكونو بخير يارب

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

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

جزاكم الله خيرا
الملف الاصل
 
 

 




06-12-2017 01:11 مساء
مشاهدة مشاركة منفردة [1]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 253
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 153
الاعجاب : 58
 offline 
look/images/icons/i1.gif بيان نتيجة الطالب في الترم الاول
سارسل ان شاء الله
ملفا اخر
به عينه من النتائج المطلوبه

جزاكم الله كل خير




06-12-2017 01:13 مساء
مشاهدة مشاركة منفردة [2]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 253
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 153
الاعجاب : 58
 offline 
look/images/icons/i1.gif بيان نتيجة الطالب في الترم الاول
طبعا للعباقره المحترمين
لو فيه كود اخر يؤدي نفس الفكره
اهلا وسهلا
يحفظكم الخالق




06-12-2017 04:10 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif بيان نتيجة الطالب في الترم الاول
مشكور لاعادة الرفع لافادة الغير به استتااذ ناصر كما نشكرا كل من الاستاذ ياسر وياسر وزيزو على الاضافات التى تم عليه

أثارت هذه المشاركة إعجاب: ناصر سعيد1،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

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

 

تحياتى وتقدير للجميع / محمود ابوالدهب



07-12-2017 09:09 صباحا
مشاهدة مشاركة منفردة [4]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 253
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 153
الاعجاب : 58
 offline 
look/images/icons/i1.gif بيان نتيجة الطالب في الترم الاول
السلام عليكم ورحمة الله
في عمود مجموع الماده للترم الاول
اذا كانت الدرجه اقل من نصف درجه المادة الموجوده في اعلا ... في الصف الخامس
او غ
يعتبر الطالب مقصر في هذه الماده
اما اذا غاب الطالب في جميع المواد للترم الاول يعتبر غياب
جزاكم الله خيرا




09-12-2017 12:05 مساء
مشاهدة مشاركة منفردة [5]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 253
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 153
الاعجاب : 58
 offline 
look/images/icons/i1.gif بيان نتيجة الطالب في الترم الاول
للرفع رفع الله مقداركم





09-12-2017 07:09 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif بيان نتيجة الطالب في الترم الاول
بص استاذ ناصر لانى مش ليا في الكنترور قوى فمش فاهم المطلوب بالضبط 
ولكنى عددلة على رقم الاعمده في المصفوفات وعليه لا اعرف مدى دقت النتيجة المرجوه 
وهذا هو الكود
Sub استخراج_حالة_الطالب()
'تم هذا الكود بواسطه المحترم ياسر العربي
'فائده هذا الكود هو استخراج حاله الطالب من
'ناجح او دور تان وكذلك استخراج مواد الدور لتاني
'تم في 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
    Dim Main As Worksheet
    Dim Info As Worksheet

    Set Main = Sheets("رصد الترم الثانى")
    Set Info = Sheets("بيانات المدرسة")

    '___________________________________________
    Const STATUS As Byte = 133    'عمود الحالة ناجح او دور ثان
    Const NOTES As Byte = 134  ' عمود الملاحظات عمود المواد او منقول للصف ا لاخر
    Const GENDER As Byte = 141  ' عمود الجنس ذكر او أنثى
    Const TOTAL  As Byte = 98
    Const LESS_ROW As Byte = 6  'صف الدرجة الصغرى
    Const NAM_ROW As Byte = 2    'صف اسماء المواد
    Const NAME_FIRST As Byte = 6  ' (اول صف لاسماء الطلاب -1)
    Const Absent  As Byte = 12    'عدد المواد لحساب الغياب
    Dim NAME_LAST As Long: NAME_LAST = Info.Range("B10").Value + NAME_FIRST   ' عدد الطلاب
   '======
    '_____________________________________________________
    'اعمدة اختبار الترم التاني
    'رقم عمود المجموع يكتب هنا
  ARR = Array(6, 17, 28, 39, 135, 63, 70, 77, 84, 91, 100, 98)
    
    'اعمدة الدرجة النهائية
    'ايضارقم عمود المجموع يكتب هنا
    ARRY = Array(7, 18, 29, 40, 63, 70, 77, 84, 91, 102, 98)
    
    'اعمدة اسماء كل المواد
    'ايضارقم عمود المجموع يكتب هنا
    ARRYS = Array(5, 16, 27, 38, 49, 63, 70, 77, 84, 91, 100, 98)
   '=================
   With Main    'اسم شيت البيانات
        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) = TOTAL Then
                    'لايوجد اختلاف بين هذا الكود وبين الكود الموجود بالاسفل
                    If .Cells(R, ARR(X)) < .Cells(LESS_ROW, ARR(X)) 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
                If .Cells(R, ARRY(X)) < .Cells(LESS_ROW, ARRY(X)) Or .Cells(R, ARRY(X)) = "غ" Then
                    ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " - "
                End If
                '______________________________________________________
86          Next X    'الذهاب الى المادة الاخرى لاعادة تطبيق الكود مرة اخرى حتى انتهاء جميع المواد
             'اذا كان المتغير اكس اكس بيساوي عدد المواد اذن الطالب متغيب
          If XX = Absent Then ALL_LESS = "غياب  ": XX = 0

            '_____________________________________________________
            'هنا بعد اكتمال الكود يتم عمل شرط للمتغير
            'ALL_LESS
            'اذا كان المتغير فارغ اي لم يتم اضافة اي مواد به اذا الطالب ناجح
            If ALL_LESS = "" Then
                If .Cells(R, GENDER) = "ذكر" Then .Cells(R, STATUS) = "ناجح "    'اذا كان نوع الطالب ذكر يتم وضع ناجح
                If .Cells(R, GENDER) = "أنثى" Then .Cells(R, STATUS) = "ناجحة "    'اذا كانت أنثى يتم وضع ناجحه
                If .Cells(R, GENDER) = "ذكر" Then .Cells(R, NOTES) = "ومنقول " & Info.Range("B16")    'ويتم وضع في الملاحظات منقول الى ويتم جلب الصف من صفحة الانفو
                If .Cells(R, GENDER) = "أنثى" Then .Cells(R, NOTES) = "ومنقولة " & Info.Range("B16")    'مثل ماسبق
                'اما اذا كان المتغير يحمل اي بيانات لمواد يصبح الطالب له دور ثان
            ElseIf ALL_LESS <> "" Then
                If .Cells(R, GENDER) = "ذكر" Then .Cells(R, STATUS) = "له دور ثان في"    'مثل ما سبق بخصوص النوع
                If .Cells(R, GENDER) = "أنثى" 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


انتظر للنتائج وقول ايه الملحوظات الى عليه 
وهذا مؤقتا لحين شفاء والده استذنا الجليل ياسر العربي ويرى ما ترغب به من تعديلات اكيده 
 

أثارت هذه المشاركة إعجاب: ناصر سعيد1،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

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

 

تحياتى وتقدير للجميع / محمود ابوالدهب



09-12-2017 07:45 مساء
مشاهدة مشاركة منفردة [7]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 253
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 153
الاعجاب : 58
 offline 
look/images/icons/i1.gif بيان نتيجة الطالب في الترم الاول
يحفظك الله استاذ محمود ابو الدهب
جاري التجارب على الكود




09-12-2017 08:40 مساء
مشاهدة مشاركة منفردة [8]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 253
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 153
الاعجاب : 58
 offline 
look/images/icons/i1.gif بيان نتيجة الطالب في الترم الاول
جزاك الله كل خير
==

لوجود اعمده الاختبار في الكود الذي تفضلتم به
يعتبر الكود غير المطلوب

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،



10-12-2017 09:45 مساء
مشاهدة مشاركة منفردة [9]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif بيان نتيجة الطالب في الترم الاول
ن شاء الله استاذ ياسر يعدله لك 

أثارت هذه المشاركة إعجاب: ناصر سعيد1،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

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

 

تحياتى وتقدير للجميع / محمود ابوالدهب



11-12-2017 10:52 مساء
مشاهدة مشاركة منفردة [10]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 253
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 153
الاعجاب : 58
 offline 
look/images/icons/i1.gif بيان نتيجة الطالب في الترم الاول
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب »
ن شاء الله استاذ ياسر يعدله لك 

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







الكلمات الدلالية
بيان ، نتيجة ، الطالب ، الترم ، الاول ،


 







الساعة الآن 02:58 صباحا