كود لتحويل درجات الطلاب لمستويات ( تقديرات ) .. تصلح للترم الاول

[ناصر سعيد]

رائعه المحترم ياسر خليل

كود لتحويل درجات الطلاب لمستويات ( تقديرات ) .. تصلح للترم الاول

 

Option Explicit
' هذا الكود من روائع المحترم ياسر خليل
'الهدف من الكود هو تحويل درجات الطلاب الى مستويات ( تقديرات )
'تم عمل هذا الكود بتاريخ 12/1/2017

Function Level(Mark As Variant, OutOf As Long) As String
    If IsNumeric(Mark) Then
        Mark = Mark / OutOf
        Select Case Mark
            Case Is <= 0
                Level = ""
            Case Is < 0.5
                Level = "دون المستوى"
            Case Is < 0.65
                Level = "مقبول"
            Case Is < 0.75
                Level = "جيد"
            Case Is < 0.85
                Level = "جيد جداً"
            Case Is <= 1
                Level = "ممتاز"
            Case Else
                Level = ""
        End Select
    Else
        Select Case Mark
  Case "غ"
  Level = "غ"
  Case "صفر"
  Level = "دون المستوى"
  Case "واحد"
  Level = "دون المستوى"
  Case "اثنان"
  Level = "دون المستوى"
  Case "ثلاثة"
  Level = "دون المستوى"
  Case Else
  Level = ""
        End Select
    End If
End Function

 

=======================================

 

Level UDF Using Select Case YasserKhalil ExcelLover.rar

جزاه الله عنا كل خير

[cat101]

جزاك الله خيرا استاذ ياسر خليل