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

1.建立題庫

打開Excel2010,建立“模擬考試系統(tǒng)-出題測試版”。打開此工作簿，建立“單選題”工作表

（如圖1）,在A2輸入公式=心1（）T&"."以自動生成序號，在D2輸入=IF（C2=",",RAND0）,選中A2:D2

拖動向下填充幾百行。按住Ctrl鍵單擊“單選題”工作表標(biāo)簽拖動復(fù)制出兩份，分別重命名為“多

選題”（如圖2）、“判斷題”（如圖3）,分別輸入題目和答案，按Alt+回車鍵換行。請注意以下

提不：

1、以上3個工作表，在B列輸入單選題題目（樣式隨意，但一道題只能占一個單元格），在C

列輸入對應(yīng)考題的答案，答案輸入時注意不要有多余字符。

2、“多選題”工作表的答案必須按ABCD的順序填寫，例如答案ABD,不能寫ADB、BAD、BDA、

DAB、DBA,答錯、少答和多答均不得分；“判斷題”工作表的答案只能有兩種，本題按“正確”和“錯

誤”作為答案，其他形式如“對”和“錯”、"J”和“X”也可以。

3、題庫中題目數(shù)量根據(jù)實際情況而定，多多益善。本例中題庫數(shù)目為單選題60道、多選題50

道、判斷題45道。

A2飛=ROW()-1&".”|

9口向模板專區(qū)S模擬考試聚統(tǒng)-出塞測試版.xlsmX+

ABCD

序號題目答案隨機數(shù)

1

,1行車中發(fā)現(xiàn)其他車輛陷入損壞路段而不能行駛時，應(yīng)。

A.盡快離開

B.盡力幫助B0.730431

C.改道行駛

"繞行通過

’車輛在擁擠路段低速行駛時，遇其他車輔強行“加塞”，

□應(yīng)。

A.嗚喇叭警告，不得進入

2.C0.168955

B.加速行駛，緊跟前車，不讓其進入

C.主動禮讓，確保行車安全

3D.擠靠“加塞”車輛，逼其離開

行車中發(fā)現(xiàn)有需要援助的車輛時，應(yīng)。

A.減速停車，給對方以幫助

3.B.加速通過A0.181381

C.不予理睬

4D.找理由拒絕

自動擋汽車起動發(fā)動機時，應(yīng)將變速器操縱桿放在位置

A.D擋

4.B0.927821

B.P擋

C.N擋

5D.任意擋

M<>”試卷單選題圍選題判斷題考生名單成績記錄-J

圖1

D2&||=IF(C2=""「"，RAND6yl

D向模板專區(qū)豳模擬考試系統(tǒng)一出題測試版.xlsmX4-

ABCDE

序號題目答案隨機數(shù)

超車過程中，被超車輛突然加速怎么辦？

A、加速迅速超越

1.B、變換遠(yuǎn)近光燈超越C258169

C、減速放棄超車

D、持續(xù)嗚喇叭超越

在道路上怎樣安全跟車行駛？

A、注意炮察前車動態(tài)

|ABD|

2.B、隨時做好減速準(zhǔn)備0.167579

C、盡量靠路左側(cè)行駛

D、保持安全距離

駕駛機動車通過學(xué)校時要注意什么？

A、觀察標(biāo)志標(biāo)線

3.B、減速慢行ABC0.545348

C、不要嗚喇叭

D、快速通過

下列做法哪些可以有效避免駕駛疲勞？

A、連續(xù)駕駛不超過4小時

4.B、用餐不宜過飽ABCD0.672029

C、保持良好的睡眠

D、餐后適當(dāng)休息后駕車

駕乘人員下車時要怎樣做以保證安全？

A、停車后立即開門下車

5.B、觀察而沒通情況1D0.640945

>"試卷單選亂急速蠹隹”斷題考生名單成績記錄七1

圖2

D2芥|=IF(C2="","",RAND())

Pl向模板專區(qū)EQ博以考試--出置測試版,xkmX4-

ABC|D

序化題目□答案隨機數(shù)1

在道路上超車時，應(yīng)盡量加大橫向距

1.錯誤

12-離，必要時可越實線超車。0.057279

無論自動擋還是手動擋汽車，都必須

正確

用右腳踩踏制動踏板。0.517632

女駕駛?cè)舜└吒{駛車輛，不利于

3.正確

安全行車。0.154655

駕駛?cè)祟l繁變更車道不屬于駕駛陋習(xí)

