参考文章：用Excel建立模拟考试系统(上) ，用Excel建立模拟考试系统(中)

　　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单击“窗口/冻结空格”以始终显示1:3行的标题和按钮。右击C、E列选择隐藏。为答题区以外单元格设置填充色以示区别，把评分按钮重叠到出题按钮上(如图1)。

图1

选中D5:D34右击选择“设置单元格格式”，在“保护”选项卡中单击取消“锁定”选项，对于同样需要添写的D2,D36:D75,D77:D106区也同样取消锁定设置。然后单击“工具/保护/保护工作表”，在中间“允许此工作表所有用户进行”列表中只选中“选定未锁定单元格”和“设置行格式”两个选项，输入密码(如图2)，单击确定把工作表保护起来，这样考生就无法修改试题等相应单元格了。单击评分以隐藏所有题目，同时显示出题按钮，把文件保存为“模拟考试.xls”，退出。

图2

　　系统维护

　　1.资料输入

　　直接在前面做好的单选题、多选题、判断题工作表中输入题目和答案即可，按Alt+回车键换行，用空格进行水平定位。答案输入时注意不要有多余字符，特别是多选题一定要按ABCD的顺序输入多选项，否则无法正确评分，建议参照一4步操作对C列单元格设置有效性。若以后还想用到当前的题目顺序可在最后面增加一列(E列)填充序列号，需要时按此列排序即可。在“考生记录”工作表中输入姓名和准考证号，这可以直接从相关工作表中复制过来。

　　2.隐藏工作表

　　把除试卷外的其他工作表隐藏起来以免考生看到。单击“工具/宏/Visual Basic编辑器”，在弹出窗口左侧选中要隐藏的工作表名，如:Sheet4(判断题)，在属性窗口中把Visible项的值设置为0-xlsheetHidden(如图3)即可隐藏该工作表，重复这一步把除试卷外的其他工作表全部隐藏。以后如需显示只要按这操作把Visible改回-1-xlsheetVisible即可。若看不到属性窗口可按F4键显示。

图3

　为防止学生修改，还得右击VBAProject(模拟考试.xls)选择“VBAProject 属性”，在“保护”选项卡中选中“查看时锁定工程”，并输入密码(如图4)，确定保存文档退出。这样以后没有密码就别想修改这些内容了。

图4

　　如何考试

　　打开“模拟考试.xls”就只有一张“试卷”工作表，先输入准考证号回车确认，正确的话就显示姓名否则会要求你重输。单击出题按钮即可显示题目，同时出题按钮会变成评分按钮。考生可在D列选中相应单元格直接输入答案或单击单元格后的下拉按钮从列表中选择输入(如图5)。题目做完后，单击“评分”按钮即可显示最后得分，确定后自动保存，并回复到最初状态。

图5

　　小提示

　　叩开Excel的安全门

　　按照上面方法制作的模拟考试系统在运行时有一个问题，Excel 2003的默认设置会把宏的安全性设置为高，表现为运行时出现“安全性提示”对话框。解决方法是，打开Excel文档，依次单击“工具→宏→安全性”，选择“中”并“确定”，关闭并重新打开Excel文档后，选择“启用宏”即可。

　　系统修改

　　在电脑上能直接处理的题型就只有这三种，所以能改的也只有各种题的数量而已。这只要三步即可:

　　1.撤消工作表保护，在相应题目中选中N行，右击选择“复制”再选择“插入复制单元格”，如果要减少则右击选择“删除”就OK。

　　2.选中B:D列右击选择“取消隐藏”，按一.3中介绍的规则修改复制二、三大题各题目区域的公式。然后重新隐藏C列和保护工作表。分数记录中的公式会自动调整可不必修改。

　　3.修改一.8评分的宏代码中最后

　　Range("D2,D5:D34,D36:D75,D77:D106").ClearContents

　　Rows("3:106").RowHeight = 0

　　中的区域范围即可。

　　本文中的两个宏代码其实最主要部分就只是排序、设置行高、插入行、复制、选择性粘贴等基本操作而已，如果你不喜欢编代码，那么大可使用录制宏直接录制相应操作，基本的出题和评分功能都同样可以实现，只是会少一些提示窗口和按钮限制而已。