利用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(判断题!RROW()-3CCOLUMN(),0)，选中A5复制，再选中A5:C24进行粘贴。在E5单元格输入公式=IF(D5=C5,0.5,0)，拖动复制到E24。 在A25输入“二、填空题,共20题，每题1分”。在A26输入公式=INDIRECT(填空题!RROW()-24CCOLUMN(),0)并复制到A26:C45。在E26单元格输入公式=IF(D26=C26,1,0)，拖动复制到E45。 在A46输入“三、单选题,共30题，每题1分”。在A47输入公式=INDIRECT(单选题!RROW()-76CCOLUMN(),0)并复制到A47:C76。在E47单元格输入公式=IF(D47=C47,1,0)，拖动复制到E76。 在A77输入“四、多选题,共20题，每题2分”。在A78输入公式=INDIRECT(多选题!RROW()-78CCOLUMN(),0)并复制到A78:C97。在E78单元格输入公式=IF(D78=C78,2,0)，拖动复制到E97。 4、答案区设置 选中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 If Sheets(判断题).Range(A:D).Sort Key1:=Sheets(判断题).Range(D2), order1:=xlAscending, Header:=xlGuess Sheets(填空题).Range(A:D).Sort Key1:=Sheets(填空题).Range(D2), order