中财网火影忍者忍考184雷主:评分和记录保存——用Excel2007轻松制作考试系统（九）
来源：百度文库 编辑：中财网 时间：2024/04/28 15:14:25
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 所示，单击“ 确定” 按钮退出，这样就把工作表保护起来了，考生就无法修改试题等
本文来至E学院 原文地址：http://www.sql8.net/OfficeSoftware/Excel/200808/45705.html
① 返回到“ 试卷” 工作表 ，右击“ 评分” 按钮，选择“ 指定宏” 快捷菜单命令，然后在对话框中输入宏名“ 评分” ，再单击“ 新建” 按钮。② 在弹出的代码窗口中输入如下代码：
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 所示，单击“ 确定” 按钮退出，这样就把工作表保护起来了，考生就无法修改试题等
本文来至E学院 原文地址：http://www.sql8.net/OfficeSoftware/Excel/200808/45705.html
卓帆考试系统和评分系统怎么用?
网络上要中策这么多号和密码，记录保存在硬盘里不安全，都用同样的用户名和密码，不允许重复，怎么办
《三国志9》如何保存记录
如何保存聊天室的记录
XP 输入法无法保存记录
不保存查询记录怎么办？
泡泡堂???记录保存?掉经验!!!????
实况足球8如何保存记录
access多个记录保存
上网记录保存的路径
CS的喷涂保存记录
我想保存迅雷下载记录
msn无法保存记录怎么办？
baidu 可以为每个知道用户保存多少页提问和回答的记录？
请写一个javabean，功能是保存和读取一个记录集
系统ie保存密码和记录用户名的文件在哪里？
用桐木（轻木）和胶水制作一个结构
EXCEL2007立面怎么加载宏？
我的手机一关机和开机就有SIM错误记录和保存为完成的请问是什么毛病
我用优化大师测试机器性能,为什么我的处理器和内存评分那么低呢?其他都比较不错!
为什么我用WINDOWS优化大师检测我的系统,检测结果显示:显卡和内存评分为非常低
用图画和文字记录动物特征
用什么软件能把电脑里面播放着的声音记录保存下来？
有什么好软件可以记录保存上网用的一些密码