ارجو حل مشكلتي باسرع وقت لاهمية الامر

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

عن حل نفس الموضوع فى الاكسل بالكود

باختصار بالنسبة لدالتك

بما أنك تستخدم 0.99

فقم بتقريب الرقم فى البداية

باستخدام الدالة Round

ما فى الدالة الأولي فى الأكواد التالية ، و لكن استخدم 2 بدلا من 1

و هناك 3 طرق أخري لا تحتاج فيها الي ذلك

هذه هي الاربع حلول و سأضع مثال عليها فى ملف اكسل غدا ان شاء الله فى قسم الاوفيس

اما بالنسبة للأكسس فاستخدم mycell بدلا من mycell.value

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

و هذا هو الفرق الوحيد

و هذه هي ال 4 دوال فاختار ما شئت

Function GetGrade(mycell)
'MsgBox mycell.Value
Dim x As Double
x = Round(mycell.Value, 1)
  Select Case x
  Case 0 To 49.9
   GetGrade = "راسب"
 Case 50 To 64.9
   GetGrade = "مقبول"
 Case 65 To 74.999
  GetGrade = "جيد"
 Case 75 To 84.9
  GetGrade = "جيد جدا"
 Case Is >= 85
  GetGrade = "ممتاز"
Case Else
  GetGrade = "رقم غريب"
 End Select
End Function

Function GetGrade2(mycell)
Dim x As Double
x = mycell.Value
  Select Case x
    Case Is >= 85
  GetGrade2 = "ممتاز"
  Case Is >= 75
  GetGrade2 = "جيد جدا"
  Case Is >= 65
  GetGrade2 = "جيد"
  Case Is >= 50
   GetGrade2 = "مقبول"
Case Is >= 0
   GetGrade2 = "راسب"
Case "else"
  GetGrade2 = "رقم غريب"
 End Select
 End Function

Function GetGrade3(mycell)
Dim x As Double
x = mycell.Value
GetGrade3 = "رقم غريب"
If x >= 0 Then GetGrade3 = "راسب"
If x >= 50 Then GetGrade3 = "مقبول"
If x >= 65 Then GetGrade3 = "جيد"
If x >= 75 Then GetGrade3 = "جيد جدا"
If x >= 85 Then GetGrade3 = "ممتاز"
End Function

Function GetGrade4(mycell)
Dim x As Double
x = mycell.Value
If x >= 0 And x < 50 Then
GetGrade4 = "راسب"
ElseIf x > 50 And x <= 65 Then
GetGrade4 = "مقبول"
ElseIf x > 65 And x <= 75 Then
GetGrade4 = "جيد"
ElseIf x > 75 And x <= 85 Then
GetGrade4 = "جيد جدا"
ElseIf x > 85 Then
GetGrade4 = "ممتاز"
Else
GetGrade4 = "رقم غريب"
End If
End Function