盘绰网教程:是一个免费提供流行视频软件教程、在线学习分享的学习平台!

Excel宏的应用-成绩区分处理程序

时间:2023/1/16作者:未知来源:盘绰网教程人气:


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

    Excel电子表格软件是应用最广泛的软件之一,它的数据处理、图表功能及各种函数和工具深受广大用户的喜爱。Excel文件是一个工作薄,一个工作薄最多可以包含255个工作表,每个工作表又可以包含大量的数据。   Excel的强大优势还在于它提供的宏语言Visual Basic for Application(VBA).Visual Basic是windows环境下开发应用软件的一种通用程序设计语言,功能强大,简便易用。VBA是它的一个子集,可以广泛地应用于Microsoft公司开发的各种软件中,例如Word、Excel、Access等。   那么,"宏"到底是什么呢?   在Excel 97中,"宏"是一个难以理解的概念,但对于一个具体的"宏"而言,却是容易理解的,如果说"将一块文字变为'黑体',字号为'三号'"就可以看作一个"宏"的话,那么"宏"就不难理解了,其实Excel 97中的许多操作都可以是一个"宏"。   "记录宏"其实就是将工作的一系列操作结果录制下来,并命名存储(相当于VB中一个子程序)。在Excel 97中,"记录宏"仅记录操作结果,而不记录操作过程。例如,改变文字字体时,需要打开"字体"栏中的下拉列表,再选择一种字体,这时文字即变为所选择的字体,这是一个过程,结果是将所选择的文字改变为所选择的字体。而"记录宏"则只记录"将所选择的文字改变为所选择的字体"这一结果。   Excel 97中工作表是由行和列组成的二维表格,我们可以通过系统提供的语句activesheet.cells(I,j),将当前工作表中的第I行第j列所在的单元格中的数据取出(也可将它数据填入到指定的单元格中),然后反把它放入所定义的数组中,这时就可以对其进行各种操作,如求平均分、总分、分数段人数等等。   本人就利用Excel 97中所提供的宏功能来做学生成绩的分析处理程序。本程序是Excel中的一个文件,其中包含以下几个宏:分班、总分、平均分、分数段、删除等。

    本程序是以本校高三理科班学生成绩进行分析。   有关程序中用到的几具宏的功能说明:   分班:针对于难以确定班级的情况下,以班为单位进行分班,本宏可以作为高一新生入学时进行分班的功能。   总分:对原始的成绩自动求总分。   平均分:对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。   分数段:给定一个最高分数及最低分数,然后统计出各班各个分数段的人数,各分数段人数进行累计。   删除:用于删除不用的工作表。   现将各个宏的代码列举如下:     一.分班    Sub 分班()Const studentno = 191 '学生人数Const zdno = 12 '字段数Dim zd$(zdno) '定义为12个字段的数组Dim a(studentno, zdno), stu(60, zdno)Dim nam$(studentno), bjname$(60) '定义一个存放全校学生名字及各班学生名字的数组Dim bj(studentno) '定义存放班级的一个数组'理科班工作表Sheets("高三理").SelectFor 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 jNext i'存放字段到数组中。For i = 1 To zdno zd$(i) = ActiveSheet.Cells(1, i)Next i'先建立各个班级的工作表  Sheets("高三理").Select  Sheets("高三理").Copy After:=Sheets("分数段")  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("分数段")  Sheets(x$ + " (2)").Select  Sheets(x$ + " (2)").Name = Mid$(Str(i), 2)  Next i

[next]

'具体分班。 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 kEnd Sub   &

Office办公软件是办公的第一选择,这个地球人都知道。除了微软Office,市面上也存在很多其他Office类软件。

关键词:  Excel宏的应用-成绩区分处理程序





Copyright © 2012-2018 盘绰网教程(http://www.panchuo.com) .All Rights Reserved 网站地图 友情链接

免责声明:本站资源均来自互联网收集 如有侵犯到您利益的地方请及时联系管理删除,敬请见谅!

QQ:1006262270   邮箱:kfyvi376850063@126.com   手机版