4.錯誤

O0.828622

山區(qū)行車，對方車輛主動讓行時，可

5.正確

低聲短促嗚號以示感謝。0.949635

自動擋汽車變速器操縱桿在P擋以外的

6.正確

位置不能拔下鑰匙。0.891669

夜間行車時，全車燈光突然熄滅，應(yīng)當(dāng)

7.錯誤

緊急制動，迅速停車。0.175636

駕駛?cè)艘贿咇{車，一邊打手持電話是

8.正確

違法行為。0.830613

行車中遇到障礙時，盡量提高車速，

9?錯誤

迅速超越。0.795544

行車中，遇其他駕駛?cè)艘髱椭鷷r，

10.正確

可答應(yīng)請求，熱情相助。0.206337

在泥濘路上制動時，車輪易發(fā)生側(cè)滑或甩

11.正確

屋，導(dǎo)致交通事故。0.545621

漫水道路行車時，應(yīng)掛高速檔，快速通

12.錯誤

1寸0_IIn.

??'試卷單選題多選題判斷題J二績記錄七1

圖3

2.建立考生名單

新建“考生名單”工作表，在A、B、C列分別輸入序號、準(zhǔn)考證號、考生姓名，選中B列在名稱

框中輸入“考號”，回車確定把B列命名為考號（如圖4）。完成后可在名稱管理器內(nèi)看到名字為“考

號"'的名稱，引用位置為“考生名單”工作表的B歹!

八I準(zhǔn)考證號

Pl0模扳專區(qū)座|模擬考試系統(tǒng)H蹦試版.xkmX+

ABCDEFGHI

姓

序號準(zhǔn)考證號

胖

王

12018001

頭

青

22018002

一

五

32018003

示

圖

42018004

二

干

52018005

石

玉玉

存

62018006

大

全

72018007

三

洋

8

股

2018008場

市

9西

2018009木

10丁

2018010宮

格

11

2018011草

12頭

2018012尤

奇奇

13匡

2018013模

14具

2018014尚

志

15不

2018015皮

虎

162018016日

早

172018017兩

書

18于

2018018義

崇

19寇

2018019川

玉

202018020紫

根

喜

212018021田

佳

222018022框

四

芳

232018023車

里

242018024尚

有B

，

一警！

圖4

3.設(shè)計試卷

建立“試卷”工作表，按需要設(shè)置試卷，序號生成方式如題庫序號。單選題30題（A5:C34）,多

選題40（A36:C75）,判斷題30題（A77:C106）。在B4輸入“單選題（每題1分）”，在B35輸入“多

選題（每題1分，錯、漏、多選均不得分）”，在B76輸入”判斷題（每題1分）”。

用“自選圖形/基本形狀”中的棱臺畫一個按鈕，選中在名稱框中輸入“出題按鈕”4字回車，

把它命名為“出題按鈕”。再右擊此按鈕選擇“添加文字”，在按鈕上輸入“出題”2字。同樣再畫

一個按鈕，把它命名為“評分按鈕”，添加文字“評分”。（如圖5）

B齡模板專區(qū)Q模擬考試僦-出望測試lExkmX+

BCDEF

ft

11XX模擬考試系統(tǒng)

21準(zhǔn)考證號：2018036耐用

3答案得分

4—、單選題(每題1分)

超車時，前方車輛不讓出超車空間，應(yīng)。A.迅速超越B.停止超

1.B0

5車C.連續(xù)嗚喇叭超越D.開啟前照燈超越

