•  广告位
  •  
  •  最新新闻列表
  •  
  •  图片新闻
  •  
 > 头条新闻 >

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

文章发布时间:2015/5/28 2:00:11



功勋百年:习仲勋人物关系图谱番薯的营养价值和食用方法孩子的错都是大人的错胡锦涛和习近平亲切握手一二华丽丽的Excel快捷键(往期精选)

ETtoday國際新聞ETtoda...这27张炎热的照片表示,夏天的热...战略性和战术性资产的配置艺术我想喜欢你,如此而已,情真意切披肩式棒针编织女士毛衣外套鑻辫鏂拌瘝姹囦笌甯哥敤璇嶆眹鐨勭炕璇?K)谈律诗的对仗05浜斿勾绾т笅鏈熻秴甯哥彮绔熻禌鏁板锛堟暀甯堢増锛?世界艺术大师素描作品鉴赏背诵英语课文五步法2011最新励志名言警句格言大全命理技法--官运篇--坚决抵制在线狗屁解释鍚磋涔?绡嗕功涓庢湵鍏冩€濅功閫愬瓧鎵弿光彩照人的美女【图】为什么作家多自杀?莫让你的手机泄密!手机用户必看!老年痴呆症的经筋调理法、脑中风的症状-如何预防鼓励自己坚强的句子免费学习英文的网站?22句超犀利的一句话搞笑说说管住“一把手”促反腐法治化抹一点甜酱或辣酱或甜辣酱,根据自己的喜好落实十八届四中全会大家谈【传统文化】名家名花名诗欣赏戳脚精趟

什么样的小说可以称为神作?唱进你心扉的缠绵情歌100首美死了,你见过吗?戳脚精趟

评分和记录保存——用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 保护工作表


时常为一片花的盛开而惊讶,欣喜一春;时常为一个等待而知风雨,感悟至深。因为等待,多少欣喜。因为等待,才会懂得;因为等待,我恋上流年,开始回味曾经的岁月。 多少没有目的等待,错过了归去的时刻。在人生的河流中,其实每个人都在等待,等待花开,等待花谢,等待缘来,等待缘往。因为一些信念,长期坚守,不觉间,想回望,童年,青春,无梦的夜晚,坐在寂静的天空下,看繁星点点,真想此时用记忆的笔绘下此时之景。而

时常为一片花的盛开而惊讶,欣喜一春;时常为一个等待而知风雨,感悟至深。因为等待,多少欣喜。因为等待,才会懂得;因为等待,我恋上流年,开始回味曾经的岁月。 多少没有目的等待,错过了归去的时刻。在人生的河流中,其实每个人都在等待,等待花开,等待花谢,等待缘来,等待缘往。因为一些信念,长期坚守,不觉间,想回望,童年,青春,无梦的夜晚,坐在寂静的天空下,看繁星点点,真想此时用记忆的笔绘下此时之景。而



不存在相应的目录