如何实现比赛表自动计算积分、净胜球、排名

aman1516

缘起：
如何实现比赛表自动计算积分、净胜球、排名？
https://club.excelhome.net/thread-879744-1-1.html

发到VBA版块一个跟贴里面去了，还是到函数版块请教一下吧
如表格格式有改变，请问该如何修改对应的公式？
详见附件：

赛程2.rar (10.2 KB, 下载次数: 33)

2022-11-24 19:15 上传

点击文件名下载附件

谢谢！

w4275

1. =SUM(TEXT({1,-1}%,SUBSTITUTE(TRANSPOSE(0&B10:E10),":",";"))*{1,-1})

复制代码

1. =SUM(--TEXT(MMULT(TEXT({1,-1}%,SUBSTITUTE(TRANSPOSE(0&B10:E10),":",";"))*{1,-1},{1;1}),"3;!0;1"))-1

复制代码

w4275

1. =SUM(IFERROR(--T(OFFSET(L3,,{0,3,6,9;2,5,8,11})),)*{1;-1})

复制代码

1. =SUM(--TEXT(MMULT({1,1},IFERROR(--T(OFFSET(L3,,{0,3,6,9;2,5,8,11})),)*{1;-1}),"3;!0;1"))-1

复制代码

丢丢表格

w4275 发表于 2022-11-24 19:57

积分 可以写成：

=SUM(IFERROR(TEXT(L3:U3-N3:W3,"3;;1")*(L$2:U$2>0),))-1

aman1516

一楼附件单元格式为文型，改过来了
但为什么结果都不对，哪里错了呢

赛程2.rar (14.5 KB, 下载次数: 16)

2022-11-24 23:09 上传

点击文件名下载附件

w4275

aman1516 发表于 2022-11-24 23:11
一楼附件单元格式为文型，改过来了
但为什么结果都不对，哪里错了呢

均为数组公式，CTRL+shift+enter，如果数字为数值型，就把T改成N

zpy2

没有考虑净胜球。。。

aman1516

w4275 发表于 2022-11-25 08:43
均为数组公式，CTRL+shift+enter，如果数字为数值型，就把T改成N

用数组公式完美解决了问题
非常感谢！

1. Sub arrfm1()
   
2. Range("F3").FormulaArray = "=SUM(TEXT({1,-1}%,SUBSTITUTE(TRANSPOSE(0&B3:E3),"":"","";""))*{1,-1})"
   
3. Range("G3").FormulaArray = "=SUM(--TEXT(MMULT(TEXT({1,-1}%,SUBSTITUTE(TRANSPOSE(0&B3:E3),"":"","";""))*{1,-1},{1;1}),""3;!0;1""))-1"
   
4. Range("H3").FormulaArray = "=SUM(N($G$3:$G$6*1000+$F$3:$F$6>Y3*1000+X3))+1"
   
5. Range("F3:H6").FillDown
   
6. End Sub
   
7. 
   
8. Sub arrfm2()
   
9. Range("X3").FormulaArray = "=SUM(IFERROR(--N(OFFSET(L3,,{0,3,6,9;2,5,8,11})),)*{1;-1})"    '文本型，N改为T "=SUM(IFERROR(--T(OFFSET(L3,,{0,3,6,9;2,5,8,11})),)*{1;-1})"
   
10. Range("Y3").FormulaArray = "=SUM(--TEXT(MMULT({1,1},IFERROR(--N(OFFSET(L3,,{0,3,6,9;2,5,8,11})),)*{1;-1}),""3;!0;1""))-1"    ' "=SUM(--TEXT(MMULT({1,1},IFERROR(--T(OFFSET(L3,,{0,3,6,9;2,5,8,11})),)*{1;-1}),""3;!0;1""))-1"
    
11. Range("Z3").FormulaArray = "=SUM(N($G$3:$G$6*1000+$F$3:$F$6>Y3*1000+X3))+1"
    
12. Range("X3:Z6").FillDown
    
13. End Sub
    
14. 
    
15. Sub arrfm3()
    
16. Range("AA3").FormulaArray = "=SUM(IFERROR(TEXT(L3:U3-N3:W3,""3;;1"")*(L$2:U$2>0),))-1"
    
17. Range("AA3:AA6").FillDown
    
18. End Sub

复制代码