使用宏在XCEL中完成自动批改单选练习.docVIP

使用宏在EXCEL中完成自动批改单选练习 界面如下图： 批改后的效果，如图： Private Sub CommandButton1_Click() Dim i, j, k As Integer If Range(d8) = 正确答案是： Then MsgBox 你涉嫌做弊，要全部重做！！！ Range(h3) = Range(j3) = Dim i As Integer For i = 1 To 1224 If Range(a i) = 答案是 Then Range(b i) = Range(c i) = Range(D i) = Range(E i) = End If Next GoTo 100 Else End If Range(B8).Select ‘ ActiveCell.FormulaR1C1 = c With ActiveCell.Characters(Start:=1, Length:=1).Font .Name = Times New Roman .FontStyle = 常规 .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With MsgBox Range(a 11) For i = 1 To 1224 If Range(c i) = √ Then Range(q i) = C Next For i = 1 To 1224 If Range(a i) = 答案是 Then Range(B i) = If Range(a i) = 答案是 Then If Range(b i) = a Then Range(b i) = A If Range(b i) = b Then Range(b i) = B If Range(b i) = c Then Range(b i) = C If Range(b i) = d Then Range(b i) = D If Range(b i) = Range(q i) Then Range(c i) = √ j = j + 1 Else Range(C i) = ╳ k = k + 1 End If Range(D i) = 正确答案是： Range(E i) = Range(q i) End If Next Range(h3) = 你做对了 j 道 Range(j3) = 你得了 Int(j * (100 / 315)) 分 Range(a1).Select MsgBox 完成批改，可以查看成绩，并请修改错误！ 100 Range(a8).Select End Sub Private Sub CommandButton2_Click() Range(h3) = Range(j3) = Dim i As Integer For i = 1 To 1224 If Range(a i) = 答案是 Then Range(b i) = Range(c i) = Range(D i) = Range(E i) = End If Next MsgBox 完成清除，可以重新开始了！ Range(a8).Select End Sub Private Sub CommandButton3_Click() Range(h3) = Range(j3) = Di