office/9.shtml'target='_blank'class='article'>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("高三理").Select
　　　Fori=2Tostudentno
　　bj(i)=ActiveSheet.Cells(i,1)
　　nam$(i)=ActiveSheet.Cells(i,2)
　　Forj=3Tozdno
　　　a(i,j)=ActiveSheet.Cells(i,j)
　　Nextj
　　　Nexti
　　　注释：存放字段到数组中。
　　　Fori=1Tozdno
　　zd$(i)=ActiveSheet.Cells(1,i)
　　　Nexti
　　　注释：先建立各个班级的工作表
　　　Sheets("高三理").Select
　　　Sheets("高三理").CopyAfter:=Sheets("分数段")
　　　Sheets("高三理(2)").Select
　　　Sheets("高三理(2)").Name="33"
　　　Fori=2Tostudentno
　　Forj=1Tozdno
　　　ActiveSheet.Cells(i,j)=Space$(1)
　　Nextj
　　　Nexti
　　　Range("a1").Select
　　　Fori=1Tozdno
　　ActiveSheet.Cells(1,i)=zd$(i)
　　　Nexti
　　　注释：34到36班工作表的建立
　　　Fori=34To36
　　x$=Mid$(Str(33),2)
　　Sheets(x$).Select
　　Sheets(x$).CopyAfter:=Sheets("分数段")
　　Sheets(x$ "(2)").Select
　　Sheets(x$ "(2)").Name=Mid$(Str(i),2)
　　　Nexti
　　　注释：具体分班。
　　　Fork=33To36
　　bjrs=0
　　x$=Mid$(Str(k),2)
　　no=kMod10
　　Sheets(x$).Select
　　Fori=2Tostudentno
　　　Ifbj(i)=noThen
　　bjrs=bjrs 1
　　bjname$(bjrs)=nam$(i)
　　Forj=3Tozdno
　　　stu(bjrs,j)=a(i,j)
　　Nextj
　　　EndIf
　　Nexti
　　Fori=2Tobjrs
　　　ActiveSheet.Cells(i,1)=no
　　　ActiveSheet.Cells(i,2)=bjname$(i)
　　　Forj=3Tozdno
　　ActiveSheet.Cells(i,j)=stu(i,j)
　　　Nextj
　　Nexti
　　　Nextk
　　EndSub

　　⑵总分

　Conststudentno=190
　　　Constxknum=6
　　　Constzdnum=12
　　　Sheets("高三理").Select
　　　Fori=2Tostudentno 1
　　Sum=0
　　Forj=1Toxknum
　　　Sum=Sum ActiveSheet.Cells(i,j 3)
　　Nextj
　　ActiveSheet.Cells(i,zdnum-1)=Sum
　　　Nexti
　　EndSub

　　⑶平均分

Sub平均分()
　　　Conststudentno=190
　　　Constxknum=6
　　　Dimfs(studentno,xknum),pjf3(4,6),bjrs(4),qxpjf(6)
　　　Dimbj(studentno)
　　　Sheets("高三理").Select
　　　注释：以下程序段用于求全校平均分
　　　Fori=1Tostudentno
　　bj(i)=ActiveSheet.Cells(i 1,1)
　　Forj=1Toxknum
　　　fs(i,j)=ActiveSheet.Cells(i 1,j 3)
　　Nextj
　　　Nexti
　　　Fori=1Toxknum
　　Sum=0
　　Forj=1Tostudentno
　　　Sum=Sum fs(j,i)
　　Nextj
　　qxpjf(i)=Sum/(j-1)
　　　Nexti
　　　注释：以下程序段用于求各班平均分
　　　Forj=1To4
　　Fori=1Tostudentno
　　　Ifbj(i)=j 2Then
　　bjrs(j)=bjrs(j) 1
　　Fork=1Toxknum
　　　pjf3(j,k)=pjf3(j,k) fs(i,k)
　　Nextk
　　　EndIf
　　Nexti
　　　Nextj
　　　Forj=1To4
　　Fori=1To6
　　　pjf3(j,i)=pjf3(j,i)/bjrs(j)
　　Nexti
　　　Nextj
　　　注释：写入各班各科平均分
　　　Sheets("平均分").Select
　　　Fori=1To4
　　Forj=1To6
　　　ActiveSheet.Cells(i 2,j 1)=pjf3(i,j)
　　Nextj
　　　Nexti
　　　注释：写入全校各科平均分
　　　i=7
　　　Forj=1To6
　　ActiveSheet.Cells(i,j 1)=qxpjf(j)
　　　Nextj
　　EndSub

⑷分数段

Sub分数段()
　　　Constmax=600
　　　Constmin=390
　　　Conststudentno=190
　　　Constbjnum=4
　　　Constfsdnum=22
　　　Dimbjfsd(bjnum,fsdnum),zf(studentno,2)
　　　Sheets("高三理").Select
　　　Fori=1Tostudentno
　　zf(i,1)=ActiveSheet.Cells(i 1,1)注释：存放班级
　　zf(i,2)=ActiveSheet.Cells(i 1,11)注释：存放总分
　　　Nexti

　Fori=1Tostudentno
　　Forj=1To4注释：3---6班共4个班级
　　　Ifzf(i,1)=j 2Then
　　Fork=maxTominStep-10
　　　low=Int((max 10-k)/10)
　　　Ifzf(i,2)>kThenbjfsd(j,low)=bjfsd(j,low) 1
　　Nextk
　　　EndIf
　　Nextj
　　　Nexti
　　　Sheets("sheet3").Select
　　　Fori=3To6
　　Fork=1Tofsdnum
　　　ActiveSheet.Cells(i,k 1)=bjfsd(i-2,k)
　　Nextk
　　　Nexti
　　　Range("M3:W6").Select
　　　Selection.Cut
　　　ActiveWindow.LargeScrollToRight:=-1
　　　Range("B8").Select
　　　ActiveSheet.Paste
　　EndSub

　　⑸删除

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
　　EndSub

->