Excel中的宏是什么意思

Excel电子表格软件(jian)是应用最深圳印刷厂广(guang)泛的软件之一，它的数据处理、图表功能及各种函(han)数(shu)和工具深受广大用户的喜爱。Excel文件是一个工作薄，一(yi)个工作(zuo)薄最多(duo)可(ke)以包含255个工作表，每个(ge)工作表又可以包(bao)含大量的(de)数据。 

Excel的强大优势还在于它提供的(de)宏语言Visual Basic for Application(VBA).Visual Basic是windows环境下开(kai)发应用软件的一种通用程序(xu)设计语(yu)言，功(gong)能强大，简便(bian)易用。VBA是它的一(yi)个子(zi)集，可以广泛地(di)应用于Microsoft公司开发的各种软件中，例如Word、Excel、Access等。 

那(na)么(me)，"宏"到底是什么呢？ 

在Excel 97中，"宏"是(shi)一个难以理(li)解的概念，但(dan)对于(yu)一个具体的"宏"而言，却是容易理解的(de)，如果说(shuo)"将一块文(wen)字变为(wei)'黑体'，字号为'三号'"就可以看作一个"宏"的话，那么"宏"就不难理解了，其实Excel 97中的许多操作都可以是一个"宏"。 

"记录宏"其实就是将工作的一系列操作结果录制下来，并命名存储（相(xiang)当于VB中一个子程序）。在Excel 97中，"记录宏"仅记(ji)录操作(zuo)结果，而不(bu)记录操作过程。例(li)如，改变文字字体时，需(xu)要打开(kai)"字体"栏中的(de)下拉列表，再选择一种字体，这时文字即变为所选择的字体，这是一个(ge)过程，结果是将所选择的文字改(gai)变为所选择的字体。而(er)"记录(lu)宏"则只记(ji)录"将所(suo)选择(ze)的文字改变为所选择的(de)字体"这一(yi)结果。 

Excel 97中工作表(biao)是(shi)由行和列组成的二维表格，我们可以通过系统提供的语句activesheet.cells(I,j)，将当前工作表中的第I行第j列所在的单元格中的数据取出（也(ye)可将它数据填入到指定的单元格中），然后反把(ba)它放入(ru)所定义的数组中，这(zhe)时就可以对(dui)其(qi)进行各种操作，如求平(ping)均分(fen)、总分(fen)、分数段人(ren)数等等。 

本人就利用Excel 97中所提供(gong)的宏功能(neng)来做学生成绩的分(fen)析处理(li)程序。本(ben)程序是Excel中的一个文件，其中包含以下几个宏(hong)：分班、总分、平均分、分数段、删除等。 
本程(cheng)序是(shi)以本校高(gao)三理科(ke)班学生(sheng)成绩进行分析(xi)。 

有(you)关程(cheng)序中用到的几具宏的功能说明： 

分班：针对于难以确定班级的(de)情况下，以(yi)班为单位进行分班，本宏可以作(zuo)为高一新生入学(xue)时进行分班的功能。 

总分：对原始的成绩自动(dong)求总分。 

平(ping)均分：对原始的成绩(ji)以(yi)班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。 

分数段：给定一个最高分数及最低分数，然(ran)后统计(ji)出各班各个分(fen)数(shu)段的人(ren)数，各分数(shu)段人数进行累计(ji)。 

删除(chu)：用于删除不用的工(gong)作表。 

现将各个(ge)宏的代码列举(ju)如下： 

一.分班 

Sub 分班() 
Const studentno = 191 '学生人数 
Const zdno = 12 '字段数 
Dim zd$(zdno) '定义为12个字段的数组 
Dim a(studentno, zdno), stu(60, zdno) 
Dim nam$(studentno), bjname$(60) '定义一个存放全校学生名字及(ji)各班学生名字的(de)数组 
Dim bj(studentno) '定义存放班级(ji)的一个数组 
'理科班工作表 
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 
'先建立各(ge)个班级的工作表 
Sheets("高三(san)理").Select 
Sheets("高(gao)三理(li)").Copy After:=Sheets("分数段") 
Sheets("高三(san)理 (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("分(fen)数段") 
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 
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 

二.总(zong)分 

Const studentno = 190 
Const xknum = 6 
Const zdnum = 12 
Sheets("高三理(li)").Select 
For i = 2 To studentno + 1 
Sum = 0 
For j = 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) = 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 
um = Sum + fs(j, i) 
Next j 
qxpjf(i) = Sum / (j - 1) 
Next i 
'以下程序段用于求各班平均分 
For j = 1 To 4 
For i = 1 To studentno 
Ifbj(i) = j + 2 Then 
bjrs(j) = bjrs(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 
'写入各班各科平(ping)均(jun)分 
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 
'写入全校各科平均分 
i = 7 
For j = 1 To 6 
ActiveSheet.Cells(i, j + 1) = qxpjf(j) 
Next j 
End Sub