那么，"宏"到底是什么呢？

　　在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