班级成绩自动统计表格
- 格式:xls
- 大小:64.50 KB
- 文档页数:1
如何用数据透视表快速统计各班人数、各科平均分、及格人数、优秀人数工作中常用到成绩分析,平均分、及格率、优秀率是其中主要的指标,平均分用Excel 可以直接求出,及格率、优秀率分别用及格人数、优秀人数除以班级人数,班级较少的学校统计起来较为轻松,但是班级多的话则较为复杂且易出错。
对比了多种方法后,发现用数据透视表是最简洁、高效的,现将使用方法总结如下:一、准备工作1、将各班、各科成绩放在同一个Excel表格中,第一行为表头,如姓名、班级、语文、数学等,表中不要有空格,不要有合并单元格。
2、点击表中任意有内容的单元格,再点击:插入----透视表,弹出对话框,默认的单元格区域与我们要统计的表格区域一致即可,透视表存放位置默认新工作表即可,也可以选择现有工作表,需在表中空白区域单击一下,以确定位置。
二、统计各班人数、各科平均分1、在新出现的页面左上角单击数据透视表区域,右边会出现数据透视表控制面板。
如下图:右上角字段列表就是原来表格中的表头,拖动“班级”到下面的“行”区域,“系统考号”到“值”区域。
2、拖入到“值”区域的字段默认为计数,可统计各班人数,左边数据表立即显示。
3、分别将各科字段拖放到至区域,然后单击拖放后的“语文”字段---字段设置----平均值,即可求出语文科目平均值,操作如下图,效果如上图,语数英各科均可操作,并且显示在同一个表中。
3、将统计结果复制、粘贴到需要的位置,注意粘贴为数值。
三、统计各班、各科及格人数、优秀人数1、如图,将字段“班级”拖放到行区域,“语文”拖放到列区域,“系统考号”拖放到值区域,数据表中会出现每个分数出现的人数,有多少个不同的分数就会出现多少个成绩列,在任意分数的单元格:右击----组合---设置起始于(60),终止于(100),步长(40)----确定,即可统计出成绩60----100的各班人数,即及格人数。
2、将统计结果复制、粘贴到需要的位置,注意粘贴为数值。
Excel 进行学生成绩统计分析处理学生成绩时所分析的项目包括参考班级,参考人数、平均分,及格人数、及格率、优秀人数、优秀率,最高分、最低分以及各分数段所占的人数:600分以上人数、500~599 分人数、400~499 人数、300~399 人数、300 分以下人数。
这个统计比较复杂,且工作量大,如果用人工计算,不但效率低,且出错机率大,而用EXCEL函数可以很好解决这个问题。
新建空白Excel工作簿,将自动建立的Sheet1、Sheet2、Sheet3工作表重命名为成绩表、分析表、分数段统计表。
其中各科考试成绩表用于输入各科成绩。
(一)设计各科成绩表在各科考试成绩表第一行中输入分析名称,如“** 中学2007~2008 学年度第一学期高一月考成绩表”,在第二行从A1单元格开始顺序输入记录字段名:考号、姓名、班级、语文、数学、英语、物理、化学等。
假设全级学生有674 人,10个班,所以从第3行到第676 行用来输入所有学生各科的成绩。
1. 求总分:主要用SUM函数,其语法格式为SUM(Ref),此处Ref为参与计算的单元格区域。
例如:SUM(B2:E2)是表示求B2、C2、D2、E2四个单元格内数字的和。
另外还用到SUMIF函数,语法格式为SUMIF(Range,Criteria,Sum_range),其功能是根据指定条件对若干单元格求和,参数Range表示引用,用于条件判断的单元格区域。
Criteria表示数字、表达式或文本,指出哪些单元格符合被相加求和的条件。
Sum_range表示引用,需要求和的实际单元格。
注意:Criteria如果是文本,那么引号应该是半角的,而不是全角的,否则会出错!在O3单元格中输入=sum(F3:N3),便可求出第一个同学韩威的总分,然后选中O3单元格,当右下角出现小”+”字图标时时使用拖拉大法往下自动填充,或左键双击即可.2.排名次:Microsoft Excel中用RANK函数求名次(排序),它的语法为:RANK(Number,Ref,Order) 返回一个数字在数字列表中的排位。
用Excel轻松实现运动会成绩自动统计每年学校的运动会都需要好几个老师统计成绩、核算分数,由于统计项目较多,而且计分法也互不相同,难免会出现错误。
后来我们尝试用Excel来制作运动会成绩统计表,使用后发现它还是很方便的,而且修改也比较容易,来看看我们是如何制作的吧。
成绩统计规则 1.以年级分组竞赛,同一年级组中各班级派出男女代表队参加各项目的比赛。
2.个人项目取前三名作为奖励者,取前六名为班级计分,计分方法是:第一名计6分,第二名计5分……第六名计1分。
只有六人或少于六人参加比赛的个人项目,去掉最后一名。
遇到并列名次则无下一名次,破校记录另加10分。
3.团体项目(如接力赛)若两个队参赛,取一名,3~4队参赛取前两名,5~6个队参赛取前三名……奖励参赛队员并为班级加分,加分的方法是个人计分法的二倍,破校记录也另加10分。
4.班级总分是其男女子队各项目得分总和,同一年级各班按总分排名。
制作自动成绩统计表 1.打开Excel工作簿,根据运动会参加的年级数插入工作表,使工作表的个数等于年级数加1的两倍,分别命名为初一男子、初一女子、初二男子、……、成绩汇总、校记录。
图1 2.在校记录工作表中输入校记录表(如图1)。
图2 3.建立初一男子成绩汇总工作表(如图2)。
4.各竞赛项目名次单元格:某一项目的名次是根据该项目的成绩排列出来的,而个人项目只输入前八名的决赛成绩,所以部分单元格是空值。
用IF函数判断单元格是否为空,为空时不参与排名次,不为空时用RANK函数求出名次。
如在100米名次列中选定J4单元格并输入“=IF(D4〈〉"",RANK(D4,D4:D104,1),"")”,当对应项目100米的成绩单元格D4有成绩时,给出D4在D4:D104单元格区域的名次,没有成绩时显示空白。
行标104是由全校各年级中男运动员或女运动员人数中最大的数加上各年级班级最多的数得到的(只要不小于这个数就可以)。
Excel vba学生各班成绩分析统计及对应模板(修正版)及vba代码。
各班成绩分析统计.xla vba代码(修正版)适合的学校计算方式为:在单科成绩按总分降序排列取前“N”(平均基数)名的基础上求单科平均及对全年级求年级平均,班名及年名在执行一下“清( )”后可自动显示出来,(注意:请修改一下暂坐生标志,防止先删了数据)模块2代码:Sub 清()'清除“姓名”字段中含“N/A”的无效数据。
'清除“姓名”字段中含“a”的暂坐生。
Dim i, j As Integeri = Range("A65536").End(xlUp).RowFor j = 1 To iIf IsError(Cells(j, 3)) ThenRows(j).ClearContentsElseIf InStr(Cells(j, 3), "a") > 0 Then'(”a”为暂坐生标志,模板中“A”为准确暂坐生标志,可自改)Rows(j).ClearContentsEnd IfNextEnd SubSub 统()' ActiveCell.Formula = "=sum(a1:f1)/" & i' ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)/" & i & ""' Application.Run "Book2.xls!Macro1"'清除不必要数据MsgBox "请先设好暂座标志"Application.Run "清"'初始化班级个数平均基数Dim i, m, j, n, o, jm, zh, li, newRange As Integer'Dim i, m, j, n, o, newRange As IntegerDim tellMe As StringOn Error GoTo VeryEndtellMe = "请输入一个平均基数"tellMe2 = "请输入一个准确的最大班级个数"i = Application.InputBox(prompt:=tellMe, Title:="平均基数", Default:=50, Type:=1)m = Application.InputBox(prompt:=tellMe2, Title:="班级个数", Default:=8, Type:=1)If i = False Then Exit SubIf m = False Then Exit SubVeryEnd:'求各班各科平均分'科目Range("D2").Range("A1:I1").SelectSelection.CopyRange("Q2").SelectSelection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _xlNone, SkipBlanks:=False, Transpose:=FalseRange("z2") = "政史"'取得政史列号For jm = 17 To 30If Cells(2, jm) = "政治" Thenzh = jmElseIf Cells(2, jm) = "历史" Thenli = jmEnd IfNext'班级j = 1 '执行的班级个数n = 83 '执行的求平均行号定位o = 3 '执行聚集行号定位While j <= mRange("d" & n & "").FormulaArray = "=A VERAGE(LARGE(R[-80]C:R[-1]C,ROW(R1:R" & i & ")))"Range("d" & n & "").SelectSelection.AutoFill Destination:=ActiveCell.Range("A1:I1"), Type:= _xlFillDefaultActiveCell.Range("A1:I1").SelectSelection.CopyRange("q" & o & "").SelectSelection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _xlNone, SkipBlanks:=False, Transpose:=FalseRange("z" & o & "").SelectOn Error Resume Next'ActiveCell.Formula = Cells(o, zh) + Cells(o, li)'ActiveCell.FormulaR1C1 = "=Application.WorksheetFunction.Sum((Chr( Asc("a") + zh- 1) & o , Chr(Asc("a") + li- 1) & o )"'Chr (Asc("a") + li - 1) & 2 & ":"ActiveCell.FormulaR1C1 = Application.WorksheetFunction.Sum(Cells(o, zh), Cells(o, li))'ActiveCell.FormulaR1C1 = "=SUM(RC[-3],RC[-4])"n = n + 81j = j + 1o = o + 1Wend'求年平均分Range("q" & o & "").SelectActiveCell.FormulaR1C1 = "=SUM(R[-" & m & "]C:R[-1]C)/" & m & ""Selection.AutoFill Destination:=ActiveCell.Range("A1:J1"), Type:= _ xlFillDefaultActiveCell.Offset(0, -1).Range("A1").SelectActiveCell.FormulaR1C1 = "年平"'设置格式为“2”位小数(红色)Range("Q3:Z12").SelectSelection.NumberFormatLocal = "[红色]0.00_ ;[红色]-0.00 "'清空多余列'Dim jm As IntegerFor jm = 17 To 30If Cells(2, jm) = "总分" ThenColumns(jm).ClearContentsElseIf Cells(2, jm) = "年名" ThenColumns(jm).ClearContentsElseIf Cells(2, jm) = "班名" ThenColumns(jm).ClearContentsEnd IfNext'清空无效数据For Each c In Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)) If IsError(c) Thenc.ClearContentsEnd IfNext cEnd SubThisbook代码:Private Sub Workbook_Open()Workbook_AddinInstall 'Add New CommandBarEnd SubPrivate Sub Workbook_AddinInstall()Dim CB As CommandBarControlDim i As Integeri = 1For Each CB In mandBars(1).ControlsIf CB.Caption = "成绩处理" Then '菜单已加入,则刪除mandBars("Worksheet Menu Bar").Controls("成绩处理").Visible = TruemandBars("Worksheet Menu Bar").Controls("成绩处理").DeleteEnd IfNextDim objCmdBrPp As CommandBarPopupSet objCmdBrPp = mandBars.ActiveMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=False)On Error Resume NextobjCmdBrPp.Caption = "成绩处理"Set objCmdBrPp = NothingWith mandBars("Worksheet menu bar").Controls("成绩处理").Controls.Add(Type:=msoControlButton, Before:=1).Caption = "清".Controls("清").OnAction = "清"End WithWith mandBars("Worksheet menu bar").Controls("成绩处理").Controls.Add(Type:=msoControlButton, Before:=1).Caption = "统".Controls("统").OnAction = "统"End With'建立工具栏Dim xBar As CommandBarDim xButton1 As CommandBarButtonDim xButton2 As CommandBarButtonOn Error Resume NextmandBars("CustomBar").DeleteSet xBar = mandBars.Add(Name:="成绩处理", Position:=msoBarTop, MenuBar:=False, Temporary:=False)Set xButton1 = xBar.Controls.Add(Type:=msoControlButton)Set xButton2 = xBar.Controls.Add(Type:=msoControlButton)With xButton1.Caption = "清".Style = msoButtonCaption.OnAction = "清"End WithWith xButton2.Caption = "统".Style = msoButtonCaption.OnAction = "统"End WithWith mandBars("成绩处理").Visible = TrueEnd WithSet xBar = NothingSet xButton1 = NothingSet xButton2 = Nothing'固定工具栏Dim intleft As Integer, introw As Integerintleft = mandBars("formatting").Widthintrow = mandBars("formatting").RowIndexmandBars("成绩处理").Left = intleftmandBars("成绩处理").RowIndex = introw End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean) '文件关闭,就刪除菜单Dim CB As CommandBarControlOn Error Resume NextFor Each CB In mandBars(1).ControlsIf CB.Caption = "成绩处理" ThenmandBars("Worksheet Menu Bar").Controls("成绩处理").Visible = FalsemandBars("Worksheet Menu Bar").Controls("成绩处理").DeleteEnd IfNextOn Error Resume Next'Replace Custom 1 with your custom toolbar name.mandBars("成绩处理").DeleteEnd Sub。
学校对于某年级各教学班的考试成绩分析,一般要统计每个班的参加考试人数、及格率、平均分(或每班前若干名学生的平均分)、学生个体在本教学班中的名次等,如果仅用WPS表格的内置函数计算,则需要一个班一个班的分块后计算,非常麻烦。
笔者通过巧妙组合WPS 表格的内置函数编写出数组公式,简捷方便地完成了以上各种特征量数计算(如图1所示)。
图1 班级学生成绩统计1、每个班参加考试人数假设某年级有4个班,学生总数不大于260名,班号在A列(用01、02、03表示各班号),从261行开始为汇总行。
要统计的是语文学科(C 列)的各班参加考试人数(每个班有得分的学生数,即非空格数),则在要计算各班参加考试人数的纵向连续的第一个单元格C262中输入公式:=SUM((A$2:A$260=0&ROW(A1))*(C$2:C$260<;))按Ctrl+Shift+Enter组合键确认输入后,向下拖动填充到全部班级单元格C262 :C265,即可得到各班的该学科参加考试人数。
上述公式为数组公式,在编辑栏输入这种公式后,必须按Ctrl+Shift+Enter组合键确认,确认后在公式两边自动加上花括号{}(如图2)。
图2 学科实考统计三联推荐:点击免费下载最新版WPS办公软件》》查看更多电脑教程公式解释:将班号列所在区域A$2:A$260为某班(0&ROW(A1))和某学科考分列所在区域C$2:C$260为非空单元格 (<;)两个条件做乘法运算。
当两个条件都成立时返回1(TRUE* TRUE=1),否则返回0(TRUE* FALSE=0、FALSE *TRUE =0、FALSE * FALSE=0)。
逻辑判断的结果组成0、1数组,通过函数SUM()将所有的0、1值求和,得出该学科参加考试人数。
2、每个班所有考生的总平均分假设E列为总分列,在要计算各班总平均分的纵向连续的第一个单元格E262中输入数组公式:=AVERAGE(IF(A$2:A$260=0&ROW(A1),E$2:E$260))按Ctrl+Shift+Enter组合键确认后向下拖动填充到全部班级单元格E262 :E265,得到每个班所有考生的平均分(如图3)。
如何用WPS表格做学生成绩管理WPS表格作为一款功能强大且易用的办公软件,在学生成绩管理方面有着诸多应用。
通过合理利用WPS表格的各项功能,我们可以轻松实现学生成绩的录入、统计、分析和展示,为教师和学生提供便捷的管理与参考。
下面就让我们一起来学习如何用WPS表格进行学生成绩管理吧!1.创建成绩表格首先打开WPS表格软件,新建一个表格文件作为学生成绩管理表。
在第一行输入学生姓名、学号、班级等信息的列标题,在接下来的行中逐个录入各位学生的相关数据。
2.成绩录入与计算在相应的单元格中录入学生成绩数据,可以根据需要设置成绩等级、分数段等内容。
利用WPS表格提供的函数,如SUM、AVERAGE等,可以方便地对成绩进行统计和计算,得出平均分、最高分、最低分等信息。
3.成绩分析与图表展示利用WPS表格强大的数据分析功能,可以对成绩数据进行深入分析。
通过制作柱状图、折线图等图表,直观地展示学生成绩的分布情况,帮助教师快速发现学生的学习状况和存在的问题。
4.设置筛选与排序通过筛选功能,可按照需要筛选出各个班级、科目的成绩数据,进行对比分析。
可以利用排序功能,对成绩进行升序或降序排列,便于查看学生成绩的排名情况。
5.导出与共享完成成绩管理后,可以将表格导出为PDF、Excel等格式,方便与教师、学生、家长共享成绩信息。
也可以通过云盘等方式进行备份,确保数据安全。
通过以上几个步骤,我们可以利用WPS表格高效进行学生成绩管理,提高成绩管理的效率和准确性,为教学工作提供有力支持。
使用WPS表格进行学生成绩管理,能够帮助教师更好地了解学生的学习情况,及时调整教学方法,帮助学生提高学习成绩,是提高教学质量和管理效率的重要工具。
希望以上内容能够对大家在学生成绩管理方面提供一些帮助和启发,让我们共同利用现代化办公软件,提升教育管理水平,实现教育教学工作的可持续发展。