Excel宏的應(yīng)用-成績區(qū)分處理程序

    Excel電子表格軟件是應(yīng)用最廣泛的軟件之一，它的數(shù)據(jù)處理、圖表功能及各種函數(shù)和工具深受廣大用戶的喜愛。Excel文件是一個工作薄，一個工作薄最多可以包含255個工作表，每個工作表又可以包含大量的數(shù)據(jù)。 　　Excel的強大優(yōu)勢還在于它提供的宏語言Visual Basic for Application(VBA).Visual Basic是windows環(huán)境下開發(fā)應(yīng)用軟件的一種通用程序設(shè)計語言，功能強大，簡便易用。VBA是它的一個子集，可以廣泛地應(yīng)用于Microsoft公司開發(fā)的各種軟件中，例如Word、Excel、Access等。 　　那么，"宏"到底是什么呢？ 　　在Excel 97中，"宏"是一個難以理解的概念，但對于一個具體的"宏"而言，卻是容易理解的，如果說"將一塊文字變?yōu)?黑體'，字號為'三號'"就可以看作一個"宏"的話，那么"宏"就不難理解了，其實Excel 97中的許多操作都可以是一個"宏"。 　　"記錄宏"其實就是將工作的一系列操作結(jié)果錄制下來，并命名存儲（相當(dāng)于VB中一個子程序）。在Excel 97中，"記錄宏"僅記錄操作結(jié)果，而不記錄操作過程。例如，改變文字字體時，需要打開"字體"欄中的下拉列表，再選擇一種字體，這時文字即變?yōu)樗�選擇的字體，這是一個過程，結(jié)果是將所選擇的文字改變?yōu)樗�選擇的字體。而"記錄宏"則只記錄"將所選擇的文字改變?yōu)樗�選擇的字體"這一結(jié)果。 　　Excel 97中工作表是由行和列組成的二維表格，我們可以通過系統(tǒng)提供的語句activesheet.cells(I,j)，將當(dāng)前工作表中的第I行第j列所在的單元格中的數(shù)據(jù)取出（也可將它數(shù)據(jù)填入到指定的單元格中），然后反把它放入所定義的數(shù)組中，這時就可以對其進行各種操作，如求平均分、總分、分數(shù)段人數(shù)等等。 　　本人就利用Excel 97中所提供的宏功能來做學(xué)生成績的分析處理程序。本程序是Excel中的一個文件，其中包含以下幾個宏：分班、總分、平均分、分數(shù)段、刪除等。

    本程序是以本校高三理科班學(xué)生成績進行分析。 　　有關(guān)程序中用到的幾具宏的功能說明： 　　分班：針對于難以確定班級的情況下，以班為單位進行分班，本宏可以作為高一新生入學(xué)時進行分班的功能。 　　總分：對原始的成績自動求總分。 　　平均分：對原始的成績以班為單位進行各學(xué)科平均成績的計算及全校各學(xué)科成績的計算。 　　分數(shù)段：給定一個最高分數(shù)及最低分數(shù)，然后統(tǒng)計出各班各個分數(shù)段的人數(shù)，各分數(shù)段人數(shù)進行累計。 　　刪除：用于刪除不用的工作表。 　　現(xiàn)將各個宏的代碼列舉如下：     一.分班    Sub 分班()Const studentno = 191 '學(xué)生人數(shù)Const zdno = 12 '字段數(shù)Dim zd$(zdno) '定義為12個字段的數(shù)組Dim a(studentno, zdno), stu(60, zdno)Dim nam$(studentno), bjname$(60) '定義一個存放全校學(xué)生名字及各班學(xué)生名字的數(shù)組Dim bj(studentno) '定義存放班級的一個數(shù)組'理科班工作表Sheets("高三理").SelectFor 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 jNext 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 kEnd Sub   &