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

《使用宏在EXCEL中完成自动批改单选练习.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、个人收集整理勿做商业用途使用宏在EXＣEL中完成自动批改单选练习界面如下图：批改后的效果,如图:个人收集整理勿做商业用途ＰｒiｖateＳubCoｍmandButｔon１＿Click()＇Dimi，　ｊ,ｋAｓIntegerIｆ　Rａnge（"d８＂）="正确答案是："ＴheｎMsｇBｏx　＂你涉嫌做弊,要全部重做！!!"Ｒange("h3")　=""　　Rangｅ(＂j3")="＂'DiｍｉＡsIntｅgerＦｏri=1　Tｏ1２2４　Ｉｆ　Ｒａｎge（＂a＂&　i）＝"答案是"ThenRangｅ（＂b＂&i)=　"＂　Ranｇe("c"＆　ｉ

2、)=＂"Range（"Ｄ＂＆ｉ)=　""Rangｅ(＂Ｅ＂　&ｉ)＝""　　EndIｆNｅxｔGoTo100ＥlseＥnｄＩf　　'Ranｇe("B8").Select　'‘　ActiveCeｌl.ＦoｒmulaR1C1　="c"　'WithＡctｉveＣell．Chaｒacｔers(Starｔ:=1，Lｅｎgtｈ:＝1)．Ｆｏnt　　　'．Ｎame＝"TｉｍesNｅwRｏｍan"　　　'　.ＦontStyle＝　"常规"　＇.Siｚｅ=12　'．Strikethｒｏｕgh＝Fａlｓe　　'.Superscript=　Fａlsｅ　　＇　.Sub

3、ｓcｒｉpt=Faｌse　'.OutlinｅFont=False　　'　　.Shａdow=False个人收集整理勿做商业用途　　　＇　.Ｕnderｌine=　ｘlUnｄｅrliｎeStyleＮone　'.ColorIndex　=ｘlＡｕtomatic　'　　Eｎd　Witｈ'　MsｇBoｘRａnge("a"&11)　＇Foｒi=　1　Ｔｏ122４　　　　　'IｆRａnge("ｃ"　&　i）　＝"√＂ThｅnRange（"q＂＆　i)　=　"C"　'Nexｔ　　Ｆｏri=1Tｏ122４＇IfRａｎｇｅ（"a"&i）=＂答案是"ThｅｎRange（

4、＂Ｂ"＆i）　=　＂"If　Rａngｅ（"a＂&i)="答案是＂　Ｔｈeｎ　'''＇'''＇'＇＇''＇'＇'''＇'''''''''＇＇'＇＇＇＇'''''＇'''＇'＇''＇'＇''＇''''＇＇＇＇'''　IfRaｎge(＂ｂ"　&i)　="a"ＴｈenRａnge("b"　&i）=　＂A"　IfRange("b"＆ｉ)=　"b"ThｅnRangｅ(＂b"　＆i）　="Ｂ"　If　Range("b＂&i)＝"c"ThｅnRange("ｂ"&i)=＂C"　　If　Ranｇｅ("b"&ｉ)=＂ｄ"TheｎRanｇe(＂b"&i）=　＂D"　　　

5、　'''＇''＇'＇'''''''＇'''''''＇＇''＇'＇''＇'''''''''''''＇'＇'''＇＇'''''''＇''''''　　If　Ｒange("b"&ｉ)=Ｒaｎｇｅ("q"＆ｉ)　TｈｅnＲangｅ("c"　＆　i）=　＂√"　j=j+　１ElsｅRanｇｅ（"Ｃ＂&i)="╳"　k=k　+1　EndIf　　个人收集整理勿做商业用途Raｎge("D"　＆ｉ)　=　＂正确答案是："　　Rangｅ("E"&i)=Ranｇe("q＂&i)　　ＥndＩf　Ｎｅxt　　　Rａnｇe（"h３")="你做对了"＆j　&　＂道＂　　　Rａ

6、ngｅ（"j3")=　"你得了"　&Int(ｊ*(１00／3１5))&　"分"Raｎge("a1").Select　　　MsgBｏx"完成批改,可以查看成绩,并请修改错误!＂10０　　　　　Ranｇe(＂a8").ＳeleｃtＥｎdSubPｒivateＳubCoｍｍaｎｄＢutton２＿Click()　　Ｒaｎge（＂ｈ３＂）=＂"　　　Ｒange（＂j3＂)＝""Ｄim　iAsIntｅｇerFori=1To1224　IｆRange("a"&i)="答案是"ThenRａngｅ（"ｂ"&i）＝""　Range("c＂&i)＝＂"Ranｇe("D＂

7、　&i)=""　Raｎge("Ｅ＂&i)="＂　　EndＩf　　　ＮｅｘtMsgＢｏｘ＂完成清除,可以重新开始了!"　　Ｒａngｅ(＂a8").SelecｔEndＳubPrivaｔeSｕｂCoｍｍandButtｏｎ3_Clicｋ()Raｎｇe("h3")＝"＂个人收集整理勿做商业用途　　　　Rａnge("j3")="＂Dim　iAｓIｎtegｅrＦoｒi＝1To1224　IfＲange("a"　&i)=＂答案是"　Then'Rａnge("b"&ｉ)=＂"　'Raｎge("c＂&i)=""Range（"D＂&i）=""　Range("Ｅ"&　i)

8、　=＂"　　EndIf　　Nｅxt　MsgBｏx　"完成清除，可以重新开始了!"　　　　　Rangｅ(＂ａ8"）.SelecｔEｎdSubPｒivat