利用Excel 的宏功能来做学生成绩的分析处理程序Word下载.docx
- 文档编号:6508303
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:8
- 大小:276.97KB
利用Excel 的宏功能来做学生成绩的分析处理程序Word下载.docx
《利用Excel 的宏功能来做学生成绩的分析处理程序Word下载.docx》由会员分享,可在线阅读,更多相关《利用Excel 的宏功能来做学生成绩的分析处理程序Word下载.docx(8页珍藏版)》请在冰点文库上搜索。
"
记录宏"
其实就是将工作的一系列操作结果录制下来,并命名存储(相当于VB中一个子程序)。
在Excel97中,"
仅记录操作结果,而不记录操作过程。
例如,改变文字字体时,需要打开"
字体"
栏中的下拉列表,再选择一种字体,这时文字即变为所选择的字体,这是一个过程,结果是将所选择的文字改变为所选择的字体。
而"
则只记录"
将所选择的文字改变为所选择的字体"
这一结果。
Excel97中工作表是由行和列组成的二维表格,我们可以通过系统提供的语句activesheet.cells(I,j),将当前工作表中的第I行第j列所在的单元格中的数据取出(也可将它数据填入到指定的单元格中),然后反把它放入所定义的数组中,这时就可以对其进行各种操作,如求平均分、总分、分数段人数等等。
本人就利用Excel97中所提供的宏功能来做学生成绩的分析处理程序。
本程序是Excel中的一个文件,其中包含以下几个宏:
分班、总分、平均分、分数段、删除等。
【简介】
利用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)
先建立各个班级的工作表
Sheets("
).CopyAfter:
=Sheets("
分数段"
)
高三理
(2)"
).Name="
33"
Fori=2Tostudentno
Forj=1Tozdno
ActiveSheet.Cells(i,j)=Space$
(1)
Nextj
Nexti
Range("
a1"
Fori=1Tozdno
ActiveSheet.Cells(1,i)=zd$(i)
34到36班工作表的建立
Fori=34To36
x$=Mid$(Str(33),2)
Sheets(x$).Select
Sheets(x$).CopyAfter:
Sheets(x$+"
(2)"
).Name=Mid$(Str(i),2)
具体分班。
Fork=33To36
bjrs=0
x$=Mid$(Str(k),2)
no=kMod10
Ifbj(i)=noThen
bjrs=bjrs+1
bjname$(bjrs)=nam$(i)
Forj=3Tozdno
stu(bjrs,j)=a(i,j)
Nextj
EndIf
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("
Fori=2Tostudentno+1
Sum=0
Forj=1Toxknum
Sum=Sum+ActiveSheet.Cells(i,j+3)
Nextj
ActiveSheet.Cells(i,zdnum-1)=Sum
三.平均分
Sub平均分()
Dimfs(studentno,xknum),pjf3(4,6),bjrs(4),qxpjf(6)
Dimbj(studentno)
以下程序段用于求全校平均分
Fori=1Tostudentno
bj(i)=ActiveSheet.Cells(i+1,1)
Forj=1Toxknum
fs(i,j)=ActiveSheet.Cells(i+1,j+3)
Fori=1Toxknum
Sum=0
Forj=1Tostudentno
um=Sum+fs(j,i)
qxpjf(i)=Sum/(j-1)
以下程序段用于求各班平均分
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
Nexti
Forj=1To4
Fori=1To6
pjf3(j,i)=pjf3(j,i)/bjrs(j)
Nextj
写入各班各科平均分
平均分"
Fori=1To4
Forj=1To6
ActiveSheet.Cells(i+2,j+1)=pjf3(i,j)
写入全校各科平均分
i=7
Forj=1To6
ActiveSheet.Cells(i,j+1)=qxpjf(j)
四.分数段
Sub分数段()
Constmax=600
Constmin=390
Constbjnum=4
Constfsdnum=22
Dimbjfsd(bjnum,fsdnum),zf(studentno,2)
zf(i,1)=ActiveSheet.Cells(i+1,1)'
存放班级
zf(i,2)=ActiveSheet.Cells(i+1,11)'
存放总分
Nexti
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
sheet3"
Fori=3To6
Fork=1Tofsdnum
ActiveSheet.Cells(i,k+1)=bjfsd(i-2,k)
M3:
W6"
Selection.Cut
ActiveWindow.LargeScrollToRight:
=-1
B8"
ActiveSheet.Paste
五.删除
Sub删除()
ActiveWindow.SelectedSheets.Delete
34"
35"
36"
-
六.本程序的界面及各个宏运行的结果
平均分统计结果:
总分统计结果:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 利用Excel 的宏功能来做学生成绩的分析处理程序 利用 Excel 功能 学生 成绩 分析 处理 程序