分班的代码.docVIP

本人就利用Excel 97中所提供的宏功能来做学生成绩的分析处理程序。本程序是Excel中的一个文件，其中包含以下几个宏：分班、总分、平均分、分数段、删除等。 本程序是以本校高三理科班学生成绩进行分析。 有关程序中用到的几具宏的功能说明： 分班：针对于难以确定班级的情况下，以班为单位进行分班，本宏可以作为高一新生入学时进行分班的功能。 总分：对原始的成绩自动求总分。 平均分：对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。 分数段：给定一个最高分数及最低分数，然后统计出各班各个分数段的人数，各分数段人数进行累计。 删除：用于删除不用的工作表。 现将各个宏的代码列举如下： 一.分班 Sub 分班() Const studentno = 191 学生人数 Const zdno = 12 字段数 Dim zd$(zdno) 定义为12个字段的数组 Dim a(studentno, zdno), stu(60, zdno) Dim nam$(studentno), bjname$(60) 定义一个存放全校学生名字及各班学生名字的数组 Dim bj(studentno) 定义存放班级的一个数组 理科班工作表 Sheets(高三理).Select For i = 2 To studentno bj(i) = ActiveSheet.Cells(i, 1) nam$(i) = ActiveSheet.Cells(i, 2) For j = 3 To zdno a(i, j) = ActiveSheet.Cells(i, j) Next j Next i 存放字段到数组中。 For i = 1 To zdno zd$(i) = ActiveSheet.Cells(1, i) Next i 先建立各个班级的工作表 Sheets(高三理).Select Sheets(高三理).Copy After:=Sheets(分数段) Sheets(高三理 (2)).Select Sheets(高三理 (2)).Name = 33 For i = 2 To studentno For j = 1 To zdno ActiveSheet.Cells(i, j) = Space$(1) Next j Next i Range(a1).Select For i = 1 To zdno ActiveSheet.Cells(1, i) = zd$(i) Next i 34到36班工作表的建立 For i = 34 To 36 x$ = Mid$(Str(33), 2) Sheets(x$).Select Sheets(x$).Copy After:=Sheets(分数段) Sheets(x$ + (2)).Select Sheets(x$ + (2)).Name = Mid$(Str(i), 2) Next i 具体分班。 For k = 33 To 36 bjrs = 0 x$ = Mid$(Str(k), 2) no = k Mod 10 Sheets(x$).Select For i = 2 To studentno If bj(i) = no Then bjrs = bjrs + 1 bjname$(bjrs) = nam$(i) For j = 3 To zdno stu(bjrs, j) = a(i, j) Next j End If Next i For i = 2 To bjrs ActiveSheet.Cells(i, 1) = no ActiveSheet.Cells(i, 2) = bjname$(i) For j = 3 To zdno ActiveSheet.Cells(i, j) = stu(i, j) Next j Next i Next k End Sub 二.总分 Const studentno = 190 Const xknum = 6 Const zdnum = 12 Sheets(高三理).Select For i = 2 To studentno + 1 Sum = 0 For j = 1 To xknum Sum = Sum + ActiveSheet.Cells(i, j + 3) Next j ActiveSheet.Cells(i, zdnum-1) = Sum Next i End Sub 三.平均分 Sub 平均分() Const studentno = 190 Const xknum = 6 Dim fs