Excel宏编程.pdf

《Excel宏编程.pdf》由会员分享，可在线阅读，更多相关《Excel宏编程.pdf（6页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

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

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

3、定班级的情况下，以班为单位进行分班，本宏可以作为高一新生入学时进行分班的功能。总分：对原始的成绩自动求总分。平均分：对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。分数段：给定一个最高分数及最低分数，然后统计出各班各个分数段的人数，各分数段人数进行累计。删除：用于删除不用的工作表。现将各个宏的代码列举如下：分班Sub 分班()Const studentno=191 注释：学生人数Const zdno=12 注释：字段数Dim zd$(zdno)注释：定义为12 个字段的数组Dim a(studentno,zdno),stu(60,zdno)Dim nam$(student

4、no),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 T o zdno a(i,j)=ActiveSheet.Cells(i,j)Next j Next i 注释：存放字段到数组中。For i=1 To zdno zd$(i)=ActiveSheet.Cells(1,i)Next

5、i 注释：先建立各个班级的工作表Sheets(高三理).Select Sheets(高三理).Copy After:=Sheets(分数段)Sheets(高三理(2).Select Sheets(高三理(2).Name=33 For i=2 To studentno For j=1 T o 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 T o 36

6、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 T o studentno If bj(i)=no Then bjrs=bjrs 1 bjname$(bjrs)=nam$(i)For j=3 To zdno stu(bj

7、rs,j)=a(i,j)Next j End If Next i For i=2 T o 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 T o xknu

8、m 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 T o

9、xknum fs(i,j)=ActiveSheet.Cells(i 1,j 3)Next j Next i For i=1 To xknum Sum=0 For j=1 T o studentno Sum=Sum fs(j,i)Next j qxpjf(i)=Sum/(j-1)Next i 注释：以下程序段用于求各班平均分For j=1 To 4 For i=1 T o studentno If bj(i)=j 2 Then bjrs(j)=bjrs(j)1 For k=1 T o xknum pjf3(j,k)=pjf3(j,k)fs(i,k)Next k End If Next i Nex

10、t j For j=1 To 4 For i=1 T o 6 pjf3(j,i)=pjf3(j,i)/bjrs(j)Next i Next j 注释：写入各班各科平均分Sheets(平均分).Select For i=1 To 4 For j=1 T o 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 Con

11、st 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 T o studentno For j=1 T o 4 注释：3-6 班共 4 个班级If zf(i,1)=j 2 Then For k=max To min

12、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 T o 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