在Excel中编个多项选择题打分程序

'主体函数

Sub defen()

Dim a As String, b As String

For n = 1 To 3 '需要改下这里，这是行数

a = fenzu(Cells(n, 1))

paixu a

b = fenzu(Cells(n, 2))

paixu b

If a = b Then

Cells(n, 3) = 2

Else

If InStr(1, a, b) Then

Cells(n, 3) = 1

Else

Cells(n, 3) = 0

End If

End If

Next

End Sub

'防止答案或者标准答案顺序不对，按字母顺序排序

Sub paixu(shu As String)

Dim a, c

Dim i As Integer, temp

a = Split(shu, ",")

For i = 0 To UBound(a) - 1

If (a(i) >a(i + 1)) Then '若是递减,改为a(i)<a(i+1)

temp = a(i)

a(i) = a(i + 1)

a(i + 1) = temp

End If

Next

shu = Join(a, "")

End Sub

'为了排序,每个字母之间插入逗号

Function fenzu(t As Range) As String

Dim a As String, b As String

a = ""

b = UCase(t)

For m = 1 To Len(b)

a = a &Mid(b, m, 1) &","

Next

fenzu = Mid(a, 1, Len(a) - 1)

End Function

准备工具/材料：装有windows 10的电脑一台，Microsoft Office 家庭和学生版 2007 excel软件。

1、表格中的黄色区域是评分标准，要求a栏中的学生根据该评分标准进行评分，结果显示在b栏中。

2、选择单元格B2，在单元格中输入[=]，然后单击[插入功能]按钮。

3、下图d出[插入功能]对话框，选择[的[全部]选项或选择类别]；在[选择功能]中选择[查找]功能，然后单击[确定]按钮。

4、d出[函数参数]对话框:将光标移到第一个参数后，直接选择表格中的单元格A2；将光标移到第二个参数后面，并在对话框中输入[{0，60，80}]。将光标移到第三个参数的后面，在对话框中输入[{“差”、“好”、“优秀”}]，并在设置完所有参数后单击“[确定”按钮。

5、回到工作表，单元格B2显示评分结果。

6、选择单元格B2，并拖动鼠标左键以找出剩余的评分结果。

我们经常使用电脑上的excel进行数据的处理，特别是教师经常会用来统计分数，那么我们怎么在excel表格上快速计算多科总成绩呢，接下来就让小编来教你们吧。

具体如下：

1. 第一步，在电脑上打开我们需要计算的excel表格。

2.第二步，在总成绩单元格中输入=B3+C3+D3+E3，即所有科目所在单元格相加。

3. 第三步，点击空白单元格，我们可以看到此时总成绩已经算出。

4. 第四步，鼠标点击总成绩右下角下拉，可以得出其他人的总成绩。

5.第二种方法，第一步，鼠标点击要计算的第一个数据单元格。

6. 第二步，键盘按住shift键不要松开，鼠标拖至要计算的最后一个数据所在单元格。

7. 第三步，键盘按住alt+=键，我们就可以得出总成绩。

以上就是小编为大家介绍的怎么在excel表格上快速计算多科总成绩的方法。

使用条件格式“突出显示单元格规则”，介于60-89.9的，填充颜色选择蓝色，字体加粗。

软件工具：Excel 2013

1、选中表格，开始功能区中点击“条件格式”，选择“突出显示单元格规则”，选择“介于”。

2、为介于以下值 之间的单元格设置格式中，输入60-89.99，设置为中选择自定义格式。

3、点击字体标签页，字形中选择“加粗”；点击填充标签页，背景色中选择蓝色；然后点击确定。

4、返回到介于对话框，点击确定。这时如果修改表格中的数据，仍会适合用于条件格式。

---