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

YZC51 · 发表于 2019-5-19 12:18

本帖最后由 YZC51 于 2019-5-19 12:24 编辑

学习老师的代码结合排名函数做的，谢谢老师！！！
Sub 按钮1_Click()
Dim arr, k0, brr(), crr()
k0 = 6
For m = 0 To 3
arr = [a5].Offset(m * 9 + 1, 1).Resize(k0, k0)
ReDim brr(1 To k0, 1 To 3)
For i = 1 To k0
      If brr(i, 1) = "" Then brr(i, 1) = 0
      For j = 1 To k0
      brr(i, 3) = 0
         temp = Hour(arr(i, j)) - Hour(arr(j, i))
         brr(i, 2) = brr(i, 2) + temp
         If temp > 0 Then brr(i, 1) = brr(i, 1) + 1: brr(i, 3) = brr(i, 3) - 0.02 Else brr(i, 3) = brr(i, 3) + 0.02
         brr(i, 3) = brr(i, 3) + brr(i, 2) / 100 + brr(i, 1)
      Next
Next
[a5].Offset(m * 9 + 1, k0 + 1).Resize(k0, 3) = brr
Next m
End Sub
楼主如果满意，请鲜花鼓励后上传附件！

apoul119 · 发表于 2019-5-19 12:29

YZC51 发表于 2019-5-19 12:15
N16=21
试试

N16=21 可以了，这个21是依据什么填的呢

apoul119 · 发表于 2019-5-19 12:32

zopey 发表于 2019-5-19 12:05
3个同排名的，添加了规则，
4个排名相同的，自己想办法吧。

谢谢老师，已经很好了，感谢

apoul119 · 发表于 2019-5-19 12:36

YZC51 发表于 2019-5-19 12:18
学习老师的代码结合排名函数做的，谢谢老师！！！
Sub 按钮1_Click()
Dim arr, k0, brr(), crr()

老师，我已经没有鲜花了，感谢帮助

YZC51 · 发表于 2019-5-19 12:51

本帖最后由 YZC51 于 2019-5-20 19:51 编辑

请参考

羽毛球循环小组赛自动排名计算-3-1.rar (35.06 KB, 下载次数: 36)

YZC51 · 发表于 2019-5-19 12:52

apoul119 发表于 2019-5-19 12:36
老师，我已经没有鲜花了，感谢帮助

附件已经上传，请参考！

YZC51 · 发表于 2019-5-19 12:56

apoul119 发表于 2019-5-19 12:29
N16=21 可以了，这个21是依据什么填的呢

为了使b2的综合分小于B1!

YZC51 · 发表于 2019-5-20 19:53

apoul119 发表于 2019-5-19 12:32
谢谢老师，已经很好了，感谢

35楼附件已经更新！

YZC51 · 发表于 2019-5-21 18:53

比分填写在黄色区域即可！

羽毛球循环小组赛自动排名计算-3-2.rar (54.12 KB, 下载次数: 52)

天涯887 · 发表于 2024-12-19 11:44

待参考。。。。。

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

[求助] 羽毛球循环小组赛自动排名

评分

评分

评分