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


【OfficeBa论坛】:阅读本文时遇到了什么问题,可以到论坛进行交流!Excel专家邮件:342327115@qq.com(大家在Excel使用中遇到什么问题,可以咨询此邮箱)。

【声明】:以上文章或资料除注明为Office自创或编辑整理外,均为各方收集或网友推荐所得。其中摘录的内容以共享、研究为目的,不存在任何商业考虑。如有任何异议,请与本站联系,本站确认后将立即撤下。谢谢您的支持与理解!


相关评论

我要评论

评论内容