基于EXCEL考务管理系统的设计与使用方法

1、基于EXCEL勺考务管理系统（黑龙江农垦科技职业学院徐俊延）1.此系统主要用于批量生成考号、准考证、考场核对表、座位表、墙贴和考场安排表，也可用来生成成绩单、审批表、毕业证、胸卡等（可根据需要调整所要生成对象的模板和对应的代码）。2.批量生成准考证号， 可一次生成全部考生的考场号、 座位号和准考证号， 也可分专业生成考场号、 座位号和准考证号。在生成准考证号时，基本保证同一所学校或同一专业或同一班级的考生不相邻（视考生范围而定）。3.批量生成座位表、考场核对表、墙贴、监考安排表等（可根据需要调整所要生成对象的模板和对应的代码）。4.使用方法：在基础数据表中对应的列，输入考生信息，在监考安排表输

2、入每个考场对应的教室，考生照片要用身份证号（或考生号）命名，并且与EXCE虏务管理系统放在同一目录下；修改模板中的XXX考试类别、XXX考点、考试说明等固定信息；当模板中的动态数据（考生信息）位置有变化时，需要调整对应的程序代码；执行与所生成对象相对应的宏（必须先生成准考证号）。5.程序代码和打印效果图Sub准考证（）x=InputBox（请输入起始行号）,输入基础数据表中要处理的记录的起始行号y=InputBox（请输入终止行号）,输入基础数据表中要处理的记录的终止行号z=20000z是所生成表格可能占有工作表的行数，只要所给的数据大于实际占用的行数就可以.s=12s是指模板所占的行数（包括

3、表格前后预留的行数）.w=14w是指模板所占的列数Fora=xToyFori=1TozStepsn=i-1IfSheet3.Cells（n+4,4）=Thenf=iFork=1TosSheet3.Rows(f).RowHeight=Sheet2.Rows(k).RowHeightf=f+1NextIfisThenForj=1TowSheet3.Columns(j).ColumnWidth=Sheet2.Columns(j).ColumnWidthNextEndIfSheet2.SelectSheet2.Range(a1:n10).Copya1:n10是模板所在的区间Sheet3.SelectS

4、heet3.Cells(i,1).SelectSheet3.PasteSheet2.Activate将模板表格粘贴到所生成的表格上,以下各行是将数据源(sheet1)中的数据添加到所生成表格(sheet3)的指定单位格中Sheet3.Cells(n+4,4)=Sheet1.Cells(a,2)Sheet3.Cells(n+4,12)=Sheet1.Cells(a+1,2)Sheet3.Cells(n+5,4)=Sheet1.Cells(a,3)Sheet3.Cells(n+5,12)=Sheet1.Cells(a+1,3)Sheet3.Cells(n+6,4)=Sheet1.Cells(a,4

5、)Sheet3.Cells(n+6,12)=Sheet1.Cells(a+1,4)Sheet3.Cells(n+4,6)=Sheet1.Cells(a,7)Sheet3.Cells(n+4,14)=Sheet1.Cells(a+1,7)Sheet3.Cells(n+7,4)=Sheet1.Cells(a,5)Sheet3.Cells(n+7,12)=Sheet1.Cells(a+1,5)Sheet3.Cells(n+9,4)=Sheet1.Cells(a,6)&(&Sheet1.Cells(a,8)&)Sheet3.Cells(n+9,12)=Sheet1.Cells(

6、a+1,6)&(&Sheet1.Cells(a+1,8)&)ksh=Sheet3.Cells(n+7,4)kshl=Sheet3.Cells(n+7,12),获得考生号或准考证号利用考生号或准考证号生成照片的文件名Sheet3.ActivateIfDir(ThisWorkbook.Path&ksh&.jpg)ThenWithActiveSheet.Pictures.Insert(ThisWorkbook.Path&ksh&.jpg).ShapeRange.LockAspectRatio=msoFalse.Left=Cells(n+4,1)

7、.Left+2.Top=Cells(n+4,1).Top+6.Height=95.Width=80EndWithEndIfIfDir(ThisWorkbook.Path&kshl&.jpg)ThenWithActiveSheet.Pictures.Insert(ThisWorkbook.Path&kshl&.jpg).ShapeRange.LockAspectRatio=msoFalse.Left=Cells(n+4,9).Left+2.Top=Cells(n+4,9).Top+6.Height=95.Width=80EndWithEndIfExitForEnd

