Excel中的“宏”的应用.docVIP

Excel中的“宏”的应用 　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$