用ECEL制作模擬考試系統(tǒng)

1、1. 建立題庫(kù)打開(kāi)Excel 2003，建立“單選題”工作表(如圖1)，在A2輸入公式=ROW()-1 &以自動(dòng)生成序 號(hào)，在D2輸入=IF(C2="","",RAND()，選中A2:D2拖動(dòng)其填充柄向下復(fù)制到其他單元格，大概有幾 百行也就夠了，剩下的需要時(shí)再?gòu)?fù)制。按住Ctrl鍵拖動(dòng)工作表標(biāo)簽復(fù)制出兩份，分別重命名為多選題、判斷題。2. 設(shè)計(jì)試卷建立“試卷”工作表，你可以按需要設(shè)置試卷，并輸入單選題、多選題、判斷題三個(gè)大題目，多選題需注明錯(cuò)、漏、多選均不得分。并留岀相應(yīng)的題目位置，單選題30題(A5:C34)，多選題40(A36:C75)，判斷題

2、 30 題(A77:C106)。用“自選圖形/基本形狀”中的棱臺(tái)畫(huà)一個(gè)按鈕，選中在名稱框中輸入“岀題按鈕”4字回車，把它命名為“出題按鈕”。再右擊此按鈕選擇“添加文字”，在按鈕上輸入“出題”2字。同樣再畫(huà)一個(gè)按鈕，把它命名為“評(píng)分按鈕”，添加文字“評(píng)分”(如圖2)圖23. 顯示題目在 A5輸入公式 INDIRECT(“單選題!R"&R0W()-3&"C"&COLUMN(),0),選中 A5復(fù)制，再選中 A5:C34 進(jìn)行粘貼。同樣在 A36輸入公式INDIRECT(“多選題!R"&ROW()-34&"C&

3、quot;&COLUMN(),0并復(fù)制至U A36:C75,在 A77輸入公式 INDIRECT(“判斷題!R"&ROW()-75&"C"&COLUMN并復(fù)制到 A77:C106。在 E4 單元格輸入公式=IF(D4=C4,1,0)，這公式用來(lái)判斷如果D4中的答案與C4的標(biāo)準(zhǔn)答案一致就得1分否 則為0分。A5的公式表示對(duì)單選題工作表中同列、行數(shù)差3的單元格(A2)的引用，公式中使用了 R1C1格式的單元格編號(hào)，其中3、34、75是由第一題所在的行數(shù)減2得來(lái)。這公式實(shí)現(xiàn)的是絕對(duì)位置引用，即 不管在單選題工作表中進(jìn)行插入、刪除行或排序，

4、A5顯示的始終都是你從單選題 A2中直接看到的內(nèi)容。因此A5:C34、A36:C75、A77:C106三個(gè)區(qū)域?qū)⒎謩e與相應(yīng)題庫(kù)中最前面的30(或40)題的內(nèi)容保持一致。4. 答案限制選中D5:D34單擊“數(shù)據(jù)/有效性”，在“允許”中選擇“系列”，選中“提供下拉箭頭”復(fù)選項(xiàng),在“來(lái)源”中輸入“ A,B,C,D”，不含引號(hào)且其中逗號(hào)為半角格式(如圖1)。切換到“岀錯(cuò)警告”選項(xiàng)卡，輸入錯(cuò)誤信息為“只能輸入 A、B C、D中的一項(xiàng)，其他任何符號(hào)或空格均為非法?！?，選中“輸入無(wú)效數(shù)據(jù)時(shí)顯示警告”復(fù)選項(xiàng)，選擇樣式為“停止”（如圖2），確定完成設(shè)置。同樣對(duì)多選題D36:D75,判斷題D77:D106設(shè)置數(shù)據(jù)

5、有效性，只是“來(lái)源”要分別換成“a,b,c,d,b,ac,ad,bc,bd,cd,abc,acd,bcd,abCd和 “V , X”?！皩珏e(cuò)警告”也要做相應(yīng)修改，特別是多選題一定要說(shuō)明必須按 ABCD的順序輸入多選項(xiàng)，否則無(wú)法正確評(píng)分，若覺(jué)得多選題要輸入這一大串有效性設(shè)置太麻煩，不設(shè)置有效性也是可以，你只要在題目中注明不按順序的不給分不就行了。5. 準(zhǔn)考證號(hào)驗(yàn)證建一個(gè)“考生名單”工作表，在 A、B C列分別輸入序號(hào)、準(zhǔn)考證號(hào)、考生姓名，選中B列在名稱框中輸入“考號(hào)”，回車確定把B列命名為考號(hào)（如圖3）?；氐健霸嚲怼惫ぷ鞅磉x中要輸入準(zhǔn)考證號(hào)的D2單格，單擊“數(shù)據(jù)/有效性”，在“允許”中選擇“系列

6、”，取消“提供下拉箭頭”復(fù)選項(xiàng)， 在“來(lái)源”中輸入INDIRECT（“考號(hào)“）。切換到“岀錯(cuò)警告”選項(xiàng)卡，輸入錯(cuò)誤信息為“你輸入的準(zhǔn) 考證號(hào)并不存在，請(qǐng)重新輸入”，選中“輸入無(wú)效數(shù)據(jù)時(shí)顯示警告”，并設(shè)置樣式為“停止”。在F3單元格輸入公式=IF（D2="","",VLOOKUP（D2,考生名單！B:C,2,FALSE），這公式會(huì)在輸入準(zhǔn)考證號(hào)后自動(dòng)顯示考生姓名?？继?hào)-A準(zhǔn)考證號(hào)A.B.CD p1序號(hào)推誇證號(hào)'姓名亠2120040325'3'26. 隨機(jī)抽題右擊“出題”按鈕，選擇“指定宏”，在彈出窗口中，輸入宏名為“出題”，單擊“新

