Hello Mr Big Shot,
Given the limitations you have run into, I feel your best solution is a UDF (User Defined Function). This will return a letter grade for a any cell with a decimal value. You will need to copy this code, insert a Standard VBA Module, and paste the code into. You can then use this macro just like a standard Excel formula.
Public Function LetterGrade(Number_Grade) As String
Application.Volatile
Dim L As String
Dim N As Single
N = CSng(Number_Grade)
If N >= 95 Then L = "A+": GoTo Finish
If N >= 90 And N < 95 Then L = "A": GoTo Finish
If N >= 85 And N < 90 Then L = "B+": GoTo Finish
If N >= 80 And N < 85 Then L = "B": GoTo Finish
If N >= 75 And N < 80 Then L = "C+": GoTo Finish
If N >= 70 And N < 75 Then L = "C": GoTo Finish
If N >= 65 And N < 70 Then L = "D+": GoTo Finish
If N >= 60 And N < 65 Then L = "D": GoTo Finish
If N < 60 Then L = "F"
Finish:
LetterGrade = L
End Function
Example of use:
Say cell A1 = "77.255"
Cell B1 formula is: =LetterGrade(A1)
The result in B1 will C+
Sincerely,
Leith Ross
Bookmarks