统计成绩中宏的录制及使用实例培训课件.doc

统计成绩中宏的录制及使用实例学习好资料统计成绩中宏的录制及使用实例Excel的强大优势还在于它提供的宏语言Visual Basic for Application(VBA).Visual Basic是windows环境下开发应用软件的一种通用程序设计语言，功能强大，简便易用。VBA是它的一个子集，可以广泛地应用于Microsoft公司开发的各种软件中，例如Word、Excel、Access等。 那么，宏到底是什么呢？ 在Excel 97中，宏是一个难以理解的概念，但对于一个具体的宏而言，却是容易理解的，如果说将一块文字变为注释：黑体注释：，字号为注释：三号注释：就可以看作一个宏的话，那么宏就不难理解了，其实Excel 97中的许多操作都可以是一个宏。 记录宏其实就是将工作的一系列操作结果录制下来，并命名存储（相当于VB中一个子程序）。在Excel 97中，记录宏仅记录操作结果，而不记录操作过程。例如，改变文字字体时，需要打开字体栏中的下拉列表，再选择一种字体，这时文字即变为所选择的字体，这是一个过程，结果是将所选择的文字改变为所选择的字体。而记录宏则只记录将所选择的文字改变为所选择的字体这一结果。 Excel 97中工作表是由行和列组成的二维表格，我们可以通过系统提供的语句activesheet.cells(I,j)，将当前工作表中的第I行第j列所在的单元格中的数据取出（也可将它数据填入到指定的单元格中），然后反把它放入所定义的数组中，这时就可以对其进行各种操作，如求平均分、总分、分数段人数等等。 本人就利用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(studentno, xknum), pjf3(4, 6), bjrs(4), qxpjf(6) Dim bj(studentno) Sheets(高三理).Select 注释：以下程序段用于求全校平均分 For i = 1 To studentno bj(i) = ActiveSheet.Cells(i + 1, 1) For j = 1 To xknum fs(i, j) = ActiveSheet.Cells(i + 1, j + 3) Next j Next i For i = 1 To xknum Sum = 0 For j = 1 To studentno Sum = Sum + fs(j, i) Next j qxpjf(i) = Sum / (j - 1) Next i 注释：以下程序段用于求各班平均分 For j = 1 To 4 For i = 1 To studentno If bj(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 j For j = 1 To 4 For i = 1 To 6 pjf3(j, i) = pjf3(j, i) / bjrs(j) Next i Next j 注释：写入各班各科平均分 Sheets(平均分).Select For i = 1 To 4 For j = 1 To 6 ActiveSheet.Cells(i + 2, j + 1) = pjf3(i, j) Next j Next i 注释：写入全校各科平均分 i = 7 For j = 1 To 6 ActiveSheet.Cells(i, j + 1) = qxpjf(j) Next j End Sub 分数段 Sub 分数段() Const max = 600 Const min = 390 Const studentno = 190 Const bjnum = 4 Const fsdnum = 22 Dim bjfsd(bjnum, fsdnum), zf(studentno, 2) Sheets(高三理).Select For 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 studentno For j = 1 To 4 注释：3-6班共4个班级 If zf(i, 1) = 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 If Next j Next i Sheets(sheet3).Select For i = 3 To 6 For k = 1 To fsdnum ActiveSheet.Cells(i, k + 1) = bjfsd(i - 2, k) Next k Next i Range(M3:W6).Select Selection.Cut ActiveWindow.LargeScroll ToRight:=-1 Range(B8).Select ActiveSheet.Paste End 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.Delete End Sub精品资料