利用Excel制作机读考试卷.doc

利用Excel制作机读试卷法律法规知识学习是“业务建设年”活动的一项重要内容，业务学习考试中的出题、评分、印卷等一直是影响考试效率的问题，利用Excel的一些功能，即可制作机读考试卷不仅实现机读考试，也能在一定程度上辅助学习，提高学习兴趣和效率机读试卷的题型主要有：判断题，填空题，单选题，多选题，具体的制作过程如下：1、新建Excel工作簿，在Sheet1工作表的Ａ1输入“序号”、Ａ2输入“题目”、Ａ3输入“答案”在A2输入公式=ROW()-1&"."，在D2输入=IF(C2="","",RAND())，选中A2:D2拖动其填充柄向下复制，具体复制多少根据需要，如果以后需要还可继续复制将Sheet1重命名为“判断题”，按住Ctrl键拖动工作表标签复制出三份，分别重命名为填空题、单选题和多选题，这样四种题型的题库就建立了2、建立“试卷”工作表表打开新工作表(Sheet2)，将其命名为“试卷”在试卷工作表上制作“出题按钮”，插入→自选图形/基本形状→棱台，在A1单元格中画一个按钮，在名称框中输入“出题按钮”按回车，把它命名为“出题按钮”再右击此按钮选择“编辑文字”，在按钮上输入“出题”2字。

同样，在B1单元格再画一个按钮，把它命名为“评分按钮”， 编辑文字“评分”在B1单元格输入XX考试卷；在B2单元格输入：“考号”这样试卷工作表的表头就建成了3、依次制作四种题型题目在A4输入“一、判断题”，共20题，每题0.5分”　在A5输入公式=INDIRECT("判断题!R"&ROW()-3&"C"&COLUMN(),0)，选中A5复制，再选中A5:C24进行粘贴在E5单元格输入公式=IF(D5=C5,0.5,0)，拖动复制到E24在A25输入“二、填空题,共20题，每题1分”在A26输入公式=INDIRECT("填空题!R"&ROW()-24&"C"&COLUMN(),0)并复制到A26:C45在E26单元格输入公式=IF(D26=C26,1,0)，拖动复制到E45在A46输入“三、单选题,共30题，每题1分”在A47输入公式=INDIRECT("单选题!R"&ROW()-76&"C"&COLUMN(),0)并复制到A47:C76在E47单元格输入公式=IF(D47=C47,1,0)，拖动复制到E76在A77输入“四、多选题,共20题，每题2分”在A78输入公式=INDIRECT("多选题!R"&ROW()-78&"C"&COLUMN(),0)并复制到A78:C97。

在E78单元格输入公式=IF(D78=C78,2,0)，拖动复制到E974、答案区设置选中D5:D24单击“数据/有效性”，在“允许”中选择“序列”，在“来源”中输入“√,×”，切换到“出错警告”选项卡，输入错误信息“为只能输入√,×”选择样式为“停止”，确定，完成设置选中D26:D45单击“数据/有效性”，在“允许”中选择“序列”，在“来源”中，点击“来源”右边按钮，然后选择C26:C45应取消“提供下拉箭头”，否则，点击下拉箭头将看到所有的答案切换到“出错警告”选项卡，输入错误信息为只能输入“与标准答案不匹配”选择样式为“停止”，确定，完成设置同样为单选题、多选题设置数据有效性，只是来源要分别换成“A,B,C,D” AC,AD,AB,BC,BD,CD,ABC,ABD,ACD,BCD,ABCD”出错警告”也要做相应修改5、考号验证打开新工作表(Sheet3)，重命名为“考生名单”工作表，在A、B、C列分别输入序号、考号、姓名，选中B列在名称框中输入“考号”，回车确定把B列命名为考号回到“试卷”工作表选中D2单格，单击“数据/有效性”，在“允许”中选择“系列”，取消“提供下拉箭头”复选项，在“来源”中输入=INDIRECT("考号")。

切换到“出错警告”选项卡，输入错误信息为“考号不正确，请重新输入”，选中“输入无效数据时显示警告”，并设置样式为“停止”在F3单元格输入公式=IF(D2="","",VLOOKUP(D2,考生名单!B:C,2,FALSE))这样输入考号按回车后则自动显示姓名6、随机抽题右击“出题”按钮，选择“指定宏”，在弹出窗口中，输入宏名为“出题”，单击“新建”按钮，编辑如下代码:Sub 出题()If Range("D2").Value = 0 Then提示 = MsgBox("请先输入考号")GoTo 重来End IfSheets("判断题").Range("A:D").Sort Key1:=Sheets("判断题").Range("D2"), order1:=xlAscending, Header:=xlGuessSheets("填空题").Range("A:D").Sort Key1:=Sheets("填空题").Range("D2"), order1:=xlAscending, Header:=xlGuessSheets("单选题").Range("A:D").Sort Key1:=Sheets("单选题").Range("D2"), order1:=xlAscending, Header:=xlGuessSheets("多选题").Range("A:D").Sort Key1:=Sheets("多选题").Range("D2"), order1:=xlAscending, Header:=xlGuessColumns("B:B").Rows.AutoFitRange("D5").SelectActiveSheet.Shapes("出题按钮").Visible = FalseActiveSheet.Shapes("评分按钮").Visible = True重来:End Sub试卷将实现自动随机抽题。

