资源描述：
《利用excel制作机读考试卷》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、利用Excel制作机读试卷法律法规知识学习是“业务建设年”活动的一项重要内容，业务学习考试中的出题、评分、印卷等一直是影响考试效率的问题，利用Excel的一些功能，即可制作机读考试卷。不仅实现机读考试，也能在一定程度上辅助学习，提高学习兴趣和效率。机读试卷的题型主要有：判断题，填空题，单选题，多选题，具体的制作过程如下：1、新建Excel工作簿，在Sheet1工作表的Ａ1输入“序号”、Ａ2输入“题目”、Ａ3输入“答案”。在A2输入公式=ROW()-1&"."，在D2输入=IF(C2="","",RAND())，选中A2:D2拖动其填充柄向下复制，
2、具体复制多少根据需要，如果以后需要还可继续复制。将Sheet1重命名为“判断题”，按住Ctrl键拖动工作表标签复制出三份，分别重命名为填空题、单选题和多选题，这样四种题型的题库就建立了。2、建立“试卷”工作表表。打开新工作表(Sheet2)，将其命名为“试卷”。在试卷工作表上制作“出题按钮”，插入→自选图形/基本形状→棱台，在A1单元格中画一个按钮，在名称框中输入“出题按钮”按回车，把它命名为“出题按钮”。再右击此按钮选择“编辑文字”，在按钮上输入“出题”2字。同样，在B1单元格再画一个按钮，把它命名为“评分按钮”，编辑文字“评分”。在B1单元格
3、输入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单元格输
4、入公式=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)，拖动复制到E97。4
5、、答案区设置选中D5:D24单击“数据/有效性”，在“允许”中选择“序列”，在“来源”中输入“√,×”，切换到“出错警告”选项卡，输入错误信息“为只能输入√,×”。选择样式为“停止”，确定，完成设置。选中D26:D45单击“数据/有效性”，在“允许”中选择“序列”，在“来源”中，点击“来源”右边按钮，然后选择C26:C45。（应取消“提供下拉箭头”，否则，点击下拉箭头将看到所有的答案。）切换到“出错警告”选项卡，输入错误信息为只能输入“与标准答案不匹配”。选择样式为“停止”，确定，完成设置。同样为单选题、多选题设置数据有效性，只是来源要分别换成“
6、A,B,C,D”AC,AD,AB,BC,BD,CD,ABC,ABD,ACD,BCD,ABCD”。“出错警告”也要做相应修改。5、考号验证打开新工作表(Sheet3)，重命名为“考生名单”工作表，在A、B、C列分别输入序号、考号、姓名，选中B列在名称框中输入“考号”，回车确定把B列命名为考号。回到“试卷”工作表选中D2单格，单击“数据/有效性”，在“允许”中选择“系列”，取消“提供下拉箭头”复选项，在“来源”中输入=INDIRECT("考号")。切换到“出错警告”选项卡，输入错误信息为“考号不正确，请重新输入”，选中“输入无效数据时显示警告”，并设
7、置样式为“停止”。在F3单元格输入公式=IF(D2="","",VLOOKUP(D2,考生名单!B:C,2,FALSE))。这样输入考号按回车后则自动显示姓名。6、随机抽题右击“出题”按钮，选择“指定宏”，在弹出窗口中，输入宏名为“出题”，单击“新建”按钮，编辑如下代码:Sub出题()IfRange("D2").Value=0Then提示=MsgBox("请先输入考号")GoTo重来EndIfSheets("判断题").Range("A:D").SortKey1:=Sheets("判断题").Range("D2"),order1:=xlAscen
8、ding,Header:=xlGuessSheets("填空题").Range("A:D").SortKey1:=Sheets("填空题
