Sub出题()
IfRange("D2").Value=0Then
提示=MsgBox("请先输入准考证号") GoTo重来
EndIf
说明:如果D2为空则弹出提示要求输入准考证号并直接跳到后面的“重来”处。
Sheets("单选题").Range("A:D").SortKey1:=Sheets("单选题").Range("D2"),Order1:=xlAscending,Header:=xlGuess
Sheets("多选题").Range("A:D").SortKey1:=Sheets("多选题").Range("D2"),Order1:=xlAscending,Header:=xlGuess
Sheets("判断题").Range("A:D").SortKey1:=Sheets("判断题").Range("D2"),Order1:=xlAscending,Header:=xlGuess
说明:以上三行分别对单选题、多选题和判断题工作表的A:D区域按D列随机数按升序排序。
Columns("B:B").Rows.AutoFit
说明:对B列设置最适合行高,以完整显示题目。 Range("D5").Select
说明:定位到D5以便输入答案
ActiveSheet.Shapes("出题按钮").Visible=False 说明:隐藏出题按钮以防重复选题。
ActiveSheet.Shapes("评分按钮").Visible=True 说明:显示评分按钮。
重来: EndSub
Sub评分()
Sheets("成绩记录").Rows("3:3").InsertShift:=xlDown
说明:在“成绩记录”工作表第3行前插入一行。
Sheets("成绩记录").Rows("2:2").Copy
说明:复制成绩记录工作表第2行。
Sheets("成绩记录").Range("A3").PasteSpecial Paste:=xlPasteValues