利用Excel制作机读考试卷

利用 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 拖动复制到 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 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 Header xlGuess Columns B B Rows AutoFit Range D5 Select ActiveSheet Shapes 出题按钮 Visible False ActiveSheet 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 xlDown Sheets 成绩记录 Rows 2 2 Copy Sheets 成绩记录 Range A3 PasteSpecial Paste xlPasteValues MsgBox 得分 最终得分 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 ClearContents Rows 3 97 RowHeight 0 ActiveSheet Shapes 出题按钮 Visible True ActiveSheet Shapes 评分按钮 Visible False ActiveWorkbook Save End 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 使用 打开 机读试卷 就是一张 试卷 工作表 先输入考号回车 正确的话就显示姓名否则会要求你重输 单击出题按钮即可显