考试成绩三率统计

lsc900707 · 发表于 2016-4-30 08:18

lsc900707 发表于 2016-4-29 23:07
大师，先谢谢你的辛勤劳动。
对不起，忘了告诉你：是这样的，各科最后的名次是要倒序排列的，即名次和越大 ...

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

lzqlaj · 发表于 2016-4-30 08:37

lsc900707 发表于 2016-4-29 23:07
大师，先谢谢你的辛勤劳动。
对不起，忘了告诉你：是这样的，各科最后的名次是要倒序排列的，即名次和越大 ...

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

lzqlaj · 发表于 2016-4-30 08:39

再次修改见附件。修正了排名，合并了单元格，黄色标记了排名。

lsc900707 · 发表于 2016-4-30 09:52

谢谢大师！假期劳您费心，不好意思！

lzqlaj · 发表于 2016-4-30 17:36

不客气，共同提高，离高手的水平差很多。别叫大师。

lzqlaj · 发表于 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

lzqlaj · 发表于 2016-4-30 23:53

先转置，再复制，然后删除原统计数据。

lsc900707 · 发表于 2016-5-1 01:59

lzqlaj 发表于 2016-4-30 23:53
先转置，再复制，然后删除原统计数据。

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

plzhangying · 发表于 2016-5-1 09:13

感谢分享！！！

lsc900707 · 发表于 2016-5-1 22:20

看了您的帖子“分数段统计”，忽然想把您的这两个统计整合在一起，可是才疏学浅，没成功。老师，三率统计和分数段统计组合起来就是一套完整的成绩核算分析系统呀。

		自动登录	找回密码
密码			免费注册