行車中遇交通事故受傷者需要搶救時，應(yīng)。A,及時將傷者送醫(yī)

2.院搶救或撥打急救電話B.盡量避開，少惹麻煩C.繞過現(xiàn)場行駛D.借A0

6故避開現(xiàn)場

換擋時。A.不得低頭下視B.慢推、慢拉C.注意看擋位D.猛推、

3.A0

7猛拉

自動擋汽車起動發(fā)動機時，應(yīng)將變速器操縱桿放在位置。

A.D擋

4.B.P擋B0

C.N擋

8D.任意擋

車輛行駛過程中，駕駛?cè)藨?yīng)當(dāng)把廢紙或廢棄物扔到。A.車窗外

5.街道上B.隨車攜帶的垃圾箱(袋)里C.無人看管的道路上D.車內(nèi)座B0

9位下或車廂內(nèi)

行車中發(fā)現(xiàn)其他車輛陷入損壞路段而不能行駛時，應(yīng)。

A.盡快離開

6.B.盡力幫助B0

C.改道行駛

10D.繞行通過

章慎駕駛的三條黃金原則：集中注意力、仔細(xì)觀察和。A.膽大

M4?T”試卷便詵題多選題判斷題考生名單成績記錄Eb______

圖5

4.顯示題目(如圖6)

在B5輸入公式INDIRECT("單選題！R"&R0W()-3&"C"&C0LUMN(),0),復(fù)制到B5:C34(可拖動A5

填充)。

在B36輸入公式=1加11^：01'("多選題！K&1?03()-34&"。'&(1)1.5盥()，0)并復(fù)制到B36:C75.

在B77輸入公式=1曲11祖01'("判斷題!1廠&1?)鞏)-75&"(：”&。)11!卜祖()，0)并復(fù)制到B77:C106.

