excel判断成绩等级及格、优秀等的方法总结

1、按ALT+F11打开VBE编辑器，在工程窗口下的Microsoft Excel对象右键-插入-模块，新建一个模块1。

2、自定义函数grade，粘贴如下代码：

Option Explicit

Function grade(r As Range)

If r < 60 Then

 grade = "不及格"

ElseIf r >= 60 And r < 70 Then

 grade = "及格"

ElseIf r >= 70 And r < 90 Then

 grade = "一般"

Else

 grade = "优秀"

End If

End Function

3、在B2单元格输入公式：=grade(A2)，下拉填充即可。

1、按ALT+F11打开VBE编辑器，双击工程窗口下的sheet1（sheet1）项（本示例存在于sheet1表，请根据实际情况双击粘贴代码），在右边的代码窗口粘贴如下代码：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 And Target.Row > 1 Then '限定仅当A列第二个单元格即A2开始的单元格内容变化时触发，此处请根据实际需要更改

 If IsNumeric(Target.Value) Then

  If Target.Value < 60 Then

   Target.Offset(0, 1) = "不及格"

  ElseIf Target.Value >= 60 And Target.Value < 70 Then

   Target.Offset(0, 1) = "及格"

  ElseIf Target.Value >= 70 And Target.Value < 90 Then

   Target.Offset(0, 1) = "一般"

  Else

   Target.Offset(0, 1) = "优秀"

  End If

  Else

   MsgBox "输入类型不合法，请输入数字！"

   Target.ClearContents

   Target.Offset(0, 1).ClearContents

  End If

End If

End Sub

2、当在A列A2开始的单元格区域输入内容变化时，会自动在相邻单元格填入平均成绩向对应的成绩等级；当输入的内容为非数字时，会弹出提示框。如图示：