用excel制作模擬考試系統(tǒng)(編輯修改稿)
2025-04-21 06:04 本頁面
【文章內容簡介】 時顯示警告”，并設置樣式為“停止”（如圖13）。圖12圖13在F2單元格輸入公式=IF(D2=,VLOOKUP(D2,考生名單! $B:$C,2,FALSE))，在D2單元格輸入準考證號后會自動顯示考生姓名。（如圖14）圖14右擊“出題”按鈕，選擇“指定宏”，在彈出窗口中，輸入宏名為“出題”，位置選擇當前工作簿，單擊“新建”按鈕，復制如下代碼粘貼到框內，結果如圖15。Sub 出題() If Range(D2).Value = 0 Then 提示 = MsgBox(請先輸入準考證號) GoTo 重來 End If 39。如果D2為空則彈出提示要求輸入準考證號并直接跳到后面的重來:處。 Sheets(單選題).Range(A:D).Sort Key1:=Sheets(單選題).Range(D2), Order1:=xlAscending, Header:=xlGuess Sheets(多選題).Range(A:D).Sort Key1:=Sheets(多選題).Range(D2), Order1:=xlAscending, Header:=xlGuess Sheets(判斷題).Range(A:D).Sort Key1:=Sheets(判斷題).Range(D2), Order1:=xlAscending, Header:=xlGuess 39。這三行分別是對單選、多選和判斷題工作表的A:D區(qū)域按D列隨機數升序排序。 Columns(B:B). 39。對B列設置最適合行高，以完整顯示題目。 Range(D5).Select 39。定位到D5以便輸入答案 (出題按鈕).Visible = False 39。隱藏出題按鈕以防重復選題 (評分按鈕).Visible = True 39。顯示評分按鈕重來: End Sub圖15試卷中的題目總是顯示各題庫最前面的N題，而在此對各題庫按隨機數進行隨機排序后最前面的N題自然是隨機的，也就相當于是隨機抽題了。新建 “成績記錄”工作表(如圖16)，在A2輸入公式=NOW()，并選中A
醫(yī)療健康相關推薦
鄂ICP備17016276號-1