用excel制作模擬考試系統(tǒng)方案(編輯修改稿)
2025-05-23 07:19 本頁面
【文章內(nèi)容簡介】 ,FALSE))，在D2單元格輸入準(zhǔn)考證號(hào)后會(huì)自動(dòng)顯示考生姓名。（如圖14）圖14右擊“出題”按鈕，選擇“指定宏”，在彈出窗口中，輸入宏名為“出題”，位置選擇當(dāng)前工作簿，單擊“新建”按鈕，復(fù)制如下代碼粘貼到框內(nèi)，結(jié)果如圖15。Sub 出題() If Range(D2).Value = 0 Then 提示 = MsgBox(請先輸入準(zhǔn)考證號(hào)) GoTo 重來 End If 39。如果D2為空則彈出提示要求輸入準(zhǔn)考證號(hào)并直接跳到后面的重來:處。 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列隨機(jī)數(shù)升序排序。 Columns(B:B). 39。對B列設(shè)置最適合行高，以完整顯示題目。 Range(D5).Select 39。定位到D5以便輸入答案 (出題按鈕).Visible = False 39。隱藏出題按鈕以防重復(fù)選題 (評(píng)分按鈕).Visible = True 39。顯示評(píng)分按鈕重來: End Sub圖15試卷中的題目總是顯示各題庫最前面的N題，而在此對各題庫按隨機(jī)數(shù)進(jìn)行隨機(jī)排序后最前面的N題自然是隨機(jī)的，也就相當(dāng)于是隨機(jī)抽題了。新建 “成績記錄”工作表(如圖16)，在A2輸入公式=NOW()，并選中A列右擊從“設(shè)置單元格格式”中設(shè)置為日期格式以顯示當(dāng)前時(shí)間。在B2輸入公式=試卷!D2和C2輸入公式=試卷!F2以顯示相應(yīng)數(shù)據(jù)。D2輸入公式=SUM(E2:G2)對后面三個(gè)得分進(jìn)行合計(jì)，EFG2則分別輸入公式=SUM(試卷!E5:E34)、=SUM(試卷!E36:E75)、=SUM(試卷!E77:E106)分別對相應(yīng)題型得分進(jìn)行合計(jì)
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1