VBA编程技术助力考试监考安排

VBA本文主要针对学校的期中和期末考试的监考安排工作，探讨如何利关键词：监考安排、ExcelVBA期中和期末考试的监考安排问题，是每个学校教务管理人员的日常工作之ExcelVBA-1Word，VBAExcelVBAExcelExcelVBAExcelcustomUI.xmlExcel加载宏文件则放在ExcelExcelExcel（一）-2（考场、学科或某行某列（行列号备注（不排备注（不排备注（不排七-3各学科时长（单位：小时（分钟班主任（二）软件主界面分为三个部（处（2）（3-4要在“监考工作簿”中做如下设置：1.在“监考数量”表中设置好每个年Excel-5TeacherArr（1,x、TeacherArr（2,x）……TeacherArr（7,xWorkbooks.OpenRenJiaoArrRenJiaoArr(1,e)、RenJiaoArr(2,e)、RenJiaoArr(3e)。TeacherArr-6RenJiaoArr循环、Do-LoopFindPublicSubDime&,ActTeacherAsString,aaaAsx0:e0:EraseTeacherArrFory=1To3 Fork=SLGrade7Row+1ToSLHeJiRow-1ActTeacher=SLSht.Cells(k,GradeColsArr(y))JKNum=val(SLSht.Cells(k,GradeColsArr(y)+Num=Application.CountIf(RKSht.UsedRange,IfActTeacher<>"" 'Andnum>0ThenAnd>x=x+ReDimPreserveTeacherArr(8,x)TeacherArr(1,x)=ActTeacherIfy1ThenTeacherArr(2,x)Ify2ThenTeacherArr(2,x)Ify=3ThenTeacherArr(2,x)Setcel=IfNotcelIsNothingThenTeacherArr(3,x)=RKSht.Cells(cel.Row,RKClassCol)TeacherArr(4,x)=JKNumTeacherArr(5,x)=0TeacherArr(6,x)=0TeacherArr(7,x)=SLSht.Cells(k,GradeColsArr(y)+2)TeacherArr(7,x)=Application.Substitute(TeacherArr(7,x),"）",")")TeacherArr(7,x)=Application.Substitute(TeacherArr(7,x),"（","(")IsLeader=FalseSLLeaderRow=FindStr(SLSht.UsedRange,"领导").RowSLLeaderColFindStr(SLSht.UsedRange,").ColumnFori=SLLeaderRow+1ToSLEndRowIfSLSht.Cells(i,SLLeaderCol)=ActTeacherThenIsLeader=TrueTeacherArr(8,x)ExitForEndIfIsLeader=FalseThenTeacherArr(8,x)-7Setcel=IfNotcelIsNothingThenaaa=cel.AddressActClass=RKSht.Cells(cel.Row,RKClassCol)ActSubject=RKSht.Cells(RKYuWenRow,IfTeacherArr(2,x)="九"ThenActSubjectThenActSubjectEnde=e+ReDimPreserveRenJiaoArr(3,e)RenJiaoArr(1,e)=celRenJiaoArr(2,e)=ActClassRenJiaoArr(3,e)=ActSubjectSetcel=RKTeacherRng.FindNext(cel)IfcelIsNothingThenExitDoLoopUntilcel.Address=aaaEndIfEndEndSubRenJiaoArr（教师任教信息数组-8FindIsInstrArrIsInstrArrFalseExcelOffice2007（.xlam）将软件的界面ExcelListBoxList-