ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: lzqlaj

考试成绩三率统计

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2016-4-30 08:18 | 显示全部楼层
lsc900707 发表于 2016-4-29 23:07
大师,先谢谢你的辛勤劳动。
对不起,忘了告诉你:是这样的,各科最后的名次是要倒序排列的,即名次和越大 ...

大师:排名的问题我自己已解决。如果有时间,请帮忙修改一下格式,即行列互换。把班级行排列,科目统计项目列排列。再次表示万分感谢。预祝劳动节快乐!

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-4-30 08:37 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
lsc900707 发表于 2016-4-29 23:07
大师,先谢谢你的辛勤劳动。
对不起,忘了告诉你:是这样的,各科最后的名次是要倒序排列的,即名次和越大 ...

小于该大于即可。 If x1(1, i) > x1(1, j) Then k00 = k00 + 1

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-4-30 08:39 | 显示全部楼层
再次修改见附件。修正了排名,合并了单元格,黄色标记了排名。

三率统计0430.rar

80.39 KB, 下载次数: 152

TA的精华主题

TA的得分主题

发表于 2016-4-30 09:52 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢谢大师!假期劳您费心,不好意思!

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-4-30 17:36 | 显示全部楼层
不客气,共同提高,离高手的水平差很多。别叫大师。

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-4-30 23:49 | 显示全部楼层
本帖最后由 lzqlaj 于 2016-4-30 23:52 编辑
lsc900707 发表于 2016-4-30 08:18
大师:排名的问题我自己已解决。如果有时间,请帮忙修改一下格式,即行列互换。把班级行排列,科目统计项 ...

Private Sub CommandButton1_Click()
   ..........
    Sheets("分析表(三率)").Activate
    p12 = Sheets("分析表(三率)").[b65536].End(xlUp).Row
    For kmjg = 3 To p12
        If Cells(kmjg, 1) = "科目" Then
            kmjghs = kmjg - 2
            Exit For
        End If
    Next kmjg

    Range(Cells(2, 1), Cells(20 * ks + 1, bj + 3)).Copy
    Cells(20 * ks + 3, 1).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    For k = 1 To ks - 1
        Range(Cells(20 * ks + 3, k * (bj + 3) + 1), Cells(20 * ks + 3 + (bj + 2), 20 * (k + 1))).Cut
        Cells(20 * ks + 3 + k * (bj + 3), 1).Select
        ActiveSheet.Paste
    Next k
    Rows("2:" & (20 * ks + 2)).Delete Shift:=xlUp

    t1 = Timer
    MsgBox ("用时" & Round((t1 - t), 2) & "秒")
    Application.ScreenUpdating = True
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-4-30 23:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2016-5-1 01:59 | 显示全部楼层
lzqlaj 发表于 2016-4-30 23:53
先转置,再复制,然后删除原统计数据。

辛苦你了,老师。我把两次改动的结果测试了一下,非常好。前两天我还担心联系不上你,忧心忡忡的,到处发帖。没想到你这么热心,这么敬业。心里真的万分感激你,钦佩你。

TA的精华主题

TA的得分主题

发表于 2016-5-1 09:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2016-5-1 22:20 | 显示全部楼层
看了您的帖子“分数段统计”,忽然想把您的这两个统计整合在一起,可是才疏学浅,没成功。老师,三率统计和分数段统计组合起来就是一套完整的成绩核算分析系统呀。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 22:34 , Processed in 0.053302 second(s), 7 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表