officeba > 单独文章

---

评分和记录保存——用Excel2007轻松制作考试系统（九）

8. 评分和记录保存
① 返回到“ 试卷” 工作表，右击“ 评分” 按钮，选择“ 指定宏” 快捷菜单命令，然后在对话框中输入宏名“ 评分” ，再单击“ 新建” 按钮。② 在弹出的代码窗口中输入如下代码：
Sub 评分()
Sheets(" 成绩记录"). Rows("3:3").Insert Shift:=xlDown
说明：在“ 成绩记录” 工作表第3 行前插入一行。
Sheets(" 成绩记录"). Rows("2:2").Copy
说明：复制成绩记录工作表第2 行。
Sheets(" 成绩记录"). Range("A3").PasteSpecial 
Paste:=xlPasteValues
说明：以数值方式粘贴到“ 成绩记录” 工作表的A3 单元格。得分= MsgBox(" 最终得分" & Range(" 成绩记录! D2").Value & " 其中: 单选题" & Range(" 成绩记录! E2").Value & " 、多选题" & Range(" 成绩记录! F2").Value &" 、判断题" & Range(" 成绩记录! G2").Value &, , " 评分结果")
说明：弹出信息框显示“ 成绩记录” 工作表的D2 、E2 、F2 、G2 单元格的数据，标题为“ 评分结果” 。
Range("D2,D5:D34,D36:D75,D77:D106").ClearContents
说明：清除“ 试卷” 工作表中输入的内容。
Rows("3:106").RowHeight = 0
说明：设置题目区行高为0 ，以隐藏所有题目。
ActiveSheet.Shapes(" 出题按钮"). Visible = True
ActiveSheet.Shapes(" 评分按钮"). Visible = False
说明：显示出题按钮，隐藏评分按钮。
ActiveWorkbook.Save
保存
End Sub
9. 其他设置
① 在“ 试卷” 工作表中选中A4 单元格，在功能区中打开“ 视图” 选项组，单击“ 冻结空格” 下拉按钮并选择“ 冻结拆分空格” 选项，以始终显示前3 行的标题和按钮。
② 分别右击C 、E 列的列标签，并选择快捷菜单中的“ 隐藏” 命令。③ 将答题区以外的单元格区域设置成某种填充色以示区别，将“ 评分” 按钮重叠到“ 出题” 按钮上。
④ 选中D5:D34 的单元格区域，右击后选择快捷菜单命令“ 设置单元格格式” ，在“ 保护” 选项卡中取消“ 锁定” 复选框的选中状态，对于同样需要填写的D2 ：D34 、D36 ：D75 、D77 ：D106 区域也同样取消“ 锁定” 设置。
⑤ 在功能区中打开“ 审阅” 选项组，选择“ 保护工作表” 选项，弹出该对话框。在其中“ 允许此工作表所有用户进行” 列表中只选中“ 选定未锁定单元格” 和“ 设置行格式” 两个复选框，再输入密码，如图9 所示，单击“ 确定” 按钮退出，这样就把工作表保护起来了，考生就无法修改试题等相应单元格。单击“ 评分” 按钮以隐藏所有题目，同时显示“ 出题” 按钮。


图9    保护工作表
⑥ 保存文件并退出，至此，一个比较实用的考试系统就设计完成了。

声明：欢迎各大网站转载本站文章，还请保留一条能直接指向本站的超级链接，谢谢！

时间:2008-02-16 09:46:09,点击:65824