Excel電子表格軟件是應用最廣泛的軟件之一,它的數據處理、圖表功能及各種函數和工具深受廣大用戶的喜愛。Excel文件是一個工作薄,一個工作薄最多可以包含255個工作表,每個工作表又可以包含大量的數據。
Excel的強大優勢還在于它提供的宏語言VisualBasicforApplication(VBA).VisualBasic是windows環境下開發應用軟件的一種通用程序設計語言,功能強大,簡便易用。VBA是它的一個子集,可以廣泛地應用于Microsoft公司開發的各種軟件中,例如Word、Excel、Access等。
那么,"宏"到底是什么呢?
在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
三.平均分VI設計
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
um=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