Excel中(zhōng)的宏是什(shí)麽意思

Excel電(diàn)子表格軟件(jiàn)是應用最深圳印刷(shuā)廠 廣泛的軟件(jiàn)之一，它的數據(jù)處理、圖表功能及各種函(hán)數和工具深受廣大用戶(hù)的喜(xǐ)愛。Excel文件是一個(gè)工作薄，一個工作薄(báo)最多可以包含255個工作表，每個工作(zuò)表(biǎo)又可以包含大(dà)量的數據。 

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

那麽，"宏"到底是什(shí)麽呢？ 

在Excel 97中，"宏"是一個(gè)難以理解的概念，但對于一(yī)個具體的"宏"而言，卻是容易理解的，如果說"将一塊文字變爲'黑體'，字号爲'三号'"就可以看作一個"宏"的話，那麽"宏"就(jiù)不難理解了，其(qí)實Excel 97中的許多操作都可以是一個"宏"。 

"記(jì)錄宏"其實就是将(jiāng)工作的一系列操(cāo)作結果錄制下來，并命名存儲（相(xiàng)當于VB中一個子程序）。在Excel 97中，"記錄宏"僅記錄操作結果，而不記錄操作過程。例如，改變文字字體時，需(xū)要打開"字體"欄中的下拉(lā)列表，再選擇(zé)一種字體，這時文(wén)字即變爲(wèi)所選擇的字體，這是(shì)一個過程，結果(guǒ)是将所選擇的文字改變(biàn)爲所選擇的字體。而"記錄(lù)宏"則隻記錄"将所選擇的文字改變爲所選擇的字體"這(zhè)一結果。 

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

本人就利用Excel 97中(zhōng)所提供的宏功能來做(zuò)學生成績的分析處理程(chéng)序。本(běn)程序是Excel中(zhōng)的一個文件，其中包含以下幾個宏：分班、總分、平均分(fèn)、分數段、删除等。 
本程序是(shì)以本校高三理科班學生成績進行分析。 

有關程序中(zhōng)用到的幾具宏的功能說明： 

分(fèn)班：針對于難以确定班(bān)級的情況下，以班爲單位進行分班，本宏可以作爲高一新(xīn)生入學時進行分班的功能。 

總(zǒng)分：對原始的成績自動求總分(fèn)。 

平均分：對原始的成(chéng)績以班爲單位進行(háng)各學科平均成績(jì)的(de)計算及全校各學科成績的計(jì)算(suàn)。 

分數段：給定一個最高分數(shù)及最低分數，然後統計出(chū)各班各個分數段的人數，各分數段(duàn)人數進行累計。 

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

現将各(gè)個宏的代碼列舉如下： 

一.分班 

Sub 分班() 
Const studentno = 191 '學生人數 
Const zdno = 12 '字段數(shù) 
Dim zd$(zdno) '定義爲12個字段(duàn)的(de)數組 
Dim a(studentno, zdno), stu(60, zdno) 
Dim nam$(studentno), bjname$(60) '定義一(yī)個存(cún)放全校學生名字(zì)及(jí)各班學生名字(zì)的數(shù)組 
Dim bj(studentno) '定義存放班級的一(yī)個數組 
'理科班工作表 
Sheets("高(gāo)三理").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 
'存放字段(duàn)到(dào)數組中。 
For i = 1 To zdno 
zd$(i) = ActiveSheet.Cells(1, i) 
Next i 
'先建(jiàn)立(lì)各個班級的工作表 
Sheets("高三理").Select 
Sheets("高三理").Copy After:=Sheets("分(fèn)數段") 
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班工作表(biǎo)的(de)建立 
For i = 34 To 36 
x$ = Mid$(Str(33), 2) 
Sheets(x$).Select 
Sheets(x$).Copy After:=Sheets("分(fèn)數段") 
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 
'以下程序段(duàn)用于求各班平均分 
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 
'寫入各班各科平(píng)均分 
Sheets("平均分(fèn)").Select 
For i = 1 To 4 
For j = 1 To 6 
ActiveSheet.Cells(i + 2, j + 1) = pjf3(i, j) 
Next j 
Next i 
'寫入全校各科(kē)平均分 
i = 7 
For j = 1 To 6 
ActiveSheet.Cells(i, j + 1) = qxpjf(j) 
Next j 
End Sub