Excel宏的应用-成绩分析处理程序

好酷屋教程网小编为您收集和整理了Excel宏的应用-成绩分析处理程序的相关教程：[导读]Excel电子表格软件是应用最广泛的软件之一，它的数据处理、图表功能及各种函数和工具深受广大用户的喜爱。Excel文件是一个工作薄，一个工作薄最多可以包含255个工作表，每个工作表又可以包含大

[导读]Excel电子表格软件是应用最广泛的软件之一，它的数据处理、图表功能及各种函数和工具深受广大用户的喜爱。Excel文件是一个工作薄，一个工作薄最多可以包含255个工作表，每个工作表又可以包含大量的数据。Excel的强大优势还在于它提供的宏语言VisualBasicforApplication(VBA).VisualBasic是windows环境下开发应

Excel电子表格软件是应用最广泛的软件之一，它的数据处理、图表功能及各种函数和工具深受广大用户的喜爱。Excel文件是一个工作薄，一个工作薄最多可以包含255个工作表，每个工作表又可以包含大量的数据。Excel的强大优势还在于它提供的宏语言VisualBasicforApplication(VBA).VisualBasic是windows环境下开发应用软件的一种通用程序设计语言，功能强大，简便易用。VBA是它的一个子集，可以广泛地应用于Microsoft公司开发的各种软件中，例如Word、Excel、Access等。那么，”宏”到底是什么呢？在Excel97中，”宏”是一个难以理解的概念，但对于一个具体的”宏”而言，却是容易理解的，如果说”将一块文字变为”，字号为’三号'”就可以看作一个”宏”的话，那么”宏”就不难理解了，其实Excel97中的许多操作都可以是一个”宏”。”记录宏”其实就是将工作的一系列操作结果录制下来，并命名存储（相当于VB中一个子程序）。在Excel97中，”记录宏”仅记录操作结果，而不记录操作过程。例如，改变文字字体时，需要打开”字体”栏中的下拉列表，再选择一种字体，这时文字即变为所选择的字体，这是一个过程，结果是将所选择的文字改变为所选择的字体。而”记录宏”则只记录”将所选择的文字改变为所选择的字体”这一结果。Excel97中工作表是由行和列组成的二维表格，我们可以通过系统提供的语句activesheet.cells(I,j)，将当前工作表中的第I行第j列所在的单元格中的数据取出（也可将它数据填入到指定的单元格中），然后反把它放入所定义的数组中，这时就可以对其进行各种操作，如求平均分、总分、分数段人数等等。本人就利用Excel97中所提供的宏功能来做学生成绩的分析处理程序。本程序是Excel中的一个文件，其中包含以下几个宏：分班、总分、平均分、分数段、删除等。

本程序是以本校高三理科班学生成绩进行分析。有关程序中用到的几具宏的功能说明：分班：针对于难以确定班级的情况下，以班为单位进行分班，本宏可以作为高一新生入学时进行分班的功能。总分：对原始的成绩自动求总分。平均分：对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。分数段：给定一个最高分数及最低分数，然后统计出各班各个分数段的人数，各分数段人数进行累计。删除：用于删除不用的工作表。现将各个宏的代码列举如下：一.分班Sub分班()Conststudentno=191’学生人数Constzdno=12’字段数Dimzd$(zdno)’定义为12个字段的数组Dima(studentno,zdno),stu(60,zdno)Dimnam$(studentno),bjname$(60)’定义一个存放全校学生名字及各班学生名字的数组Dimbj(studentno)’定义存放班级的一个数组’理科班工作表Sheets(“高三理”).SelectFori=2Tostudentnobj(i)=ActiveSheet.Cells(i,1)nam$(i)=ActiveSheet.Cells(i,2)Forj=3Tozdnoa(i,j)=ActiveSheet.Cells(i,j)NextjNexti’存放字段到数组中。Fori=1Tozdnozd$(i)=ActiveSheet.Cells(1,i)Nexti’先建立各个班级的工作表Sheets(“高三理”).SelectSheets(“高三理”).CopyAfter:=Sheets(“分数段”)Sheets(“高三理(2)”).SelectSheets(“高三理(2)”).Name=”33″Fori=2TostudentnoForj=1TozdnoActiveSheet.Cells(i,j)=Space$(1)NextjNextiRange(“a1”).SelectFori=1TozdnoActiveSheet.Cells(1,i)=zd$(i)Nexti’34到36班工作表的建立Fori=34To36x$=Mid$(Str(33),2)Sheets(x$).SelectSheets(x$).CopyAfter:=Sheets(“分数段”)Sheets(x$+”(2)”).SelectSheets(x$+”(2)”).Name=Mid$(Str(i),2)Nexti’具体分班。Fork=33To36bjrs=0x$=Mid$(Str(k),2)no=kMod10Sheets(x$).SelectFori=2TostudentnoIfbj(i)=noThenbjrs=bjrs+1bjname$(bjrs)=nam$(i)Forj=3Tozdnostu(bjrs,j)=a(i,j)NextjEndIfNextiFori=2TobjrsActiveSheet.Cells(i,1)=noActiveSheet.Cells(i,2)=bjname$(i)Forj=3TozdnoActiveSheet.Cells(i,j)=stu(i,j)NextjNextiNextkEndSub二.总分Conststudentno=190Constxknum=6Constzdnum=12Sheets(“高三理”).SelectFori=2Tostudentno+1Sum=0Forj=1ToxknumSum=Sum+ActiveSheet.Cells(i,j+3)NextjActiveSheet.Cells(i,zdnum-1)=SumNextiEndSub

三.平均分Sub平均分()Conststudentno=190Constxknum=6Dimfs(studentno,xknum),pjf3(4,6),bjrs(4),qxpjf(6)Dimbj(studentno)Sheets(“高三理”).Select’以下程序段用于求全校平均分Fori=1Tostudentnobj(i)=ActiveSheet.Cells(i+1,1)Forj=1Toxknumfs(i,j)=ActiveSheet.Cells(i+1,j+3)NextjNextiFori=1ToxknumSum=0Forj=1Tostudentnoum=Sum+fs(j,i)Nextjqxpjf(i)=Sum/(j-1)Nexti’以下程序段用于求各班平均分Forj=1To4Fori=1TostudentnoIfbj(i)=j+2Thenbjrs(j)=bjrs(j)+1Fork=1Toxknumpjf3(j,k)=pjf3(j,k)+fs(i,k)NextkEndIfNextiNextjForj=1To4Fori=1To6pjf3(j,i)=pjf3(j,i)/bjrs(j)NextiNextj’写入各班各科平均分Sheets(“平均分”).SelectFori=1To4Forj=1To6ActiveSheet.Cells(i+2,j+1)=pjf3(i,j)NextjNexti’写入全校各科平均分i=7Forj=1To6ActiveSheet.Cells(i,j+1)=qxpjf(j)NextjEndSub

以上就是好酷屋教程网小编为您收集和整理的Excel宏的应用-成绩分析处理程序相关内容，如果对您有帮助，请帮忙分享这篇文章^_^

本文来源： https://www.haoku5.com/IT/63ff14d58a3c96a5be0e0cd4.html

相关推荐