《统计成绩中宏的录制及使用实例.doc》由会员分享，可在线阅读，更多相关《统计成绩中宏的录制及使用实例.doc（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、如有侵权，请联系网站删除，仅供学习与交流统计成绩中宏的录制及使用实例【精品文档】第 8 页统计成绩中宏的录制及使用实例Excel的强大优势还在于它提供的宏语言 for Application(VBA).是windows环境下开发的一种通用，功能强大，简便易用。VBA是它的一个，可以广泛地应用于Microsoft公司开发的各种软件中，例如Word、Excel、Access等。 那么，宏到底是什么呢？ 在Excel 97中，宏是一个难以理解的概念，但对于一个具体的宏而言，却是容易理解的，如果说将一块文字变为注释：注释：，字号为注释：三号注释：就可以看作一个宏的话，那么宏就不难理解了，其实Excel
2、 97中的许多操作都可以是一个宏。 记录宏其实就是将工作的一系列操作结果录制下来，并命名存储（相当于VB中一个子程序）。在Excel 97中，记录宏仅记录操作结果，而不记录操作过程。例如，改变文字字体时，需要打开字体栏中的下拉列表，再选择一种字体，这时文字即变为所选择的字体，这是一个过程，结果是将所选择的文字改变为所选择的字体。而记录宏则只记录将所选择的文字改变为所选择的字体这一结果。 Excel 97中工作表是由行和列组成的，我们可以通过系统提供的语句activesheet.cells(I,j)，将当前工作表中的第I行第j列所在的单元格中的数据取出（也可将它数据填入到指定的单元格中），然后反
3、把它放入所定义的数组中，这时就可以对其进行各种操作，如求平均分、总分、分数段人数等等。 本人就利用Excel 97中所提供的宏功能来做学生成绩的分析处理程序。本程序是Excel中的一个文件，其中包含以下几个宏：分班、总分、平均分、分数段、删除等。 说明：本程序是以本校高三理学生成绩进行分析。 有关程序中用到的几具宏的功能说明： 分班：针对于难以确定班级的情况下，以班为单位进行分班，本宏可以作为高一新生入学时进行分班的功能。 总分：对原始的成绩自动求总分。 平均分：对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。 分数段：给定一个最高分数及最低分数，然后统计出各班各个分数段
4、的人数，各分数段人数进行累计。 删除：用于删除不用的工作表。 现将各个宏的代码列举如下： 分班 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
5、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(高
6、三理 (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:
7、=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
8、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 =
9、 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) =
10、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) = bj
11、rs(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 注释：写入全校各科
12、平均分 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
13、, 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).Se
14、lect 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