欢迎来到天天文库
浏览记录
ID:62039480
大小:587.50 KB
页数:7页
时间:2021-04-16
《使用宏在EXCEL中完成自动批改单选练习.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、个人收集整理勿做商业用途使用宏在EXCEL中完成自动批改单选练习界面如下图:批改后的效果,如图:个人收集整理勿做商业用途PrivateSubCommandButton1_Click()'Dimi, j,kAsIntegerIf Range("d8")="正确答案是:"ThenMsgBox "你涉嫌做弊,要全部重做!!!"Range("h3") ="" Range("j3")=""'DimiAsIntegerFori=1 To1224 If Range("a"& i)="答案是"ThenRange("b"&i)= "" Range("c"& i
2、)=""Range("D"&i)= ""Range("E" &i)="" EndIfNextGoTo100ElseEndIf 'Range("B8").Select '‘ ActiveCell.FormulaR1C1 ="c" 'WithActiveCell.Characters(Start:=1,Length:=1).Font '.Name="TimesNewRoman" ' .FontStyle= "常规" '.Size=12 '.Strikethrough=False '.Superscript= False ' .Sub
3、script=False '.OutlineFont=False ' .Shadow=False个人收集整理勿做商业用途 ' .Underline= xlUnderlineStyleNone '.ColorIndex =xlAutomatic ' End With' MsgBoxRange("a"&11) 'Fori= 1 To1224 'IfRange("c" & i) ="√"ThenRange("q"& i) = "C" 'Next Fori=1To1224'IfRange("a"&i)="答案是"ThenRange(
4、"B"&i) = ""If Range("a"&i)="答案是" Then ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' IfRange("b" &i) ="a"ThenRange("b" &i)= "A" IfRange("b"&i)= "b"ThenRange("b" &i) ="B" If Range("b"&i)="c"ThenRange("b"&i)="C" If Range("b"&i)="d"ThenRange("b"&i)= "D"
5、 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If Range("b"&i)=Range("q"&i) ThenRange("c" & i)= "√" j=j+ 1ElseRange("C"&i)="╳" k=k +1 EndIf 个人收集整理勿做商业用途Range("D" &i) = "正确答案是:" Range("E"&i)=Range("q"&i) EndIf Next Range("h3")="你做对了"&j & "道" Ra
6、nge("j3")= "你得了" &Int(j*(100/315))& "分"Range("a1").Select MsgBox"完成批改,可以查看成绩,并请修改错误!"100 Range("a8").SelectEndSubPrivateSubCommandButton2_Click() Range("h3")="" Range("j3")=""Dim iAsIntegerFori=1To1224 IfRange("a"&i)="答案是"ThenRange("b"&i)="" Range("c"&i)=""Range("D"
7、 &i)="" Range("E"&i)="" EndIf NextMsgBox"完成清除,可以重新开始了!" Range("a8").SelectEndSubPrivateSubCommandButton3_Click()Range("h3")=""个人收集整理勿做商业用途 Range("j3")=""Dim iAsIntegerFori=1To1224 IfRange("a" &i)="答案是" Then'Range("b"&i)="" 'Range("c"&i)=""Range("D"&i)="" Range("E"& i)
8、 ="" EndIf Next MsgBox "完成清除,可以重新开始了!" Range("a8").SelectEndSubPrivat
此文档下载收益归作者所有