黄刺鱼烧豆腐的做法:评分和记录保存——用Excel2007轻松制作考试系统(九)
来源:百度文库 编辑:九乡新闻网 时间:2024/05/21 23:34:38
评分和记录保存——用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 保护工作表
① 返回到“ 试卷” 工作表 ,右击“ 评分” 按钮,选择“ 指定宏” 快捷菜单命令,然后在对话框中输进宏名“ 评分” ,再单击“ 新建” 按钮。② 在弹出的代码窗口中输进如下代码:
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 保护工作表
评分和记录保存——用Excel2007轻松制作考试系统(九)
验证考生准考证号—用Excel2007轻松制作考试系统
Excel 2007 常用函数—用Excel 2007 轻松制作考试系统(二)-1
函数的输、嵌套—用Excel 2007 轻松制作考试系统(三)
用Excel 2007 轻松制作考试系统
Excel 2007 公式和函数基础-用Excel 2007 轻松制作考试系...
Excel2007数据透视表和透视图的制作
随风吧 - 制图教程 - 用PS保存记录
追问生产力和唯物史观——系统历史观导论-论文-考试吧(一)
在Excel2007中快速删除重复记录
用ps和flash轻松制作人物眨眼动画
介绍美国大学预修课程AP考试作用、时间和评分
Excel2007“监视窗口”轻松监测数据变化
Excel2007 使编写公式更轻松
excel2007
从单系统到多系统:操作系统安装光盘制作方法、制作技巧和制作工具1(下载)集锦
驾照考试技巧和知识点轻松拿个100分(总结的一些知识点)
教你轻松清除系统垃圾文件(适用于XP和win7)
WIN7系统安装的福音——【Win 7启动安装U盘】的制作和使用方法
春来食甜饼——砂糖盘饼(轻松制作早餐饼3)
PS初学者实例教程——轻松制作林中阳光效果
驾照考试技巧和知识点轻松100分!
驾照考试技巧和知识点轻松100分!
Excel2007数据透视表和透视图