7、成绩记录为了方便查看以往的学习情况和考试成绩，建立一成绩记录表新建一个工作表（Sheet4）重命名为“成绩记录”工作表在A2输入公式=NOW()，并选中A列右击从“设置单元格格式”中设置为日期格式以显示当前时间B2、C2分别输入=试卷!D2和=试卷!F2以显示相应数据D2输入公式=SUM(E2:H2)对后面四个得分进行合计，E2、F2、G2、H2则分别输入公式=SUM(试卷!E5:E24)、=SUM(试卷!E26:E45)、=SUM(试卷!E47:E76)、=SUM(试卷!E78:E97)分别对相应题型得分进行合计成绩记录表将保存所有答题的成绩记录，以便查看8、自动评分右击“评分”按钮，选择“指定宏”，输入宏名“评分”，单击“新建”按钮，编辑如下代码:Sub 评分()Sheets("成绩记录").Rows("3:3").Insert Shift:=xlDownSheets("成绩记录").Rows("2:2").CopySheets("成绩记录").Range("A3").PasteSpecial Paste:=xlPasteValuesMsgBox "得分 = 最终得分" & Sheets("成绩记录").Range("D2").Value & "其中:判断题" & Sheets("成绩记录").Range("E2").Value & "、填空题" & Sheets("成绩记录").Range("F2").Value & "、单选题" & Sheets("成绩记录").Range("G2").Value & "、多选题" & Sheets("成绩记录").Range("H2").Value&, , "评分结果"Range("D2,D5:D24,D26:D45,D47:D76,D78:D97").ClearContentsRows("3:97").RowHeight = 0ActiveSheet.Shapes("出题按钮").Visible = TrueActiveSheet.Shapes("评分按钮").Visible = FalseActiveWorkbook.SaveEnd Sub平时练习用，如上设置就可以了，考试时，一般要限制答题的时间，通过编辑宏可设置答题时间：　　在Sub 出题()下的“重来”后加一句：Application.OnTime Now + TimeValue("01:00:00"), "评分"　　在Sub 评分()下，最后一句End Sub　前加一句：MsgBox "时间到！"9、卷面设置选中合适的单元格，单击“窗口/冻结空格”以始终显示试卷的标题、考号和按钮。

右击C、E列选择隐藏为答题区以外单元格设置填充色以示区别　选中答题区的单元格，右击选择“设置单元格格式”，取消填充色，在“保护”选项卡中单击取消“锁定”选项然后单击“工具/保护/保护工作表”，在中间“允许此工作表所有用户进行”列表中只选中“选定未锁定单元格”和“设置行格式”两个选项，输入密码，单击确定把工作表保护起来，这样除答题区以外的单元格就不能输入和改动了类似的方法设置保护工作簿，把工作簿也保护起来保存文件为“机读试卷”10、隐藏工作表把除试卷外的其他工作表隐藏起来右击工作表左下角的命名区，点击“查看代码”打开“Visual Basic编辑器”，在弹出窗口左侧选中要隐藏的工作表名，如:Sheet1(判断题)，在属性窗口中把Visible项的值设置为0-xlsheetHidden即可隐藏该工作表，重复这一步把除试卷外的其他工作表全部隐藏为防止他人修改，可右击VBAProject(机读考试，选择“VBAProject属性”，在“保护”选项卡中选中“查看时锁定工程”，并输入密码，保存文档退出12、输入资料直接在单选题、多选题、判断题、填空题工作表中输入试题和答案即可，也可以在其他Excel工作表把试题和答案做好，通过复制、粘贴到相应的试题工作表中。

按Alt+回车键换行，用空格进行水平定位答案输入时注意不要有多余字符，否则无法正确评分 　13、使用打开“机读试卷”就是一张“试卷”工作表，先输入考号回车，正确的话就显示姓名否则会要求你重输单击出题按钮即可显示题目，同时出题按钮会变成评分按钮考生可在D列选中相应单元格直接输入答案或单击单元格后的下拉按钮从列表中选择输入题目做完后，单击“评分”按钮即可显示最后得分，确定后自动保存，并回复到最初状态辅助学习使用时，可取消隐藏E列，以便随时看到得分情况，还可将填空题答题区的数据有效性设置的“提供下拉箭头”选上，以供答填空题参考运行时出现“安全性提示”时，可将“安全性”，设置为“中”再次打开时，选择“启用宏”即可。