要求是:1.我是excel菜鸟,最好是能帮忙做一个考试系统,传给我。
2.做一个能出题,评分和到一定时间停止的考试软件。
3.或者来个详细分解图,最好一步步详细的教我怎么做。
要求是:1.我是excel菜鸟,最好是能帮忙做一个考试系统,传给我。
2.做一个能出题,评分和到一定时间停止的考试软件。
3.或者来个详细分解图,最好一步步详细的教我怎么做。
参考文章:用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)。