羽毛球循环小组赛自动排名

apoul119

比赛规则:
小组循环赛通过计算胜次排定名次。
如遇两队胜次相同，相互间胜者名次列前。
如遇三队或三队以上积分相同，则按各队在小组赛中的净胜（盘、局、分）决定名次，净胜多者列前。

求助 如何根据比分，胜次，净胜，自动计算名次？用函数还是VBA都可以，请各位大神指点一二？

D组5个参赛队伍	1	2	3	4	5		胜次	净胜	名次
D1		1:2	0:3	0:3	3:0		1	-4	4
D2	2:1		1:2		3:0		2	3	2
D3	3:0	2:1		2:1			3	5	1
D4	3:0		1:2		3:0		2	5	2
D5	0:3	0:3		0:3			0	-9	5
C组6个参赛队伍	1	2	3	4	5	6	胜次	净胜	名次
C1		0:3	1:2	1:2	1:2		0	-6	6
C2	3:0			2:1	2:1	2:1	4	6	1
C3	2:1			2:1	1:2	2:1	3	2	3
C4	2:1	1:2	1:2			0:3	1	-4	5
C5	2:1	1:2	2:1			2:1	3	2	2
C6		1:2	1:2	3:0	1:2		1	0	4

oiqweoi2

"如遇两队胜次相同，相互间胜者名次列前。"  意思是算这组平均名次么？

YZC51

乒乓球比赛记分表

YZC51

请参考，本人2017年做的自动排名！

zopey

1. Sub 按钮1_Click()
   
2. Dim arr, k0, brr(), crr()
   
3. k0 = 6
   
4. 
   
5. For m = 0 To 3
   
6. arr = [a5].Offset(m * 9 + 1, 1).Resize(k0, k0)
   
7. 
   
8. ReDim brr(1 To k0, 1 To 3)
   
9. For i = 1 To k0
   
10.     For j = 1 To k0
    
11.         temp = arr(i, j) - arr(j, i)
    
12.         brr(i, 2) = brr(i, 2) + temp
    
13.         If temp > 0 Then brr(i, 1) = brr(i, 1) + 1
    
14.     Next
    
15. Next
    
16. 
    
17. ReDim crr(0 To k0 - 1, 1 To 2)
    
18. For i = 1 To k0
    
19.     If brr(i, 1) = "" Then brr(i, 1) = 0
    
20.     crr(brr(i, 1), 1) = crr(brr(i, 1), 1) + 1
    
21.     crr(brr(i, 1), 2) = crr(brr(i, 1), 2) & i
    
22. Next
    
23. 
    
24. '''''''''''''''
    
25. k = 0
    
26. For i = k0 - 1 To 0 Step -1
    
27.     If crr(i, 1) = 1 Then
    
28.        k = k + 1: brr(crr(i, 2), 3) = k
    
29.     ElseIf crr(i, 1) = 2 Then
    
30.        a = Left(crr(i, 2), 1): b = Right(crr(i, 2), 1)
    
31.        If arr(a, b) > arr(b, a) Then
    
32.           brr(a, 3) = k + 1: brr(b, 3) = k + 2: k = k + 2
    
33.        ElseIf arr(a, b) < arr(b, a) Then
    
34.           brr(b, 3) = k + 1: brr(a, 3) = k + 2: k = k + 2
    
35.        Else
    
36.           brr(a, 3) = k + 1 & "|" & k + 2
    
37.           brr(b, 3) = k + 1 & "|" & k + 2
    
38.           k = k + 2
    
39.        End If
    
40.     ElseIf crr(i, 1) = 3 Then
    
41.        a = Left(crr(i, 2), 1): b = Mid(crr(i, 2), 2, 1): c = Right(crr(i, 2), 1)
    
42.        brr(a, 3) = k + 1 & "|" & k + 2 & "|" & k + 3
    
43.        brr(b, 3) = k + 1 & "|" & k + 2 & "|" & k + 3
    
44.        brr(c, 3) = k + 1 & "|" & k + 2 & "|" & k + 3
    
45.        k = k + 3
    
46.     End If
    
47. Next
    
48. 
    
49. 
    
50. [a5].Offset(m * 9 + 1, k0 + 1).Resize(k0, 3) = brr
    
51. Next m
    
52. End Sub
    

复制代码

zopey

请见附件，原表格有所改动

自动排名.rar (11.35 KB, 下载次数: 67)

2019-5-17 19:01 上传

点击文件名下载附件

apoul119

YZC51 发表于 2019-5-17 18:15
请参考，本人2017年做的自动排名！

去哪里可以参考，望告知，谢谢

apoul119

oiqweoi2 发表于 2019-5-17 15:58
"如遇两队胜次相同，相互间胜者名次列前。"  意思是算这组平均名次么？

就是两队各赢了两局，但是A打赢了B，虽然都是有两局胜次，胜负关系A胜了B，所以A排名比B靠前

apoul119

YZC51 发表于 2019-5-17 18:13
乒乓球比赛记分表

好的 谢谢 我学习下

apoul119

zopey 发表于 2019-5-17 19:02
请见附件，原表格有所改动

大神，你好强啊，感谢大神无私的分享和助人精神，学习中，祝您工作生活愉快，事事如意，再次感谢！