名次顺位排序法

yjh_27

汇总2的前二表没看懂。红色的是处理后的结果，处理前是什么？这个处理是手工进行还是代码处理？

EXCEL江湖

首先感谢老师的热心帮助，您的算法在群里真是太牛了。再一次感谢！
汇总表2前面2表是一种特殊的算法。
第二个表是原始表，表中红色部分是超出了规定名次（8名，实际运用时可以动态设定）外的无效分。
可以把这个赛看成是半决赛和决赛同时比了，处理也就分成了两步。第一步是淘汰，决定部分名次，第二步是决赛决定名次。因程序的名次必须要完整，与运动员数量必须一致或小，所以运用程序修改为最后名次，
另外：不知道对于无效分（表中指8以后的名次）是否可以不输入名次，程序继续运行，正确计算出名次。另汇总表2中最后的一个表出不了结果是什么原因，还麻烦老师再看下！
还请老师再帮忙处理一下。

EXCEL江湖

yjh_27 发表于 2014-9-1 09:30
汇总2的前二表没看懂。红色的是处理后的结果，处理前是什么？这个处理是手工进行还是代码处理？

VBA调用汇总为什么总报错： 十项计算.rar (29.5 KB, 下载次数: 9)

2014-9-1 23:10 上传

点击文件名下载附件

Sub 汇总成绩计算()
  Dim m&, n&, rng, xm&
    [b5].Activate
    n = ActiveCell.End(2).Column

    If m > 0 And xm = 2 Then
   Set rng(1) = Range(Cells(5, 2), Cells(4 + m, n))
   Set rng(2) = Range(Cells(m + 6, 2), Cells(2 * m + 6, n))
   ActiveCell.Offset(, n + m + 2).Resize(m, xm + 2) = zchj(rng(1), rng(2))
End If   

End Sub

yjh_27

EXCEL江湖 发表于 2014-9-1 19:28
首先感谢老师的热心帮助，您的算法在群里真是太牛了。再一次感谢！
汇总表2前面2表是一种特殊的算法。
第 ...

已处理：汇总表2中最后的一个表出不了结果
另“在几比几”原则是否适用单项成绩？见十项五裁判 黄色单元格比较


其他待理解后处理。


超名额的数据处理很容易。
请说明每步使用什么数据（处理前？处理后？）

yjh_27

EXCEL江湖 发表于 2014-9-1 23:12
VBA调用汇总为什么总报错：
Sub 汇总成绩计算()
  Dim m&, n&, rng, xm&

xm m 变量没赋值

yjh_27

EXCEL江湖 发表于 2014-9-1 19:28
首先感谢老师的热心帮助，您的算法在群里真是太牛了。再一次感谢！
汇总表2前面2表是一种特殊的算法。
第 ...

超出了规定名次（8名，实际运用时可以动态设定）
你例子数据特殊，9~12排在尾部，如不是输出是怎样的？

EXCEL江湖

yjh_27 发表于 2014-9-2 15:12
xm m 变量没赋值

Sub 汇总成绩计算()
  Dim n&, m&, xm&, i&, rng()
  m = 8
  'xm = 3
    [b5].Activate
    n = ActiveCell.End(2).Column
   ' m = ActiveCell.End(3).Row
    'For i = 0 To xm - 1
   
    For i = 1 To xm
Set rng(i) = Range(Cells((i - 1) * (m + 2) + 5, 2), Cells(i * (m + 2) + 2, n))
   If xm = 2 Then
   ActiveCell.Offset(, n + m + 3).Resize(m, xm + 2).FormulaArray = zchj(rng(1), rng(2))
End If
   Next
   
End Sub

做了一些调整，一项项赋值时可以用VBA计算，如用上面的代码简化，则出现问题了，程序没反应，是不是RNG（）这个变量的问题，应如何设置区域会比较合适。谢谢老师！

EXCEL江湖

yjh_27 发表于 2014-9-2 19:28
超出了规定名次（8名，实际运用时可以动态设定）
你例子数据特殊，9~12排在尾部，如不是输出是怎样的？

根据您提出来的问题我做了个附件，还请老师再看看，老师辛苦了！ 计算方法.rar (6.09 KB, 下载次数: 5)

2014-9-2 23:59 上传

点击文件名下载附件

yjh_27

EXCEL江湖 发表于 2014-9-2 23:59
根据您提出来的问题我做了个附件，还请老师再看看，老师辛苦了！

超名次的数据没处理，只是在排位时忽略（不统计），这样对末名次的公平

请测试

EXCEL江湖

yjh_27 发表于 2014-9-3 20:54
超名次的数据没处理，只是在排位时忽略（不统计），这样对末名次的公平

请测试

老师辛苦了！在汇总表2中，很多表都不能够计算出值来是什么原因呀！