日本丰满老妇bbw,一级黄色网

Excel成績(jī)分析處理程序

時(shí)間：2005-02-11 09:31 來源：yesky 作者：蔣峰閱讀：次

Excel電子表格軟件是應(yīng)用最廣泛的軟件之一，它的數(shù)據(jù)處理、圖表功能及各種函數(shù)和工具深受廣大用戶的喜愛。Excel文件是一個(gè)工作薄，一個(gè)工作薄最多可以包含255個(gè)工作表，每個(gè)工作表又可以包含大量的數(shù)據(jù)。

　　Excel的強(qiáng)大優(yōu)勢(shì)還在于它提供的宏語言Visual Basic for Application(VBA).Visual Basic是windows環(huán)境下開發(fā)應(yīng)用軟件的一種通用程序設(shè)計(jì)語言，功能強(qiáng)大，簡(jiǎn)便易用。VBA是它的一個(gè)子集，可以廣泛地應(yīng)用于Microsoft公司開發(fā)的各種軟件中，例如Word、Excel、Access等。

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

　　在Excel 97中，"宏"是一個(gè)難以理解的概念，但對(duì)于一個(gè)具體的"宏"而言，卻是容易理解的，如果說"將一塊文字變?yōu)?黑體'，字號(hào)為'三號(hào)'"就可以看作一個(gè)"宏"的話，那么"宏"就不難理解了，其實(shí)Excel 97中的許多操作都可以是一個(gè)"宏"。

　　"記錄宏"其實(shí)就是將工作的一系列操作結(jié)果錄制下來，并命名存儲(chǔ)（相當(dāng)于VB中一個(gè)子程序）。在Excel 97中，"記錄宏"僅記錄操作結(jié)果，而不記錄操作過程。例如，改變文字字體時(shí)，需要打開"字體"欄中的下拉列表，再選擇一種字體，這時(shí)文字即變?yōu)樗x擇的字體，這是一個(gè)過程，結(jié)果是將所選擇的文字改變?yōu)樗x擇的字體。而"記錄宏"則只記錄"將所選擇的文字改變?yōu)樗x擇的字體"這一結(jié)果。

　　Excel 97中工作表是由行和列組成的二維表格，我們可以通過系統(tǒng)提供的語句activesheet.cells(I,j)，將當(dāng)前工作表中的第I行第j列所在的單元格中的數(shù)據(jù)取出（也可將它數(shù)據(jù)填入到指定的單元格中），然后反把它放入所定義的數(shù)組中，這時(shí)就可以對(duì)其進(jìn)行各種操作，如求平均分、總分、分?jǐn)?shù)段人數(shù)等等。

　　本人就利用Excel 97中所提供的宏功能來做學(xué)生成績(jī)的分析處理程序。本程序是Excel中的一個(gè)文件，其中包含以下幾個(gè)宏：分班、總分、平均分、分?jǐn)?shù)段、刪除等。
本程序是以本校高三理科班學(xué)生成績(jī)進(jìn)行分析。

　　有關(guān)程序中用到的幾具宏的功能說明：

　　分班：針對(duì)于難以確定班級(jí)的情況下，以班為單位進(jìn)行分班，本宏可以作為高一新生入學(xué)時(shí)進(jìn)行分班的功能。

　　總分：對(duì)原始的成績(jī)自動(dòng)求總分。

　　平均分：對(duì)原始的成績(jī)以班為單位進(jìn)行各學(xué)科平均成績(jī)的計(jì)算及全校各學(xué)科成績(jī)的計(jì)算。

　　分?jǐn)?shù)段：給定一個(gè)最高分?jǐn)?shù)及最低分?jǐn)?shù)，然后統(tǒng)計(jì)出各班各個(gè)分?jǐn)?shù)段的人數(shù)，各分?jǐn)?shù)段人數(shù)進(jìn)行累計(jì)。

　　刪除：用于刪除不用的工作表。

　　現(xiàn)將各個(gè)宏的代碼列舉如下：

一.分班

Sub 分班()
Const studentno = 191 '學(xué)生人數(shù)
Const zdno = 12 '字段數(shù)
Dim zd$(zdno) '定義為12個(gè)字段的數(shù)組
Dim a(studentno, zdno), stu(60, zdno)
Dim nam$(studentno), bjname$(60) '定義一個(gè)存放全校學(xué)生名字及各班學(xué)生名字的數(shù)組
Dim bj(studentno) '定義存放班級(jí)的一個(gè)數(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
'先建立各個(gè)班級(jí)的工作表
　　Sheets("高三理").Select
　　Sheets("高三理").Copy After:=Sheets("分?jǐn)?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("分?jǐn)?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
　　　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
'寫入各班各科平均分
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

四.分?jǐn)?shù)段

Sub 分?jǐn)?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) '存放班級(jí)
　　zf(I, 2) = ActiveSheet.Cells(I + 1, 11) '存放總分
Next I

For I = 1 To studentno
　For j = 1 To 4 '3---6班共4個(gè)班級(jí)
　　　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

六.本程序的界面及各個(gè)宏運(yùn)行的結(jié)果