在Excel制作表格時(shí)，大家是否會(huì)遇到“宏”呢，它的主要用途是?下面是學(xué)習(xí)啦小編給大家整理的excel的宏是什么意思，供大家參閱!

　　excel的宏是什么意思

　　在Excel 97中，"宏"是一個(gè)難以理解的概念，但對(duì)于一個(gè)具體的"宏"而言，卻是容易理解的，如果說"將一塊文字變?yōu)?#39;黑體'，字號(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é)生成績的分析處理程序。本程序是Excel中的一個(gè)文件，其中包含以下幾個(gè)宏：分班、總分、平均分、分?jǐn)?shù)段、刪除等。

　　Excel宏是什么大概意思

　　簡單的說你可以把宏理解為一個(gè)記錄器，它所記錄的是你在Excel里每一步操作所導(dǎo)致的結(jié)果，并能將這些操作結(jié)果再次實(shí)現(xiàn)出來。

　　例如，你在開始錄制宏后在A1單元格輸入了“中國”兩個(gè)字，然后結(jié)束錄制宏。那么當(dāng)你再次執(zhí)行剛剛錄制的宏，它就會(huì)自動(dòng)在A1單元格輸入“中國”兩個(gè)字。

　　不過單純的錄制宏可實(shí)現(xiàn)的功能很有限(其實(shí)就是將你的操作原封不動(dòng)的在來一遍)，如果需要實(shí)現(xiàn)更多的功能就要對(duì)宏進(jìn)行相應(yīng)的編輯。

　　如果你想學(xué)的話，可以去百度上找下教程還是很好找的，搜Excel VBA教程就行

　　EXCEL中宏的功能

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

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

　　平均分：對(duì)原始的成績以班為單位進(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) '定義存放班級(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

看過excel的宏是什么意思的人還看了：

1.excel表格啟用宏什么意思

2.excel表格宏怎么用

3.excel宏怎么設(shè)置

4.怎么在excel2013中啟用宏功能

5.Excel表格怎么啟用宏功能