久久―日本道色综合久久,亚洲欧美精品在线,狼狼色丁香久久婷婷综合五月,香蕉人人超,日本网站黄,国产在线观看不卡免费高清,无遮挡的毛片免费

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

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

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

　　"記錄宏"其實(shí)就是將工作的一系列操作結(jié)果錄制下來，并命名存儲（相當(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í)就可以對其進(jìn)行各種操作，如求平均分、總分、分?jǐn)?shù)段人數(shù)等等。

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

　　說明：⑴本程序是以本校高三理科班學(xué)生成績進(jìn)行分析。

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

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

　　總分：對原始的成績自動求總分。

　　平均分：對原始的成績以班為單位進(jìn)行各學(xué)科平均成績的計(jì)算及全校各學(xué)科成績的計(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) 注釋：定義存放班級的一個(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è)班級的工作表
　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
　　　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

⑷分?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) 注釋：存放班級
　　zf(i, 2) = ActiveSheet.Cells(i + 1, 11) 注釋：存放總分
　Next i

　For i = 1 To studentno
　　For j = 1 To 4 注釋：3---6班共4個(gè)班級
　　　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