开发学院WEB开发综合 Excel中的“宏”的应用 阅读

Excel中的“宏”的应用

 2006-02-27 11:41:22 来源:WEB开发网   
核心提示:office/9.shtml'target='_blank'class='article'>Excel的强大优势还在于它提供的宏语言VisualBasicforapplication(VBA).VisualBasic是windows环境下开发应用软件的一种通用程序设计语言,
office/9.shtml'target='_blank'class='article'>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

⑶平均分

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
   Sum=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

⑷分数段

Sub分数段()
 Constmax=600
 Constmin=390
 Conststudentno=190
 Constbjnum=4
 Constfsdnum=22
 Dimbjfsd(bjnum,fsdnum),zf(studentno,2)
 Sheets("高三理").Select
 Fori=1Tostudentno
  zf(i,1)=ActiveSheet.Cells(i 1,1)注释:存放班级
  zf(i,2)=ActiveSheet.Cells(i 1,11)注释:存放总分
 Nexti

 Fori=1Tostudentno
  Forj=1To4注释:3---6班共4个班级
   Ifzf(i,1)=j 2Then
    Fork=maxTominStep-10
     low=Int((max 10-k)/10)
     Ifzf(i,2)>kThenbjfsd(j,low)=bjfsd(j,low) 1
    Nextk
   EndIf
  Nextj
 Nexti
 Sheets("sheet3").Select
 Fori=3To6
  Fork=1Tofsdnum
   ActiveSheet.Cells(i,k 1)=bjfsd(i-2,k)
  Nextk
 Nexti
 Range("M3:W6").Select
 Selection.Cut
 ActiveWindow.LargeScrollToRight:=-1
 Range("B8").Select
 ActiveSheet.Paste
EndSub

⑸删除

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
EndSub

->

Tags:Excel 应用

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接