一键制作登分表
一年级语文半期检测登分表
一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 一（7） 班骑 陈琴 左云鹤 张炜 吴显昊 王阳 宋佳璘 许荣林 吴依依 孙碟 鲁岚旭 王可欣 陈洁玉 甘子烨 张艳 程佳洁 张志惠 谭焱乙 段名鸿 陈儒松 王羽 吴迪 王建溪 高家鑫 张凯旋 徐榕键 周玉杭 曾艺舟 余子谦 妙锦颜 蒋泉粞 伍启东 黄雨乐 郭维进 宋江林 高家驹 黄雪瑶 陈伟 杨宇豪 刘芸希 孙国荣 刘丹阳 刘恩鸿 周思成 程曦葶 94 89 83 87 84.5 88.5 93.5 92.5 80 91 89.5 88 85 63.5 79 93.5 80.5 66 88 72.5 79 83 77 59.5 66 71 83 75 0 66 67.5 96 85 66 73 72 61 64.5 63.5 63 81 83.5 45 94 68 一（1） 一（1） 一（1） 一（1） 一（1） 一（1） 一（1） 一（1） 一（1） 一（1） 一（2） 一（2） 一（2） 一（2） 一（2） 一（2） 一（2） 一（2） 一（2） 一（2） 一（2） 一（3） 一（3） 一（3） 一（3） 一（3） 一（3） 一（3） 一（3） 一（3） 一（3） 一（3） 一（4） 一（4） 一（4） 一（4） 一（4） 一（4） 一（4） 一（4） 一（4） 一（4） 一（5） 一（5） 一（5） 7 14 21 28 35 42 49 56 63 70 77 84 91 98 105 112 119 126 133 140 147 154 161 168 175 182 189 196 203 210 217 224 231 238 245 252 259 266 273 280 287 294 301 308 315
七年级期中成绩登分表
考号 姓名 语文 数学 英语 物理 化学 政治 历史 地理 生物 总分 班级 年级 考号 名次 名次 姓名 语文 数学 英语 物理 化学 政治 历史 地理 生物 总分 达 班级 年级 名次 名次 7401 周畅游 7402 张兰馨 7403 邹 彬 7431 程
Hale Waihona Puke 7432 卢方国喜 7433 占 曼
7442 王金奥 7443 陈 潇
7444 陈博成 7445 林茗枫 7446 刘 欢
7447 霍俊林 7448 秦 澳
7418 王琳臻 7419 余 浩
7449 欧阳润 7450 孙 奥
7420 周钰婷 7421 陈佳洋 7422 黄 7423 邵 鑫 金
7451 汤琮鑫 7452 冯楚文 7453 袁 盈
7404 童靖林 7405 金子祥 7406 霍易欢 7407 邵思益 7408 何 蕤
7434 刘军军 7435 杨 7436 熊 笛 娜
7437 邵诗文 7438 万家圆 7439 陈思宇 7440 张聪文 7441 王 鑫
7409 曹雅欣 7410 杨 婷
7411 汪国鹏 7412 漆宝文 7413 汪 7414 王 7415 徐 7416 潘 7417 周 倩 田 飞 琰 煜
7424江张高科 7425 童欣妍 7426 汪勃策 7427 殷鹏飞 7428 汪幕茹 7429 张 正
7454 易文俊 7455 王 7456 何 7457 王 胜 鑫 鑫
7458 王馨怡
7430 倪彤璐
高一下学期期中考试登分表
班级 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 2 2 3 3 2 1 3 2 3 1 1 1 3 1 1 1 1 1 1 考号 120105 120101 120103 120104 120106 120102 120124 120108 120107 120109 120120 120125 120119 120113 120111 120110 120126 120130 120127 120115 120112 120201 120118 120128 120129 120208 120123 120121 120204 120226 120230 120206 120116 120117 120228 120325 120220 120114 120212 120221 120323 120122 120217 120223 王 马 李 刘 郑 张 殷 徐 谢 张 张 李 冯 李 朱 张 王 李 华 张 申 支 娄 王 曾 陈 江 王 黄 田 周 万 徐 熊 丁 谢 陈 何 田 陈 陈 车 胡 刘 姓名 玉 立 秋 瑞 明 慧 玉 荣 月 鑫 兆 彤 甜 甜 紫 鑫 晓 明 悦 宏 波 玲 玲 晓 月 先 瑶 云 倩 庆 娟 雪 芹 春 茹 溢 涵 雪 冬 浩 春 月 杰 飞 杨 嫚 嫚 涛 玉 爱 园 佳 佳 敏 兆 锋 方 笑 玉 婷 娅 仙 溪 满 娅 兰 邦 荣 利 书 香 芳 殿 强 晓 龙 旭 冉 语文 106 101 108 93 108 102 99 96 103 111 105 92 100 97 109 104 105 109 94 109 91 81 100 95 97 103 99 98 100 100 97 100 88 99 103 83 87 97 98 91 82 71 88 90 数学 131 115 132 135 106 114 127 103 93 84 76 88 94 99 66 66 87 92 78 72 80 84 49 76 92 46 65 70 87 91 98 62 54 90 46 71 73 68 59 63 101 88 84 56 英语客观分 英语主观分 政／物 历／化 地／生 总分 576 568 550 545 545 542 538 517 516 513 512 508 494 488 487 486 480 480 479 469 465 461 460 455 455 455 453 450 448 448 448 446 440 436 436 434 432 429 426 426 425 424 422 421
七年级登分表
班级 701 701 704 703 702 705 702 704 703 704 701 702 704 702 705 702 702 704 705 703 703 701 705 701 701 702 702 704 702 705 702 701 702 703 701 701 702 703 学生姓名 陈宇霓 黄子怡 张敏华 陈迎悦 吴彤欣 陈毅涵 郑晓璇 陈晓芬 蔡佳虹 陈君焕 吴锦湘 郑丹杰 张可莹 廖俊杰 陈悦燕 张泽森 陈凯纯 罗炜彬 萧韵 张泽帆 吴佳楠 彭飘仪 林佳敏 李伟鹏 李灿植 林雁 林婉儿 郭钦豪 肖镜铭 林婉 郑盈庆 张晓蓉 郑沛生 张朝轩 李佳鑫 林齐 张东健 郭塬锴 语文 98 93.5 94 92.5 93.5 88.5 90 95.5 87.5 92 96.5 90 94 92.5 92 91 90 92.5 94 86 92.5 81 95 91 81 92 84 87 87 87 89 89 82 82 81.5 83.5 89.5 84.5 科目 数学 120 116 110 113 109 112 113 103 111 106 101 115 106 102 102 101 100 101 93 105 94 104 88 93 111 94 104 109 100 102 97 93 107 102 108 101 92 96 英语 103 100.5 100 96.5 99 97 93 95 94.5 93.5 93.5 84 89 93.5 94 93 94.5 90.5 94 87.5 91.5 92.5 94 92.5 84.5 90.5 87 78.5 86.5 84.5 87 90.5 83 86 79 83.5 86.5 87 总分 321 310 304 302 301.5 297.5 296 293.5 293 291.5 291 289 289 288 288 285 284.5 284 281 278.5 278 277.5 277 276.5 276.5 276.5 275 274.5 273.5 273.5 273 272.5 272 270 268.5 268 268 267.5 排名 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
小学一(1)班学生登分表
小学一（1）班学生登分表2006.9
小学一（2）班学生登分表 2006.9学科
2006.9
小学二（2）班学生登分表2006.9
小学三（1）班学生登分表2006.9
小学三（2）班学生登分表 2006.9
2006.9学科
2006.9
2006.9
小学四（2）班学生登分表2006.9
小学四（3）班学生登分表 2006.9
小学四（4）班学生登分表 2006.9
学科
小学五（1）班学生登分表2006.9
小学五（2）班学生登分表2006.9
小学五（3）班学生登分表2006.9
小学五（4）班学生登分表2006.9
学科
小学五（5）班学生登分表2006.9
小学五（6）班学生登分表2006.9
小学六（1）班学生登分表2006.9
六（2）班学生登分表2006.9
六（3）班学生登分表2006.9
预备（1）班学生登分表 2006.9
预备（2）班学生登分表2006.9
预备（3）班学生登分表 2006.9
预备（4）班学生登分表 2006.9
预备（5）班学生登分表 2006.9
预备（6）班学生登分表 2006.9。
一键分析统计学生成绩及生成排好版的全年级排名表与各班表
一键分析统计学生成绩及生成排好版的全年级排名表与各班表『修正版』可在/share/home?uk=2902695957#category/type=0下载模板及.xla文件。
分析统计各科平均分及年级平均分并生成（年名表与班名表）'统计基础："各单科"成绩按本身降序排列取前N名或"各班"成绩按总分降序排列取前N名(包括与第N名相同总分)*********（不用手动排序，排名，在模板上点“统”一键生成）xel7000自动化工具.xla 模块代码：（模板与对应源表放在同一文件夹打开会自动取得数据，工具—加载宏加载.xla）Public Sub 每类一页() '前提是排好类别,每班1页,按性别2页Option ExplicitPublic Sub 每类一页() '前提是排好类别,每班1页,按性别2页Application.ScreenUpdating = False'On Error Resume NextDim a As Range, srange As Range, fvalue As String, c, d, fFlag, ss, i, n, p As Integer, rend, j As Long, _sCol As Long, StartRow As Long, EndRow As Long, sc As Single'找到分类依据********************************fvalue = InputBox("请输入分页依据的类别", "类别", "班级")If Len(fvalue) = 0 Then Exit SubFor Each a In Intersect(Rows("1:4"), edRange) '只找了前4行冻结'If (CStr(a.Value) = fvalue) ThenIf StrComp(CStr(a.Value), fvalue, vbTextCompare) = 0 Thena.SelectfFlag = 1c = a.Rowd = a.Column'MsgBox "查找成功"End IfNextIf fFlag <> 1 Then MsgBox "找不到包含【" & fvalue & "】的字段单元格。
用Excel制作自动评分计算表
用Excel制作自动评分计算表[文章导读]Excel自动评分计算表功能：去掉最高分和最低分后，求出平均分，根据平均分的高低排定选手的名次……[编者]前面我们介绍了《Excel常用函数的功能和使用方法》，现在单位里经常开展各种各样的知识竞赛，我们可以用Excel制作一个方便实用的自动评分计算表，可以快速自动完成成绩的统计和名次的计算。
文章末尾提供.xls文件供大家下载参考。
Excel自动评分计算表功能：参加比赛的选手为20人，评委9人，去掉1个最高分和1个最低分后，求出平均分，然后根据平均分的高低排定选手的名次。
本实例所涉及到的函数有：SUM(Number1,Number2……)MAX(number1,number2……)MIN(number1,number2……)RANK(Number,ref,order)一、评委评分表的制作1、启动Excel2003，新建一空白工作簿。
2、在Sheet1工作表中，仿照如图1所示的样式，制作一份空白表格。
3、执行“文件→保存”命令（或按“Ctrl+S”组合键），打开“另存为”对话框（如图2）。
4、单击工具条上“工具”按钮，在随后出现的下拉列表（参见图2）中，选择“常规选项”，打开“保存选项”对话框（如图3），设置好“打开权限密码”后，确定返回。
注意：①密码需要重新确认输入一次。
②此处只需要设置“打开权限密码”，如果设置了“修改权限密码”，则评委在保存评分时，必须提供密码，反而造成不须要的麻烦。
5、然后取名（如1.xls）保存。
6、再执行“文件→另存为”命令，再次打开“另存为”对话框，然后仿照上面的操作重新设置一个密码后，另取一个名称（如2.xls）保存一下。
7、重复第6步的操作，按照评委数目，制作好多份工作表（此处为9份）。
二、汇总表的制作1、新建一工作簿，仿照如图4所示的样式，制作一张空白表格。
（图片较大，请拉动滚动条观看）2、分别选中B3至J3单元格，依次输入公式：=[1.xls]sheet1!B3、=[2.xls]sheet1!B3……=[3.xls]sheet1!B3，用于调用各评委给第一位选手的评分。
一键生成考试成绩分析评比模板
合计 平均
段 名 次
课
综合平均
老
师 姓 前80名 前20名 名
合计 平均
年 级 名 次
任课 老师 姓名
综合平均
前80名 前20名
合计 平均
年 级 名 次
任课
综合平均
老师
姓名 前80名 前20名
合计 平均
年 级 名 次
前80名
前20名
单班 平均
双班 平均
级 总 名 次
1 班主任1
93.21 100.10
20.10 29.80
16.56 24.38
44.50 51.53
历 1
26.36 30.90 28.26
2
329.2 405.2 367.2
4
4
0
5 班主任5
93.25 97.35
55.30 71.45
70.40 93.05
20.18 26.15
17.58 24.15
46.11 50.70
26.30 31.25
65.23 3 1
84.08 3
360.6 6
20
班主任 20
0
91.09 97.55
0 53.14 71.55
0 71.83 99.50
19.55 28.60
15.49 25.40
44.81 53.25
24.74 30.70
320.6 406.6 363.6
7 20
0
教研组1（马月 贾 立新 张虹）
****九年级第4次月考成绩统计明细表
语文
数学
英语
物化
化学
政治
历史
年
班 级
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一键制作学校期中（期末）登分表
可在百度云盘：/share/link?shareid=344407&uk=2902695957下载
在以期中或（期末）成绩按班名升序排列的成绩表基础上（见样表）
一键制作学校期中（期末）登分表。
点击“"1j登分"按钮就可”
Thisworkbook代码：
PrivateSubWorkbook_Open()
menu
EndSub
PrivateSubWorkbook_BeforeClose(CancelAsBoolean)
EndSub
模块1代码：
Submenu()
DimHqMenuAsCommandBarButton DimmycontrolAsCommandBarControl
mandBars("xel7000").Controls Ifmycontrol.Caption="1j登分"Thenmycontrol.OnAction="一键制作登分表"'按下菜单执行的命令,自行链接功能程序
Next
EndSub
Sub一键制作登分表()
DimlngMrowAsLong,iAsLong,intArr(1To8)AsInteger
DimintBj,inttjAsInteger,strName,tj,currennameAsString DimdfnameAsWorkbook
currenname=
Setdfname=Workbooks.Add(Template:="E:\个人用\自动排版\xel7000自动化办公工具集成包\考试制表取巧法\登分表.xlt")’文件路径可修改
'分班并累加1
Fori=1To8
intArr(i)=1
Nexti
lngMrow=Workbooks(currenname).Sheets("Sheet1").Range("A"&Rows.Count).End( xlUp).Row
Fori=3TolngMrow
IfLen(Trim(Workbooks(currenname).Sheets("Sheet1").Cells(i,1).V alue))>0Then
inttj=Mid(Workbooks(currenname).Sheets("Sheet1").Cells(i,1).V alue,1,1)'取得年级号
intBj=Mid(Workbooks(currenname).Sheets("Sheet1").Cells(i,1).V alue,2,1)'取得班级
号
strName=Workbooks(currenname).Sheets("Sheet1").Cells(i,2).V alue
Workbooks().Sheets("Sheet1").Cells(intArr(intBj)+1,(intBj-1)*3+1).V al ue=inttj&intBj&Format(intArr(intBj),"00")
Workbooks().Sheets("Sheet1").Cells(intArr(intBj)+1,(intBj-1)*3+2).V al ue=strName
intArr(intBj)=intArr(intBj)+1
EndIf
Nexti
If(inttj=1)Then
tj="一"
ElseIf(inttj=2)Then
tj="二"
Else
tj="三"
EndIf
Workbooks().SaveAsFilename:=Workbooks(currenname).Path&"\"&"期初"&tj&"登分表.xls"
EndSub。