用EXCEL算一个班每个人的学分 总 绩点

发布网友 发布时间：2022-04-30 16:31

我来回答

共6个回答

热心网友 时间：2022-06-27 13:08

枚举，举例如下，你自己稍微改一下，假设A列是你的分数，公式为：=LOOKUP(ROUNDDOWN(F4/5,0),{0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20},{0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,2.5,3,3.5,4,4,4}) 你的文档我发给你了。

热心网友 时间：2022-06-27 13:09

假设d列为学生成绩列
=IF(D1<60,0,IF(AND(D1>=60,D1<70),1,IF(AND(D1>=70,D1<75),2,IF(AND(D1>=75,D1<80),2.5,IF(AND(D1>=80,D1<85),3,IF(AND(D1>=85,D1<90),3.5,4))))))

热心网友 时间：2022-06-27 13:09

用Excel自带的Visaul Basic编辑器最好了

假定你的分数在A列，学分在B列，并且是在以一个标签中。
可以在Visaul Basic编辑器中写入如下代码

Sub CountCredit()

Dim iCredit As Integer
Dim fCell As Single

For i = 2 To Sheet1.UsedRange.count + 1

If CSng(Sheet1.Cells(i, 1)) >= 90 And CSng(Sheet1.Cells(i, 1)) <= 100 Then
Sheet1.Cells(i, 2) = 4
ElseIf CSng(Sheet1.Cells(i, 1)) >= 85 And CSng(Sheet1.Cells(i, 1)) <= 89 Then
Sheet1.Cells(i, 2) = 3.5
ElseIf CSng(Sheet1.Cells(i, 1)) >= 80 And CSng(Sheet1.Cells(i, 1)) <= 84 Then
Sheet1.Cells(i, 2) = 3
ElseIf CSng(Sheet1.Cells(i, 1)) >= 75 And CSng(Sheet1.Cells(i, 1)) <= 79 Then
Sheet1.Cells(i, 2) = 2.5
ElseIf CSng(Sheet1.Cells(i, 1)) >= 70 And CSng(Sheet1.Cells(i, 1)) <= 74 Then
Sheet1.Cells(i, 2) = 2
ElseIf CSng(Sheet1.Cells(i, 1)) >= 60 And CSng(Sheet1.Cells(i, 1)) <= 689 Then
Sheet1.Cells(i, 2) = 1
ElseIf CSng(Sheet1.Cells(i, 1)) >= 0 And CSng(Sheet1.Cells(i, 1)) <= 589 Then
Sheet1.Cells(i, 2) = 0
End If
Next i
End Sub

然后把光标放在代码中，点击工具栏中的运行按钮即可算出学分，切记，不能有空白的单元成绩，不要的行要删除掉

热心网友 时间：2022-06-27 13:10

假设d列为学生成绩列
=IF(D1<60,0,IF(AND(D1>=60,D1<70),1,IF(D1>=90,4,INT((A3-50)/5)/2)))

热心网友 时间：2022-06-27 13:10

=if(a1>89,4,if(a1>84,3.5,if(a1>79,3,if(a1>74,2.5,if(a1>69,2,if(a1>59,1,0))))))

热心网友 时间：2022-06-27 13:11

好 就是vlookup而已 模糊匹配