Excel的強大優(yōu)勢還在于它提供的宏語言Visual Basic for Application(VBA).Visual Basic是windows環(huán)境下開發(fā)應用軟件的一種通用程序設計語言，功能強大，簡便易用。VBA是它的一個子集，可以廣泛地應用于Microsoft公司開發(fā)的各種軟件中，例如Word、Excel、Access等。
那么，"宏"到底是什么呢？
在Excel 97中，"宏"是一個難以理解的概念，但對于一個具體的"宏"而言，卻是容易理解的，如果說"將一塊文字變?yōu)樽⑨專汉隗w注釋：，字號為注釋：三號注釋："就可以看作一個"宏"的話，那么"宏"就不難理解了，其實Excel 97中的許多操作都可以是一個"宏"。
"記錄宏"其實就是將工作的一系列操作結(jié)果錄制下來，并命名存儲（相當于VB中一個子程序）。在Excel 97中，"記錄宏"僅記錄操作結(jié)果，而不記錄操作過程。例如，改變文字字體時，需要打開"字體"欄中的下拉列表，再選擇一種字體，這時文字即變?yōu)樗x擇的字體，這是一個過程，結(jié)果是將所選擇的文字改變?yōu)樗x擇的字體。而"記錄宏"則只記錄"將所選擇的文字改變?yōu)樗x擇的字體"這一結(jié)果。
Excel 97中工作表是由行和列組成的二維表格，我們可以通過系統(tǒng)提供的語句activesheet.cells(I,j)，將當前工作表中的第I行第j列所在的單元格中的數(shù)據(jù)取出（也可將它數(shù)據(jù)填入到指定的單元格中），然后反把它放入所定義的數(shù)組中，這時就可以對其進行各種操作，如求平均分、總分、分數(shù)段人數(shù)等等。
本人就利用Excel 97中所提供的宏功能來做學生成績的分析處理程序。本程序是Excel中的一個文件，其中包含以下幾個宏：分班、總分、平均分、分數(shù)段、刪除等。
說明：⑴本程序是以本校高三理科班學生成績進行分析。
?、朴嘘P程序中用到的幾具宏的功能說明：
分班：針對于難以確定班級的情況下，以班為單位進行分班，本宏可以作為高一新生入學時進行分班的功能。
總分：對原始的成績自動求總分。
平均分：對原始的成績以班為單位進行各學科平均成績的計算及全校各學科成績的計算。
分數(shù)段：給定一個最高分數(shù)及最低分數(shù)，然后統(tǒng)計出各班各個分數(shù)段的人數(shù)，各分數(shù)段人數(shù)進行累計。
刪除：用于刪除不用的工作表。
現(xiàn)將各個宏的代碼列舉如下：
?、欧职?
Sub 分班()
Const studentno = 191 注釋：學生人數(shù)
Const zdno = 12 注釋：字段數(shù)
Dim zd$(zdno) 注釋：定義為12個字段的數(shù)組
Dim a(studentno, zdno), stu(60, zdno)
Dim nam$(studentno), bjname$(60) 注釋：定義一個存放全校學生名字及各班學生名字的數(shù)組
Dim bj(studentno) 注釋：定義存放班級的一個數(shù)組
注釋：理科班工作表
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
注釋：存放字段到數(shù)組中。
For i = 1 To zdno
zd$(i) = ActiveSheet.Cells(1, i)
Next i
注釋：先建立各個班級的工作表
Sheets("高三理").Select
Sheets("高三理").Copy After:=Sheets("分數(shù)段")
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("分數(shù)段")
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
?、瓶偡?
Const studentno = 190
Const xknum = 6
Const zdnum = 12
Sheets("高三理").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
Sum = Sum + fs(j, i)
Next j
qxpjf(i) = Sum / (j - 1)
Next i
注釋：以下程序段用于求各班平均分
For j = 1 To 4
For i = 1 To studentno
If bj(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
注釋：寫入各班各科平均分
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
⑷分數(shù)段
Sub 分數(shù)段()
Const max = 600
Const min = 390
Const 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 To studentno
For j = 1 To 4 注釋：3---6班共4個班級
If zf(i, 1) = j + 2 Then
For k = max To min 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 To 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