在E5單元格輸入公式=IF(D5="",0,ll'(D5=C5,$G$2,0)),向下填充到E34,這公式用來判斷如果

D5中的答案與C4的標(biāo)準(zhǔn)答案一致就得1分否則為0分，其中G2單元格內(nèi)數(shù)值為1。同理，在E36單

元格輸入公式=IF(D36=",0,IF(D36=C36,$H$2,0)),向下填充到E75；在E77單元格輸入公式

=IF(D77=",0,IF(D77=C77,$I$2,0)),向下填充到E106。可通過更改G2、H2、12單元格的數(shù)值來更

改分值。

B5的公式表示對單選題工作表中同列、行數(shù)差3的單元格(B2)的引用，公式中使用了R1C1格式

的單元格編號，其中3、34、75是由三種題型的第一題所在的行號減2得來。這公式實現(xiàn)的是絕對位

置引用，即不管在單選題工作表中進行插入、刪除行或排序，B5顯示的始終都是你從單選題B2中直

接看到的內(nèi)容。因此B5:C34、B36:C75、B77:C106三個區(qū)域?qū)⒎謩e與相應(yīng)題庫中最前面的30(或40)

題的內(nèi)容保持一致。

E112

3I③IS模擬考試系統(tǒng)幽版.xkmX+

XX模擬考試系統(tǒng)

1出照評分

準(zhǔn)考證號：2018036

3答案得分

4一、單選題（歸題1分）

5=ROf()-44*.*=INDIRECT("單選題!R-R0VO-3TC'a8LinfflO,0)INDIRECT('里選HHR'&RONO-3A'C'a8L3WO,0)=IF(D5=*\0,IF(D5=C5廝》)))

34=ROf（）-44-.*=IHD1RECT（'里選題！R"R0?（）-3atP'&8LinraO.0）=1加1黑01（'組選題用'穌0?。-34七”8切3（），0）=IF(D34=*\0,IF(D34?C34,$G$2,0))

35二、多詵雄（每顆1分，鋸、漏、多選均不得分）

|36=ROf()-35**.*=INDIREG('多選題！R*4R0*O-34VC"&C0LUINO,0)=IMDIRECT(*^-^aiR*4R0f()-344*C*4C0LUIH(),0)=IF(D36=*\0,IF(D36=C36,^H$^0))

75=ROfO-35A*.*INDIRECT('多選題!R.&R0VO-34<'C'&C0LUIliO,0)=IHDIRECT(*^i^aiR，4R0fO-Stt^tCOLUWO,0)=1?(075=*\0,IF(D75=C75,$H$2,0))

76

[77=R0?O-76*,「㈱呼％C,°…8…。)|=IF(D77=*\0,IF(D77=C77,^nj0))

1《"判斷題!七々小^(),)("劉耕了》

106=ROf0-764^.=IHDIRECTR“ROV0-754?0INDIRECT!RZR3()-75a"C'&8LUMN0,0=IF(D106=",0,IF(D106=C106,$I$2,0))

1A7

圖6

5.答案限制

選中單選題答題區(qū)D5:D34單擊“數(shù)據(jù)/有效性"（快捷鍵ALT+D-L）,在“允許”中選擇“序

列”，選中“提供下拉箭頭”復(fù)選項，在“來源”中輸入“A,B,C,D"，不含引號且其中逗號為半角

格式（如圖7）。切換到“出錯警告”選項卡，輸入錯誤信息為“只能輸入A、B、C、D中的一項，其

他任何符號或空格均為非法?！?，選中“輸入無效數(shù)據(jù)時顯示警告”復(fù)選項，選擇樣式為“停止”（如

圖8）,確定完成設(shè)置。

圖7

且差葭SEI

圖8

同樣對多選題答題區(qū)D36:D75,判斷題答題區(qū)D77:D106設(shè)置數(shù)據(jù)有效性，只是“來源”要分別

換成ak,B,C,D,B,AC,AD,BC,BD,CD,ABC,ACD,BCD,ABCDB和“正確，錯誤”。多選題的''出錯警告"

一定要改成“必須按ABCD的順序輸入多選項，否則無法正確評分”。（如圖9到如圖11）

數(shù)據(jù)有效性[t

圖9

數(shù)據(jù)有效性

圖10

數(shù)據(jù)有效性[gIMBM

圖11

6.準(zhǔn)考證號驗證

選中“試卷”工作表中要輸入準(zhǔn)考證號的D2單元格，單擊“數(shù)據(jù)/有效性”，在“允許”中選

擇“系列”，取消“提供下拉箭頭”復(fù)選項，在“來源”中輸入INDIRECT（"考號"）（如圖12）。切

換到“出錯警告”選項卡，輸入錯誤信息為“你輸入的準(zhǔn)考證號并不存在，請重新輸入”，選中“輸

入無效數(shù)據(jù)時顯示警告”，并設(shè)置樣式為“停止”（如圖13）。

百用葭iEM

圖12

圖13

在F2單元格輸入公式=IF（D2=",",VL00KUP（D2,考生名單！2,FALSE））,在D2單元格輸

入準(zhǔn)考證號后會自動顯示考生姓名。（如圖14）

F2&T=IF(D2="",VL00KUP(D2,考生名單！$B:$C,2,FALSE))

3口面模扳專區(qū)S蒯考試"-出題測試版.xlsmX+

ABC

XX模擬考試系統(tǒng)

1出題評分

□J準(zhǔn)考證號：20180361?百暇.

3_答案物區(qū)得分

4單選題（每題1分）

圖14

7.隨機抽題

右擊“出題”按鈕，選擇“指定宏”，在彈出窗口中，輸入宏名為“出題”，位置選擇當(dāng)前工作

簿，單擊“新建”按鈕，復(fù)制如下代碼粘貼到框內(nèi)，結(jié)果如圖15,保存時將文件另存為啟用宏的.xlsm

格式。

Sub出題（）

IfRangeCD2").Value=0Then

提示=MsgBox（"請先輸入準(zhǔn)考證號〃）

GoTo重來

EndIf

'如果D2為空則彈出提示要求輸入準(zhǔn)考證號并直接跳到后面的"重來:"處。

Sheets("單選題").Range("A:D").SortKey1:二Sheets("單選題").Range(〃D2”),

Orderl:=xlAscending,Header:=xlGuess

Sheets("多選題").Range("A:D").SortKeyl:=Sheets("多選題〃).Range("D2"),

Orderl:=xlAscending,Header:=xlGuess

Sheets("判斷題").Range("A:D").SortKey1:二Sheets("判斷題").Range(〃D2”),

Orderl:=xlAscending,Header:=xlGuess

’這三行分別是對單選、多選和判斷題工作表的A:D區(qū)域按D列隨機數(shù)升序排序。

Columns("B:B").Rows.AutoFit

'對B列設(shè)置最適合行高，以完整顯示題目。

Range("D5").Select

’定位到D5以便輸入答案

ActiveSheet.Shapes("出題按鈕").Visible=False

'隱藏出題按鈕以防重復(fù)選題

ActiveSheet.Shapes（"評分按鈕"）.Visible=True

'顯示評分按鈕

重來:

EndSub

模擬考試案婉音題測試艇xkm-模塊1（代碼）-恒叵I

三眄

Sub出題0

IfRange（"D2"）Value=0Then

提示=M,gBox「請先輸入）隹考證號"）

GoTo重來

EndIf

1如果D2為頡I］彈出提示要求輸入準(zhǔn)有證號并直接跳到后面的"重來"處。

Sheets（"單迭題"）.Range（"A：D"）.SortKeyl：=Sheets（"單送題"）.Range（"D2"）,Orderl：=xlAscending.Header：=xlGuess

Shuts（"多迭題"）.Rang。（*A：D*）.SortKoyl：=Sh??ts（"多迭題"）,Rong。（"D2"）,Ordorl：=xlAxc?ndin&H?ad?r:=xlGu?ss

SheetsC*判醺題"）.Range（"A:D"）.SortKeyl：=Sheets，判取題"）.RangeCD2"）,Orderl：=xlAscending.Header：=xlGuess

’這三行分另娓對單選、多選和判斷題工作表的A：D區(qū)域按D列隨機數(shù)升序排序。

ColumnsKovs.AutoFit

'對B列設(shè)置最適合行高，以完整顯示題目。

Range（"D5"）Select

’定位到為以便輸入晉案

ActiveSheet.Shapes（"出題按扭"）.Visible=False

'隱藏出題技招以防重復(fù)選題

ActiveSheet.ShapesC'評分Visible=True

'顯示評分按鈕

EndSub

擊n

圖15

試卷中的題目總是顯示各題庫最前面的N題，而在此對各題庫按隨機數(shù)進行隨機排序后最前面的

N題自然是隨機的，也就相當(dāng)于是隨機抽題了。

8.成績記錄表

新建“成績記錄”工作表（如圖16）,在A2輸入公式=麗%）,并選中A列右擊從“設(shè)置單元格

格式”中設(shè)置為日期格式以顯示當(dāng)前時間。在B2輸入公式=試卷!D2和C2輸入公式=試卷!F2以顯示

相應(yīng)數(shù)據(jù)。D2輸入公式=$1初任2:62）對后面三個得分進行合計，E2、F2、G2則分別輸入公式=5皿（試

卷!E5:E34）、=SUM（試卷!E36:E75）、=SUM（試卷!E77:E106）分別對相應(yīng)題型得分進行合計。

*BCDE：FG

1日期時間考生編號考生姓名總分單選題得分多選題得分判斷題得分

2=N0W（）=試卷!D2=試卷!F2=SUM（E2:G2）=SUH（試卷!E5:E34）=SUI（試卷！E36:E75）=SUH（試卷!E77:E106）

圖16

9.評分和記錄保存

右擊“評分”按鈕，選擇“指定宏”，輸入宏名“評分”，位置選擇當(dāng)前工作簿，單擊“新建”

按鈕，復(fù)制如下代碼粘貼到框內(nèi)，結(jié)果如圖17:

Sub評分（）

Sheets（"成績記錄"）.Rows（"3:3"）.InsertShift:=xlDown

'在成績記錄工作表第3行前插入一行

Sheets（"成績記錄"）.Rows（"2:2"）.Copy

'復(fù)制成績記錄工作表第2行

Sheets（"成績記錄"）.Range（"A3"）.PasteSpecialPaste:=xlPasteValues

'以數(shù)值方式粘貼到成績記錄工作表A3

得分=MsgBox（"最終得分〃&Range（"成績記錄!D2〃）.Value&"其中：單選題〃&RangeC

成績記錄!E2"）.Value&〃、多選題〃&Range（〃成績記錄!F2〃）.Value&〃、判斷題〃&Range（〃成績

記錄!G2〃).Value,,〃評分結(jié)果〃)

'彈出信息框顯示成績記錄!D2、E2、F2、G2的數(shù)據(jù)，標(biāo)題為〃評分結(jié)果〃

Range("D2,D5:D34,D36:D75,D77:D106").ClearContents

'清除試卷工作表中輸入的內(nèi)容

Sheets(〃試卷“).Rows("3:500").RowHeight=0

Sheets("成績記錄").Rows("2:2").RowHeight=0

’設(shè)置題目區(qū)行高為0,以隱臧所有題目

ActiveSheet.Shapes("出題按鈕").Visible=True

ActiveSheet.Shapes("評分按鈕").Visible=False

’顯示出題按鈕,隱藏評分按鈕

ActiveWorkbook.Save

'保存

EndSub

用模擬考試芟統(tǒng)-出塞測試版.xlsm-模塊2（代網(wǎng)

三］儲芬

Sub評分。

Sheetx費記錄”）.Rows（w3：3"）.InsertShi￡t:=xlDown

'在成績記錄工作表第3行前插入一行

Sheets（"成績記錄"）Rows（"2:2"）.Copy

’復(fù)制成績記錄工作表第衿

Sheets（"藤費記錄"）.RangeCA3"）.PasteSpecialPaste：=xlPasteValues

’以數(shù)值方式粘貼到成績記錄工作表*3

得分=MzcBox（"最終得分"&Rw（"成箍記錄ID2"）VJue&-其中:單選題”&Rsg「成績記錄壟2）VUue&?、多選題"&Rw（"成箍記錄IF2"）Value6

,彈出信息隹邕示成績記錄!躥、E2、F2、G2的數(shù)據(jù)，標(biāo)題為"評分結(jié)果"

Range（"D2,D5：D34,D36：D75,D77:D106w）.ClearContents

‘清除試卷工作表中輸入的內(nèi)容

Shoots（"試卷"）,Rows（"3:500"）.RovHc<ht=0

Sheets（"感貴記錄"）.Rows（"2:2"）.RowHeight=0

’設(shè)置題目區(qū)行高為0,以隱藏所有髭目

ActivoShoot.Shep"（"出題按鈕"）.Vixibl.=Tru?

ActiveSheet.Shapes（"評分按扭"）.Visible=False

’顯示出題按鈕,隱藏評分按鈕

ActiveVorkbook.Save

.保存

EndSub

圖17

10.其他設(shè)置

選中A4單擊“窗口/凍結(jié)空格”以始終顯示1:3行的標(biāo)題和按鈕。右擊C、E列選擇隱藏。為答

題區(qū)以外單元格設(shè)置填充色以示區(qū)別，把評分按鈕重疊到出題按鈕上（如圖18）o

L?U

QD（a）模板專區(qū)O模擬考試系統(tǒng)-出題測試版.xlsmx+

B口D必F

1XX模擬考試系統(tǒng)

2準(zhǔn)考證號：|2舛吧。9|股市場

3__________答題區(qū)_______

4、單選題（每題1分）

|

駕駛?cè)顺菂^(qū)內(nèi)清洗車輛時，應(yīng)當(dāng)在清洗。A,車輛清洗點B.道路刁

1.

5上隨意C.河邊D.水庫邊

自動擋汽車的“P”擋在時使用。A.陡坡行駛B.駐車C.正常行

2.

6駛D.路口停車

當(dāng)駕駛車輛行經(jīng)兩側(cè)有行人且有積水的路面時，應(yīng)。A.加速通

3.

7過B.正常行駛C.減速慢行D.連續(xù)嗚喇叭

自動擋汽車起動發(fā)動機時，應(yīng)將變速器操縱桿放在位置。

A.D擋

4.B.P擋

C.N擋

8D.任意擋

駕駛機動車時，轉(zhuǎn)向盤。A.雙手可以臨時離開B.可以隨意操作

5.

9C.嚴(yán)禁雙手同時離開D.可以原地轉(zhuǎn)動

駕駛車輛正常行駛時，對道路情況的處理要有預(yù)見性，在接近障礙

6.時能。A.緊急制動能停車B.急轉(zhuǎn)向迅速繞過C.迅速躲避不發(fā)生

10碰撞D.平穩(wěn)停車

超車時，前方車輛不讓出超車空間，應(yīng)。A.迅速超越B.停止超

7.

11車C.連續(xù)嗚喇叭超越D.開啟前照燈超越

自動擋汽車的“2”擋在時使用。A.緩坡行駛B.停車C.正常行

8.

12駛D.超車

埠駛車輛在道路上行駛時，駕駛?cè)艘凑湛刂栖囁?，在?guī)定的

?試卷.臉題多選題判斷題考生名單成績記錄,：J

圖18

選中D5:D34右擊選擇“設(shè)置單元格格式”，在“保護”選項卡中單擊取消“鎖定”選項，對于

同樣需要添寫的D2,D36:D75,D77:D106區(qū)也同樣取消鎖定設(shè)置（如圖19）。然后單擊“工具/保護/

保護工作表”，在中間“允許此工作表所有用戶進行”列表中只選中“選定未鎖定單元格”和“設(shè)置

行格式”兩個選項，輸入密碼（如圖20）,單擊確定把工作表保護起來，這樣考生就無法修改試題等

相應(yīng)單元格了.單擊評分以隱藏所有題目，同時顯示出題按鈕，把文件另存為“模擬考試系統(tǒng)-考生

測試版.xlsm”,退出。

如圖19

耕工作

7保護工作表及鎖定的單元格內(nèi)容位）

取消工作表保護時使用的密碼電）:

F

允許此工作表的所有用戶進行?）：

詵市淡空單元格2018009股市場

IIE1I選定未鎖定的單元格

誓

牛

RS兀答題區(qū)

H

5格

.式

格

!JffiA9U

」插入行

口插入超鏈接

刪除列

■刪除行

確定取消

如圖20

系統(tǒng)維護

1.隱藏工作表

選中除“試卷”工作表除外的其他工作表，右擊選擇隱娥，以免考生看到。（如圖21）

3MA①一

刪除⑼

重會名?

移動或復(fù)制

查看代瑪M

,工筋⑻…

工隹ISSgIfeCD?

4.右擊顯示g回

取消建§（W“.

1.單擊2.按住shift3.單擊選定全部工作表⑤

,肖組合工作表（U）

■試卷I多選題判斷題考生名單

圖21

2.保護VBA代碼

右擊“試卷”工作表，選擇“查看代碼”，選中VBAProject（模擬考試系統(tǒng)-考生測試版.xlsm）,

右擊，選擇“VBAProject屬性”，在“保護”選項卡中選中“查看時鎖定工程”，并輸入密碼（如圖

22）,確定，保存文檔后退出。關(guān)閉文檔后再重新打開，查看代碼需輸入密碼，這樣任何人沒有密碼

就別想修改這些代碼了。

：文件（B編輯目視圖便）插入①般t（Q）調(diào)試⑼運行?TMCD外接程序??D（W）

國「U--J」丹>ua吆檄雪亨6

工程-VBAProject