如何通过自定义函数计算并赋值成绩等级结果？

这个自定义函数可根据单元格内的分数值自动返回对应成绩等级，实现逻辑简洁高效：条件按从高到低的顺序自上而下评估，一旦满足某个条件，后续条件将不再检查，减少无效判断。

完整代码实现 #

Function GRADE(ByVal cellref As Range) As String
    ' 将单元格数值转换为整数
    Dim cr As Integer
    cr = CInt(cellref.Value)
    
    ' 按分数区间判断对应等级
    If cr >= 95 Then
        GRADE = "A++"
    ElseIf cr >= 90 Then
        GRADE = "A+"
    ElseIf cr >= 85 Then
        GRADE = "A"
    ElseIf cr >= 80 Then
        GRADE = "B++"
    ElseIf cr >= 75 Then
        GRADE = "B+"
    ElseIf cr >= 70 Then
        GRADE = "B"
    ElseIf cr >= 60 Then
        GRADE = "C"
    ElseIf cr >= 50 Then
        GRADE = "D"
    ElseIf cr >= 40 Then
        GRADE = "E"
    Else
        ' 分数低于40时返回F
        GRADE = "F"
    End If
End Function

使用方法 #

• 打开Excel，按下Alt+F11打开VBA编辑器
• 点击菜单栏「插入」→「模块」
• 将上述代码粘贴到新建模块中
• 返回Excel工作表，在需要显示等级的单元格输入公式，例如=GRADE(A1)（A1为存放分数的目标单元格），按下回车即可得到对应成绩等级

内容的提问来源于stack exchange，提问作者sadiamujtaba