8、IfNextNextEndSub血演3a学校自主招生考试巡考证号:20160侬座位君|cfj姓名:性81：身份证号:X0：1里00C1考点.考场XQ学院0KC201)2OJL6年XXI学校自主招生考试准考证准考证正考江号：2016D217爸XXX2性更：男身份证辫0002趋点：XXX学院学场：02（c2M）考试时间：2Q16年5月26日，上午9:0C31：00201碑XXX”自诩生考试2016021200。3X学院02(c204)考试时间，2016年5月26日，上午9?0011：OJ2016 年 XXX 学校自主招生基础数据表转准考证号姓名性别身份证号 （或考生号）考场号座位号教室专业1201

9、60129XXXI里00010129C201水利炖220160217m2里00020217c204水秒炖320160212HX3里00030212c204水利炖420160313nx：4女00040313c208水利触5 520160308nx5女00050308c208水利雌6 620160123nx6舆00060123C201水利施720160325XXX?里00070325c208水利炖8 820100125XXxo里00000125C201水利办电9 920160120nx9男00090120C201水利雌101020160127nxio女00100127C201水利施11112016

10、0323XXXll骂00110323c208水利屣1220160226XXX12里00120226c204水利亦电131320160116XXX13里00130116C201水利炖1420160118XXX14男00140118C201水利炖151520160304XXX15里00150304c202水利水电161620160104-mi&里00160104C201水利炖171720160114nxiz里00170114C201水利施若看证E EX：3里占八w斯:考试时河:2016年5月26日，上午9：0011：00考试时间:201646月26日,上午 80011：0018201603

11、15nxis里00180315c208水利雌2016年XXX学校自主招生考试考生座位表考点：XXX学偿泊01考场共30人漉考证考，次考注号:2016011720160117步考证考，2016011620160116准考证号:2016010120160101姓名：姓名：XXX31XXX31姓名：XXX13XXX13姓名：XXX42XXX42性别:性垢见性别:里座位垮：3232座位号：1717座位号：1616座位号：。1 1法考证号：准考逐号：2016011820160118准考证号：2016011520160115准考逐号：2016010220160102姓名：姓名：XXXHXXXH姓名：XXX

12、84XXX84姓名：WCX98WCX98性别：性另!：再性别：见性独：男座位言：3131座位岩：1818座位夺1515座位号：02024 4若证号；2016013020160130准考证号；2016011920160119*考证号；2016011420160114港考证号；2016010320160103姓名：XXXS2XXXS2批名：XXX48XXX48姓名：mimi7 7性名：XXX28XXX28性别：更性SHSH男性别：黑性外:男座位号：3030座位号：1919座信号：1414座位呈：0303准考证号：2016012920160129准考证号：2016012020160120准考证号：2

13、016011320160113强寿证号：2016010420160104姓名：XXXIXXXI姓名：X(X9X(X9姓名，：XX71XX71娃含，XXXI6XXXI6 IIII别：里性另I I：见性别：里性双：里2016 年 XXX 学校自主招生考试考生核对表难考证号20160101姓名XXX4201淮岩il号201601C9姓名XXX870911独考证目2010：171 1姓名XXX3117F-F-HD.HD.延考证目20160126J J姓名XX：825HDHD：1D.1D.1 1i i准考证号嗜考证号1、住考证号rI I正号证号, ,-1-12316C102S S1 1201601101

14、r201eon8W|JWW|JW，1 120160126姓名7 7蛉名1 1卜姓冬匕I I姓名1111AXXX98AXXX55|XX(141 1XX：63m m：02HR.HR.10)18W)W)25准为证号笈港考让考客港证等,涯考底驾3J16C1032016011120160119120160127姓名承姓名1 1a姓名姓名XXX38庐XXX83XXX48XXXI01 1n n：03N0:N0:11n：19HD:HD:27他淮考证 U准考证号1 11 1求走证号,在考证号2316C104f20100112B|23co20160128；姓名.姓名1 1姓名&y姓?XXX161XXX35.bXXX9XXX37C/. .4)4)A A1OcnOO考点；XXX学院考场笫0120162016 年 XXXXXX 学校自主招生考