利用Excel的宏功能来做学生成绩的分析处理程序.docx

1、利用Excel的宏功能来做学生成绩的分析处理程序利用Excel 的宏功能来做学生成绩的分析处理程序Excel电子表格软件是应用最广泛的软件之一，它的数据处理、图表功能及各种函数和工具深受广大用户的喜爱。Excel文件是一个工作薄，一个工作薄最多可以包含255个工作表，每个工作表又可以包含大量的数据。 Excel的强大优势还在于它提供的宏语言Visual Basic for Application(VBA).Visual Basic是windows环境下开发应用软件的一种通用程序设计语言，功能强大，简便易用。VBA是它的一个子集，可以广泛地应用于Microsoft公司开发的各种软件中，例如Wor

2、d、Excel、Access等。 那么，宏到底是什么呢？ 在Excel 97中，宏是一个难以理解的概念，但对于一个具体的宏而言，却是容易理解的，如果说将一块文字变为黑体，字号为三号就可以看作一个宏的话，那么宏就不难理解了，其实Excel 97中的许多操作都可以是一个宏。 记录宏其实就是将工作的一系列操作结果录制下来，并命名存储（相当于VB中一个子程序）。在Excel 97中，记录宏仅记录操作结果，而不记录操作过程。例如，改变文字字体时，需要打开字体栏中的下拉列表，再选择一种字体，这时文字即变为所选择的字体，这是一个过程，结果是将所选择的文字改变为所选择的字体。而记录宏则只记录将所选择的文字改变

3、为所选择的字体这一结果。 Excel 97中工作表是由行和列组成的二维表格，我们可以通过系统提供的语句activesheet.cells(I,j)，将当前工作表中的第I行第j列所在的单元格中的数据取出（也可将它数据填入到指定的单元格中），然后反把它放入所定义的数组中，这时就可以对其进行各种操作，如求平均分、总分、分数段人数等等。 本人就利用Excel 97中所提供的宏功能来做学生成绩的分析处理程序。本程序是Excel中的一个文件，其中包含以下几个宏：分班、总分、平均分、分数段、删除等。【简 介】 利用Excel 的宏功能来做学生成绩的分析处理程序，包含：分班、总分、平均分、分数段、删除等。 本

4、程序是以本校高三理科班学生成绩进行分析。 有关程序中用到的几具宏的功能说明： 分班：针对于难以确定班级的情况下，以班为单位进行分班，本宏可以作为高一新生入学时进行分班的功能。 总分：对原始的成绩自动求总分。 平均分：对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。 分数段：给定一个最高分数及最低分数，然后统计出各班各个分数段的人数，各分数段人数进行累计。 删除：用于删除不用的工作表。 现将各个宏的代码列举如下： 一.分班 Sub 分班()Const studentno = 191 学生人数Const zdno = 12 字段数Dim zd$(zdno) 定义为12个字段的

5、数组Dim a(studentno, zdno), stu(60, zdno)Dim nam$(studentno), bjname$(60) 定义一个存放全校学生名字及各班学生名字的数组Dim bj(studentno) 定义存放班级的一个数组理科班工作表Sheets(高三理).SelectFor i = 2 To studentnobj(i) = ActiveSheet.Cells(i, 1)nam$(i) = ActiveSheet.Cells(i, 2)For j = 3 To zdno a(i, j) = ActiveSheet.Cells(i, j)Next jNext i存放字段

6、到数组中。For i = 1 To zdnozd$(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

7、ActiveSheet.Cells(1, i) = zd$(i) Next i34到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

8、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 iFor 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 jNext iNext kEnd S

9、ub【简 介】 利用Excel 的宏功能来做学生成绩的分析处理程序，包含：分班、总分、平均分、分数段、删除等。 二.总分 Const studentno = 190Const xknum = 6Const zdnum = 12Sheets(高三理).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 iEnd Sub三.平均分 Sub 平均分()Con

10、st studentno = 190Const xknum = 6Dim fs(studentno, xknum), pjf3(4, 6), bjrs(4), qxpjf(6)Dim bj(studentno)Sheets(高三理).Select以下程序段用于求全校平均分For i = 1 To studentnobj(i) = ActiveSheet.Cells(i + 1, 1)For j = 1 To xknum fs(i, j) = ActiveSheet.Cells(i + 1, j + 3)Next jNext iFor i = 1 To xknumSum = 0 For j =

11、1 To studentno um = Sum + fs(j, i) Next j qxpjf(i) = Sum / (j - 1)Next i以下程序段用于求各班平均分 For j = 1 To 4 For i = 1 To studentno Ifbj(i) = j + 2 Then bjrs(j) = bjrs(j) + 1 For k = 1 To xknum pjf3(j, k) = pjf3(j, k) + fs(i, k) Next k End If Next i Next jFor j = 1 To 4For i = 1 To 6 pjf3(j, i) = pjf3(j, i)

12、 / bjrs(j)Next iNext j写入各班各科平均分Sheets(平均分).SelectFor i = 1 To 4For j = 1 To 6 ActiveSheet.Cells(i + 2, j + 1) = pjf3(i, j)Next jNext i写入全校各科平均分i = 7For j = 1 To 6ActiveSheet.Cells(i, j + 1) = qxpjf(j)Next jEnd Sub【简 介】 利用Excel 的宏功能来做学生成绩的分析处理程序，包含：分班、总分、平均分、分数段、删除等。 四.分数段 Sub 分数段()Const max = 600Con

13、st min = 390Const studentno = 190Const bjnum = 4Const fsdnum = 22Dim bjfsd(bjnum, fsdnum), zf(studentno, 2)Sheets(高三理).SelectFor i = 1 To studentno zf(i, 1) = ActiveSheet.Cells(i + 1, 1) 存放班级 zf(i, 2) = ActiveSheet.Cells(i + 1, 11) 存放总分Next i For i = 1 To studentnoFor j = 1 To 4 3-6班共4个班级 If zf(i, 1

14、) = j + 2 Then For k = max To min Step -10 low = Int(max + 10 - k) / 10) If zf(i, 2) k Then bjfsd(j, low) = bjfsd(j, low) + 1 Next k End IfNext jNext iSheets(sheet3).SelectFor i = 3 To 6For k = 1 To fsdnum ActiveSheet.Cells(i, k + 1) = bjfsd(i - 2, k)Next kNext i Range(M3:W6).Select Selection.Cut Ac

15、tiveWindow.LargeScroll ToRight:=-1 Range(B8).Select ActiveSheet.PasteEnd Sub五.删除 Sub 删除() Sheets(33).Select ActiveWindow.SelectedSheets.Delete Sheets(34).Select ActiveWindow.SelectedSheets.Delete Sheets(35).Select ActiveWindow.SelectedSheets.Delete Sheets(36).Select ActiveWindow.SelectedSheets.DeleteEnd Sub-六.本程序的界面及各个宏运行的结果 平均分统计结果 ： 总分统计结果 ：