用excel制作模拟考试系统

项,在“来源”中输入“A,B,C,D”,不含引号且其中逗号为半角格式(如图7)。切换到“出错警告”选项卡,输入错误信息为“只能输入A、B、C、D中的一项,其他任何符号或空格均为非法。”,选中“输入无效数据时显示警告”复选项,选择样式为“停止”(如图8),确定完成设置。Р图7Р图8Р同样对多选题答题区D36:D75,判断题答题区D77:D106设置数据有效性,只是“来源”要分别换成“A,B,C,D,B,AC,AD,BC,BD,CD,ABC,ACD,BCD,ABCD”和“正确,错误”。多选题的“出错警告”一定要改成“必须按ABCD的顺序输入多选项,否则无法正确评分”。(如图9到如图11)Р图9Р图10Р图11Р6.准考证号验证Р 选中“试卷”工作表中要输入准考证号的D2单元格,单击“数据/有效性”,在“允许”中选择“系列”,取消“提供下拉箭头”复选项,在“来源”中输入=INDIRECT("考号")(如图12)。切换到“出错警告”选项卡,输入错误信息为“你输入的准考证号并不存在,请重新输入”,选中“输入无效数据时显示警告”,并设置样式为“停止”(如图13)。Р图12Р图13Р在F2单元格输入公式=IF(D2="","",VLOOKUP(D2,考生名单! $B:$C,2,FALSE)),在D2单元格输入准考证号后会自动显示考生姓名。(如图14)Р图14Р7.随机抽题Р右击“出题”按钮,选择“指定宏”,在弹出窗口中,输入宏名为“出题”,位置选择当前工作簿,单击“新建”按钮,复制如下代码粘贴到框内,结果如图15,保存时将文件另存为启用宏的.xlsm格式。РSub 出题()Р If Range("D2").Value = 0 ThenР 提示= MsgBox("请先输入准考证号")Р GoTo 重来Р End IfР '如果D2为空则弹出提示要求输入准考证号并直接跳到后面的"重来:"处。