دوما نتعلم: كود للإجازة والملاحظة لكشوف التلاميذ

[مصطفى كمال]

السلام عليكم ورحمة الله تعالى وبركاته

أقدّم اليوم ملف يحتوي معادلتين بالإكسيل لإجازة الطالب أو العقوبة مع الملاحظة بالفيجوال باسيك

الكود التالي خاص بالإجازات والعقوبات

Function Mention(Note As Single) As String
    Dim Selecteur As Variant 
    Selecteur = Note 
    Select Case Selecteur
        Case Is <= 7.99 
            Mention = "&Ecirc;&aelig;&Egrave;&iacute;&Icirc;"
        Case 8 To 9.99
            Mention = "&Aring;&auml;&ETH;&Ccedil;&Ntilde;"
        Case 10 To 12.49
            Mention = "&aacute;&Ccedil;&Ocirc;&AElig;"
        Case 12.5 To 13.49
            Mention = "&aacute;&aelig;&Iacute;&Eacute; &Ocirc;&Ntilde;&Yacute;"
        Case 13.5 To 14.99
            Mention = "&Ecirc;&Ocirc;&Igrave;&iacute;&Uacute;"
        Case 15 To 17.99
            Mention = "&Ecirc;&aring;&Ccedil;&auml;&iacute;"
        Case Is <= 20 
            Mention = "&Ccedil;&atilde;&Ecirc;&iacute;&Ccedil;&Ograve;"
        Case Else
            Mention = "&Ecirc;&Atilde;&szlig;&Iuml; &atilde;&auml; &Ccedil;&aacute;&atilde;&Uacute;&Iuml;&aacute;"
    End Select
End Function

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

Function OBSERVATION(Note As Single) As String
    Dim Selecteur As Variant
    Selecteur = Note 
    Select Case Selecteur
        Case Is <= 9.99
            OBSERVATION = "&Uacute;&atilde;&aacute; &Ucirc;&iacute;&Ntilde; &szlig;&Ccedil;&Yacute;"
        Case 10 To 12.49
            OBSERVATION = "&Iacute;&Oacute;&auml;"
        Case 12.5 To 13.49
            OBSERVATION = "&Iacute;&Oacute;&auml; &Igrave;&Iuml;&Ccedil;"
        Case 13.5 To 14.99
            OBSERVATION = "&Igrave;&iacute;&Iuml;"
        Case 15 To 17.99
            OBSERVATION = "&Igrave;&iacute;&Iuml; &Igrave;&Iuml;&Ccedil;"
        Case Is <= 20 
            OBSERVATION = "&atilde;&atilde;&Ecirc;&Ccedil;&Ograve;"
        Case Else 
            OBSERVATION = "&Ecirc;&Atilde;&szlig;&Iuml; &atilde;&auml; &Ccedil;&aacute;&atilde;&Uacute;&Iuml;&aacute;"
    End Select
End Function

الكودين من ملف من موقع فرنسي م تحميله وتم فيه التغيير للأمانة

لا تنسونا من ملاحظاتكم وآرائكم

لا تنسونا من صالح الدعاء بظهر الغيب

mention.rar

[مصطفى كمال]

السلام عليكم ورحمة الله تعالى وبركاته

أقدّم اليوم ملف يحتوي معادلتين بالإكسيل لإجازة الطالب أو العقوبة مع الملاحظة بالفيجوال باسيك

الكود التالي خاص بالإجازات والعقوبات

Function Mention(Note As Single) As String
    Dim Selecteur As Variant 
    Selecteur = Note 
    Select Case Selecteur
        Case Is <= 7.99 
            Mention = "توبيخ"
        Case 8 To 9.99
            Mention = "إنذار"
        Case 10 To 12.49
            Mention = "لا شئ"
        Case 12.5 To 13.49
            Mention = "لوحة شرف"
        Case 13.5 To 14.99
            Mention = "تشجيع"
        Case 15 To 17.99
            Mention = "تهاني"
        Case Is <= 20 
            Mention = "امتياز"
        Case Else
            Mention = "تأكد من المعدل"
    End Select
End Function

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

Function OBSERVATION(Note As Single) As String
    Dim Selecteur As Variant
    Selecteur = Note 
    Select Case Selecteur
        Case Is <= 9.99
            OBSERVATION = "عمل غير كاف"
        Case 10 To 12.49
            OBSERVATION = "حسن"
        Case 12.5 To 13.49
            OBSERVATION = "حسن جدا"
        Case 13.5 To 14.99
            OBSERVATION = "جيد"
        Case 15 To 17.99
            OBSERVATION = "جيد جدا"
        Case Is <= 20 
            OBSERVATION = "ممتاز"
        Case Else 
            OBSERVATION = "تأكد من المعدل"
    End Select
End Function

الكودين من ملف من موقع فرنسي م تحميله وتم فيه التغيير للأمانة

الملف يوضح المطلوب

لا تنسونا من ملاحظاتكم وآرائكم

لا تنسونا من صالح الدعاء بظهر الغيب