某区七年级有3000名学生参加“安全伴我行知识竞赛”活动．为了了解本次知识竞赛的成绩分布情况，从中抽取了若干名学生的得分（得分取正整数，满分为100分）进行了分组统计．（除最后一组外，每组含最小值，不含最大值）
请你根据不完整的频率分布表，解答下列问题：
（1）补全以上频数分布表和频数分布直方图；
（2）请你估计全区七年级学生中得分超过80分（含80分）的学生人数有多少？低于60分的学生人数有多少？
提 示 请您或[登录]之后查看试题解析 惊喜：新手机注册免费送10天VIP和20个雨点！无广告查看试题解析、半价提问范文大全分类求助：考试成绩合并
文件夹【三科考试成绩合并】里有3个文件夹分别是【语文】，【数学】，【英语】和1个execl工作簿【三科考试成绩合并.xls】
求助要求：
1、打开execl工作簿【三科考试成绩合并.xls】在【三科考试成绩合并】工作表中按一下【三科考试成绩合并】按钮，自动复制（或提取）【语文】，【数学】，【英语】三个文件夹里的工作簿中的【成绩录入】工作表黄色底纹区域粘贴到【三科考试成绩合并.xls】在【三科考试成绩合并】工作表中并自动计算个人三科总分（在该工作表中我已手动复制粘贴的效果）
2、在【各年级总分前20名 名单】工作表中，按一下【提取各年级前20名 各班前10名】按钮，自动提取各年级前20名和各班前10名的学生名单（包括成绩）到【各年级总分前20名 名单】工作表中
(387.73 KB, 下载次数: 39)
10:50 上传
下载次数: 39
在线时间2550 小时经验1216 威望0 最后登录注册时间阅读权限50UID1254158积分1216帖子精华0分享0
EH高级, 积分 1216, 距离下一级还需 784 积分
积分排行871帖子精华0微积分0
太复杂了，题目要看半天
在线时间1042 小时经验1862 威望0 最后登录注册时间阅读权限50UID655303积分1912帖子精华0分享0
EH高级, 积分 1912, 距离下一级还需 88 积分
积分排行534帖子精华0微积分0
工作表多，倒也不是很复杂，午饭后再来研究
在线时间2550 小时经验1216 威望0 最后登录注册时间阅读权限50UID1254158积分1216帖子精华0分享0
EH高级, 积分 1216, 距离下一级还需 784 积分
积分排行871帖子精华0微积分0
LIUZHU 发表于
工作表多，倒也不是很复杂，午饭后再来研究
向你学习一下吧
在线时间1042 小时经验1862 威望0 最后登录注册时间阅读权限50UID655303积分1912帖子精华0分享0
EH高级, 积分 1912, 距离下一级还需 88 积分
积分排行534帖子精华0微积分0
楼主有两个问题，一个是成绩合并，一个是排名，先放一个成绩合并的Private Sub CommandButton1_Click()
& & Dim Arr(1 To 10000, 1 To 13), Brr(), Crr()
& & Dim i%, r%, k%, n%, m%
& & Dim Wbname$
& & Dim Dic1 As New Dictionary
& &
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& &
& & Crr = Array(&语文&, &数学&, &英语&)
& & For k = 0 To UBound(Crr)
& && &&&Wbname = Dir(ThisWorkbook.Path & &\& & Crr(k) & &\*.xls*&)
& && &&&Do While Len(Wbname)
& && && && &Workbooks.Open Filename:=ThisWorkbook.Path & &\& & Crr(k) & &\& & Wbname
& && && && &With ActiveWorkbook.Sheets(&成绩录入&)
& && && && && & r = .Range(&B& & .Rows.Count).End(xlUp).Row
& && && && && & If r &= 5 Then Brr = .Range(&A5:P& & r).Value Else GoTo 100
& && && && &End With
& && && && &
& && && && &For i = 1 To UBound(Brr)
& && && && && & If Dic1.Exists(Brr(i, 16) & Brr(i, 2)) Then
& && && && && && &&&n = Dic1(Brr(i, 16) & Brr(i, 2))& && && && &'提取姓名所在的行
& && && && && & Else
& && && && && && &&&n = n + 1& && && &&&'对不存在的姓名另取一行
& && && && && && &&&Dic1(Brr(i, 16) & Brr(i, 2)) = n
& && && && && & End If
& && && && && &
& && && && && & Arr(n, 1) = Brr(i, 15)& && && & '年级
& && && && && & Arr(n, 2) = Brr(i, 16)& && && &&&'班级
& && && && && & Arr(n, 3) = Brr(i, 1)& && && &&&'学号
& && && && && & Arr(n, 4) = Brr(i, 2)& && && &&&'姓名
& && && && && & Arr(n, 5 + k) = Brr(i, 13)& && && &&&'期中考试成绩
& && && && && & Arr(n, 8) = Arr(n, 8) + Arr(n, 5 + k)& && && &&&'期中考试总分
& && && && && & Arr(n, 10 + k) = Brr(i, 14)& && && && & '期末考试成绩
& && && && && & Arr(n, 13) = Arr(n, 13) + Arr(n, 10 + k)& && && && & '期末考试总分
& && && && &Next
100:
& && && && &ActiveWorkbook.Close False
& && && && &Wbname = Dir
& && &&&Loop
& & Next
& &
& & '清除数据和边框
& & Rows(&4:& & Rows.Count).ClearContents
& & Rows(&4:& & Rows.Count).Borders.LineStyle = xlNone
& &
& & '写入数据和重新设置边框
& & Range(&A3&).Resize(n, 13).Value = Arr& && && &&&'写入数据
& & Range(&A3&).Resize(n, 8).Borders.LineStyle = xlContinuous
& & Range(&J3&).Resize(n, 4).Borders.LineStyle = xlContinuous
& &
& & Application.ScreenUpdating = True
& & MsgBox &合并完成。&
End Sub复制代码
在线时间1042 小时经验1862 威望0 最后登录注册时间阅读权限50UID655303积分1912帖子精华0分享0
EH高级, 积分 1912, 距离下一级还需 88 积分
积分排行534帖子精华0微积分0
附件在此，请楼主审核
15:14 上传
下载次数: 36
498.9 KB, 下载次数: 36
本帖评分记录鲜花
总评分:&鲜花 + 2&
在线时间1042 小时经验1862 威望0 最后登录注册时间阅读权限50UID655303积分1912帖子精华0分享0
EH高级, 积分 1912, 距离下一级还需 88 积分
积分排行534帖子精华0微积分0
关于提取总分和名次，楼主没有明确，到底是按期中考试提取，还是按期末考试成绩提取？
在线时间380 小时经验131 威望0 性别男最后登录注册时间阅读权限20UID567325积分131帖子精华0分享0
EH初级, 积分 131, 距离下一级还需 219 积分
积分排行3000+帖子精华0微积分0
LIUZHU 发表于
关于提取总分和名次，楼主没有明确，到底是按期中考试提取，还是按期末考试成绩提取？
谢谢你的帮助！谢谢！
其实两个都要，应该有两个按钮的（一个是期中考试，一个是期末考试），我忘记了。能设计吗？
在线时间380 小时经验131 威望0 性别男最后登录注册时间阅读权限20UID567325积分131帖子精华0分享0
EH初级, 积分 131, 距离下一级还需 219 积分
积分排行3000+帖子精华0微积分0
LIUZHU 发表于
附件在此，请楼主审核
谢谢你的帮助，请老师你帮忙看看能不能实现
& & 本文件夹里有3个文件夹，分别是【语文】，【数学】，【英语】和一个execl工作簿【三科总分统计.xls】，打开【三科总分统计.xls】工作簿会看到两个按钮【期中考试统计】，【期末考试统计】，按一下就能自动统计【语文】，【数学】，【英语】三个文件夹里面各班和各年级学生考试成绩三科总分的统计表【按本页两个统计表的内容统计】
注：（1）1、2年级语文、数学二科统计总分：满分200分，优秀≥180分，合格≥120分，后进＜80分。
& && & （2）3—6年级语文、数学、英语三科统计总分：满分300分，优秀≥240分，合格≥180分，后进＜120分。
(399.18 KB, 下载次数: 10)
18:37 上传
下载次数: 10
在线时间1042 小时经验1862 威望0 最后登录注册时间阅读权限50UID655303积分1912帖子精华0分享0
EH高级, 积分 1912, 距离下一级还需 88 积分
积分排行534帖子精华0微积分0
hyw11 发表于
谢谢你的帮助，请老师你帮忙看看能不能实现
& & 本文件夹里有3个文件夹，分别是【语文】，【数学】，【英 ...
这个增大了难度，等于先要汇总，然后再分析统计
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&}