7、建”按鈕, 編輯如下代碼Sub 出題 ()If Range("D2").Value = 0 Then提示 = MsgBox（" 請(qǐng)先輸入準(zhǔn)考證號(hào) "）GoTo 重來(lái)End If如果D2為空則彈岀提示要求輸入準(zhǔn)考證號(hào)并直接跳到后面的“重來(lái)：”處。Sheets(“ 單選題").Range("A:D").Sort Key1:=Sheets(“單選題").Range("D2"),Order1：=xlAscending,Header:=xlGuess多選題 ").Range("D2&q

8、uot;),Sheets(" 多選題 ").Range("A:D").Sort Key1:=Sheets("Order1:=xlAscending,Header:=xlGuessSheets(" 判斷題 ").Range("A:D").Sort Key1:=Sheets(" 判斷題 ").Range("D2"),Order1:=xlAscending,Header:=xlGuess這三行分別是對(duì)單選、多選和判斷題工作表的A:D區(qū)域按D列隨機(jī)數(shù)升序排序。Columns

9、("B:B").對(duì) B 列設(shè)置最適合行高，以完整顯示題目Range("D5").Select定位到 D5 以便輸入答案(" 出題按鈕 ").Visible = False隱藏出題按鈕以防重復(fù)選題（"評(píng)分按鈕 “）.Visible = True顯示評(píng)分按鈕重來(lái):End Sub試卷中的題目總是顯示各題庫(kù)最前面的 N題，而在此對(duì)各題庫(kù)按隨機(jī)數(shù)進(jìn)行隨機(jī)排序后最前面的N題自然是隨機(jī)的，也就相當(dāng)于是隨機(jī)抽題了。7. 成績(jī)記錄表新建一個(gè)“成績(jī)記錄”工作表（如圖4），在A2輸入公式=NOW（）并選中A列右擊從“設(shè)置單元 格格式”中設(shè)置為日期

10、格式以顯示當(dāng)前時(shí)間。B2、C2分別輸入=試卷!D2和=試卷!F2以顯示相應(yīng)數(shù)據(jù)。D2輸入公式=SUM（E2:G2對(duì)后面三個(gè)得分進(jìn)行合計(jì)，E2、F2、G2則分別輸入公式=SUM試卷!E5:E34）、 =SUM試卷!E36:E75）、=SUM試卷!E77:E106）分別對(duì)相應(yīng)題型得分進(jìn)行合計(jì)。BCDFC8. 評(píng)分和記錄保存右擊“評(píng)分”按鈕，選擇“指定宏”，輸入宏名“評(píng)分”，單擊“新建”按鈕，編輯如下代碼Sub 評(píng)分 ()Sheets(" 成績(jī)記錄 ").Rows("3:3").Insert Shift:=xlDown在成績(jī)記錄工作表第 3 行前插入一行She

11、ets(" 成績(jī)記錄 ").Rows("2:2").Copy復(fù)制成績(jī)記錄工作表第 2 行Sheets(" 成績(jī)記錄 ").Range("A3").PasteSpecial Paste:=xlPasteValues以數(shù)值方式粘貼到成績(jī)記錄工作表 A3得分 = MsgBox（" 最終得分 " & Range（" 成績(jī)記錄 !D2"）.Value & " 其中: 單選題 " & Range（" 成績(jī)記錄!E2"）.Va

12、lue & “、多選題"& Range（"成績(jī)記錄！F2"）.Value &"、判斷題 “ & Range（“ 成績(jī)記錄!G2"）.Value &," 評(píng)分結(jié)果"）'彈岀信息框顯示成績(jī)記錄！D2、E2、F2、G2的數(shù)據(jù)，標(biāo)題為“評(píng)分結(jié)果“Range（"D2,D5:D34,D36:D75,D77:D106"）.ClearContents' 清除試卷工作表中輸入的內(nèi)容Rows（"3:106"）.RowHeight = 0' 設(shè)

13、置題目區(qū)行高為 0，以隱藏所有題目（" 岀題按鈕 "）.Visible = True（" 評(píng)分按鈕 "）.Visible = False顯示岀題按鈕 , 隱藏評(píng)分按鈕保存End Sub9. 其他設(shè)置選中A4單擊“窗口 /凍結(jié)空格”以始終顯示1:3行的標(biāo)題和按鈕。右擊 C E列選擇隱藏。為答 題區(qū)以外單元格設(shè)置填充色以示區(qū)別，把評(píng)分按鈕重疊到岀題按鈕上（如圖1）。選中D5:D34右擊選擇“設(shè)置單元格格式”，在“保護(hù)”選項(xiàng)卡中單擊取消“鎖定”選項(xiàng)，對(duì)于同樣需要添寫(xiě)的D2,D36:D75,D77:D106區(qū)也同樣取消鎖定設(shè)置。 然后單擊“工具/保護(hù)/保護(hù)工作表

14、”，在中間“允許此工作表所有用戶進(jìn)行”列表中只選中“選定未鎖定單元格”和“設(shè)置行格式”兩個(gè)選項(xiàng)，輸入密碼（如圖2），單擊確定把工作表保護(hù)起來(lái)，這樣考生就無(wú)法修改試題等相應(yīng)單元格了。單擊評(píng)分以隱藏所有題目，同時(shí)顯示岀題按鈕，把文件保存為“模擬考試.xls ”，退岀保護(hù)工作春回俁護(hù)工倫表用鎖定的單云格內(nèi)客© 取消工作表煤護(hù)時(shí)使用的窖碼3*卓*屮*沖允許批工作表的舫有用戶講行Q）:系統(tǒng)維護(hù)1. 資料輸入直接在前面做好的單選題、多選題、判斷題工作表中輸入題目和答案即可，按Alt+回車鍵換行,用空格進(jìn)行水平定位。答案輸入時(shí)注意不要有多余字符，特別是多選題一定要按ABCD勺順序輸入多選項(xiàng)，否則無(wú)

15、法正確評(píng)分，建議參照一 4步操作對(duì)C列單元格設(shè)置有效性。若以后還想用到當(dāng)前的題 引順序可在最后面增加一列（E列）填充序列號(hào)，需要時(shí)按此列排序即可。在“考生記錄”工作表中輸 入姓名和準(zhǔn)考證號(hào)，這可以直接從相關(guān)工作表中復(fù)制過(guò)來(lái)。2. 隱藏工作表把除試卷外的其他工作表隱藏起來(lái)以免考生看到。單擊“工具/宏/Visual Basic 編輯器"，在彈岀窗口左側(cè)選中要隱藏的工作表名，女口：Sheet4（判斷題），在屬性窗口中把Visible項(xiàng)的值設(shè)置為O-xlsheetHidden（如圖3）即可隱藏該工作表，重復(fù)這一步把除試卷外的其他工作表全部隱藏。以后如需顯示只要按這操作把Visible 改回-

16、1-xlsheetVisible即可。若看不到屬性窗口可按F4鍵顯示。為防止學(xué)生修改，還得右擊 VBAProject（模擬考試.xls）選擇“ VBAProject屬性"，在“保護(hù)”選項(xiàng)卡中選中“查看時(shí)鎖定工程”，并輸入密碼（如圖4），確定保存文檔退岀。這樣以后沒(méi)有密碼就別想 修改這些內(nèi)容了圖4如何考試打開(kāi)“模擬考試.xls ”就只有一張“試卷”工作表，先輸入準(zhǔn)考證號(hào)回車確認(rèn)，正確的話就顯示姓名否則會(huì)要求你重輸。單擊岀題按鈕即可顯示題目，同時(shí)岀題按鈕會(huì)變成評(píng)分按鈕?？忌稍贒列選中相應(yīng)單元格直接輸入答案或單擊單元格后的下拉按鈕從列表中選擇輸入（如圖5）。題目做完后，單擊“評(píng)分”按鈕即

17、可顯示最后得分，確定后自動(dòng)保存，并回復(fù)到最初狀態(tài)。小提示叩開(kāi)Excel的安全門按照上面方法制作的模擬考試系統(tǒng)在運(yùn)行時(shí)有一個(gè)問(wèn)題，Excel 2003的默認(rèn)設(shè)置會(huì)把宏的安全性設(shè)置為高，表現(xiàn)為運(yùn)行時(shí)岀現(xiàn)“安全性提示”對(duì)話框。解決方法是，打開(kāi)Excel文檔，依次單擊“工具-宏-安全性”，選擇“中”并“確定”，關(guān)閉并重新打開(kāi)Excel文檔后，選擇“啟用宏”即可。系統(tǒng)修改在電腦上能直接處理的題型就只有這三種，所以能改的也只有各種題的數(shù)量而已。這只要三步即1.撤消工作表保護(hù)，在相應(yīng)題目中選中 N行，右擊選擇“復(fù)制”再選擇“插入復(fù)制單元格"，如果要減少則右擊選擇“刪除”就 OK。2.選中B:D列右擊選擇“取消隱藏”，按一 .3中介紹的規(guī)則修改復(fù)制二、三大題各題目區(qū)域的 公式。然