|
验证考生准考证号——用Excel2007轻松制作考试系统（八）
文章来源：互联网 点击数：59 更新时间：2008-8-4 【字体：小 大】 --------------------------------------------------------------------------------
5. 验证考生准考证号
① 建一个“ 考生名单” 工作表。在A 、B 、C 列分别输入序号、准考证号、考生姓名，其中序号和准考证号的输入可采用序列填充的方法完成。② 选中B 列，在名称框中输入“ 考号” ，回车确定，把B 列命名为准考证号，如图5 所示。 图5 ③ 回到“ 试卷” 工作表 中，选中要输入准考证号的D2 单格，执行菜单命令“ 数据/ 有效性” ，在“ 设置” 选项卡的“ 允许” 下拉列表中选择“ 序列” ，取消“ 提供下拉箭头” 复选项，在“ 来源” 文本框中输入公式“ = INDIRECT(" 考号") ” 。切换到“ 出错警告” 选项卡，选中“ 输入无效数据时显示警告” 复选框，并输入“ 错误信息” 为“ 你输入的准考证号并不存在，请重新输入” ，并设置样式为“ 停止” 。最后单击“ 确定” 按钮。④ 在F3 单元格中输入公式“ = IF(D2="","",VLOOKUP(D2, 考生名单! B:C,2,FALSE)) ” ，这个公式会在输入准考证号后自动显示考生姓名。6. 实现随机抽题 ① 右击“ 出题” 按钮，单击“ 指定宏” 快捷菜单命令（若指向按钮中间右击，则不能指定宏），在弹出的对话框中输入宏名为“ 出题” ，如图6所示。 图6 指定宏 ② 单击对话框右侧的“ 新建” 按钮，在弹出的代码编辑窗口中输入如图7 所示的代码。 图7 输入代码 Sub 出题() If Range("D2").Value = 0 Then 提示= MsgBox(" 请先输入准考证号") GoTo 重来 End If 说明：如果D2 为空则弹出提示要求输入准考证号并直接跳到后面的“ 重来” 处。 Sheets(" 单选题"). Range("A:D").Sort Key1:=Sheets(" 单选题"). Range("D2"), Order1:=xlAscending,Header:=xlGuess Sheets(" 多选题"). Range("A:D").Sort Key1:=Sheets(" 多选题"). Range("D2"), Order1:=xlAscending,Header:=xlGuess Sheets(" 判断题"). Range("A:D").Sort Key1:=Sheets(" 判断题"). Range("D2"), Order1:=xlAscending 本文来至E学院 原文地址：http://www./OfficeSoftware/Excel/200808/45638.html 本文来至E学院 原文地址：http://www./OfficeSoftware/Excel/200808/45638.html |
|
|
