Excel中的宏是什么意思 - 设计知识 - 腾洪琉璃

Excel中的宏是什么意思

Excel电子表格软件是应用最广泛的软件之一,它的数据处理、图表功能及各种函数和工具深受广大用户的喜爱。Excel文件是一个工作薄,一个工作薄最多可以包含255个工作表,每个工作表又可以包含大量的数据。

Excel的强大优势还在于它提供的宏语言VisualBasicforApplication(VBA).VisualBasic是windows环境下开发应用软件的一种通用程序设计语言,功能强大,简便易用。VBA是它的一个子集,可以广泛地应用于Microsoft公司开发的各种软件中,例如Word、Excel、Access等。

那么,"宏"到底是什么呢?

在Excel97中,"宏"是一个难以理解的概念,但对于一个具体的"宏"而言,却是容易理解的,如果说"将一块文字变为'黑体',字号为'三号'"就可以看作一个"宏"的话,那么"宏"就不难理解了,其实Excel97中的许多操作都可以是一个"宏"。

"记录宏"其实就是将工作的一系列操作结果录制下来,并命名存储(相当于VB中一个子程序)。在Excel97中,"记录宏"仅记录操作结果,而不记录操作过程。

例如,改变文字字体时,需要打开"字体"栏中的下拉列表,再选择一种字体,这时文字即变为所选择的字体,这是一个过程,结果是将所选择的文字改变为所选择的字体。而"记录宏"则只记录"将所选择的文字改变为所选择的字体"这一结果。

Excel97中工作表是由行和列组成的二维表格,我们可以通过系统提供的语句activesheet.cells(I,j),将当前工作表中的第I行第j列所在的单元格中的数据取出(也可将它数据填入到指定的单元格中),然后反把它放入所定义的数组中,这时就可以对其进行各种操作,如求平均分、总分、分数段人数等等。

本人就利用Excel97中所提供的宏功能来做学生成绩的分析处理程序。本程序是Excel中的一个文件,其中包含以下几个宏:分班、总分、平均分、分数段、删除等。

本程序是以本校高三理科班学生成绩进行分析。

有关程序中用到的几具宏的功能说明:

分班:针对于难以确定班级的情况下,以班为单位进行分班,本宏可以作为高一新生入学时进行分班的功能。

总分:对原始的成绩自动求总分。

平均分:对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。

分数段:给定一个最高分数及最低分数,然后统计出各班各个分数段的人数,各分数段人数进行累计。

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

现将各个宏的代码列举如下:

一.分班

Sub分班()

Conststudentno=191'学生人数

Constzdno=12'字段数

Dimzd$(zdno)'定义为12个字段的数组

Dima(studentno,zdno),stu(60,zdno)

Dimnam$(studentno),bjname$(60)'定义一个存放全校学生名字及各班学生名字的数组

Dimbj(studentno)'定义存放班级的一个数组

'理科班工作表

Sheets("高三理").Select

Fori=2Tostudentno

bj(i)=ActiveSheet.Cells(i,1)

nam$(i)=ActiveSheet.Cells(i,2)

Forj=3Tozdno

a(i,j)=ActiveSheet.Cells(i,j)

Nextj

Nexti

'存放字段到数组中。

Fori=1Tozdno

zd$(i)=ActiveSheet.Cells(1,i)

Nexti

'先建立各个班级的工作表

Sheets("高三理").Select

Sheets("高三理").CopyAfter:=Sheets("分数段")

Sheets("高三理(2)").Select

Sheets("高三理(2)").Name="33"

Fori=2Tostudentno

Forj=1Tozdno

ActiveSheet.Cells(i,j)=Space$(1)

Nextj

Nexti

Range("a1").Select

Fori=1Tozdno

ActiveSheet.Cells(1,i)=zd$(i)

Nexti

'34到36班工作表的建立

Fori=34To36

x$=Mid$(Str(33),2)

Sheets(x$).Select

Sheets(x$).CopyAfter:=Sheets("分数段")

Sheets(x$+"(2)").Select

Sheets(x$+"(2)").Name=Mid$(Str(i),2)

Nexti

'具体分班。

Fork=33To36

bjrs=0

x$=Mid$(Str(k),2)

no=kMod10

Sheets(x$).Select

Fori=2Tostudentno

Ifbj(i)=noThen

bjrs=bjrs+1

bjname$(bjrs)=nam$(i)

Forj=3Tozdno

stu(bjrs,j)=a(i,j)

Nextj

EndIf

Nexti

Fori=2Tobjrs

ActiveSheet.Cells(i,1)=no

ActiveSheet.Cells(i,2)=bjname$(i)

Forj=3Tozdno

ActiveSheet.Cells(i,j)=stu(i,j)

Nextj

Nexti

Nextk

EndSub

二.总分

Conststudentno=190

Constxknum=6

Constzdnum=12

Sheets("高三理").Select

Fori=2Tostudentno+1

Sum=0

Forj=1Toxknum

Sum=Sum+ActiveSheet.Cells(i,j+3)

Nextj

ActiveSheet.Cells(i,zdnum-1)=Sum

Nexti

EndSub

三.平均分VI设计

Sub平均分()

Conststudentno=190

Constxknum=6

Dimfs(studentno,xknum),pjf3(4,6),bjrs(4),qxpjf(6)

Dimbj(studentno)

Sheets("高三理").Select

'以下程序段用于求全校平均分

Fori=1Tostudentno

bj(i)=ActiveSheet.Cells(i+1,1)

Forj=1Toxknum

fs(i,j)=ActiveSheet.Cells(i+1,j+3)

Nextj

Nexti

Fori=1Toxknum

Sum=0

Forj=1Tostudentno

um=Sum+fs(j,i)

Nextj

qxpjf(i)=Sum/(j-1)

Nexti

'以下程序段用于求各班平均分

Forj=1To4

Fori=1Tostudentno

Ifbj(i)=j+2Then

bjrs(j)=bjrs(j)+1

Fork=1Toxknum

pjf3(j,k)=pjf3(j,k)+fs(i,k)

Nextk

EndIf

Nexti

Nextj

Forj=1To4

Fori=1To6

pjf3(j,i)=pjf3(j,i)/bjrs(j)

Nexti

Nextj

'写入各班各科平均分

Sheets("平均分").Select

Fori=1To4

Forj=1To6

ActiveSheet.Cells(i+2,j+1)=pjf3(i,j)

Nextj

Nexti

'写入全校各科平均分

i=7

Forj=1To6

ActiveSheet.Cells(i,j+1)=qxpjf(j)

Nextj

EndSub