足球比赛积分表

dige003

求助，在原有的基础上增加平局打点球，胜队得两分，负队得一分，点球进球不计入总进球数。

usedrange

1. Sub t()
   
2.     Dim dic, r%, i%, m%, arr, brr, p
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     With Sheets("比分记录")
   
5.         arr = .UsedRange
   
6.         For i = 2 To UBound(arr)
   
7.             If arr(i, 2) <> "" And arr(i, 4) <> "" Then
   
8.                 Set dic(arr(i, 1)) = CreateObject("scripting.dictionary")
   
9.                 Set dic(arr(i, 5)) = CreateObject("scripting.dictionary")
   
10.             End If
    
11.         Next i
    
12.         For i = 2 To UBound(arr)
    
13.             If arr(i, 2) <> "" And arr(i, 4) <> "" Then
    
14.                 If arr(i, 2) > arr(i, 4) Then
    
15. '                    胜方
    
16.                     dic(arr(i, 1))("jf") = dic(arr(i, 1))("jf") + 2             '积分
    
17.                     dic(arr(i, 1))("jq") = dic(arr(i, 1))("jq") + arr(i, 2)     '进球
    
18.                     dic(arr(i, 1))("sq") = dic(arr(i, 1))("sq") + arr(i, 4)     '失球
    
19.                     dic(arr(i, 1))("jsq") = dic(arr(i, 1))("jsq") + (arr(i, 2) - arr(i, 4)) '净胜球
    
20.                     dic(arr(i, 1))("y") = dic(arr(i, 1))("y") + 1               '赢的场次
    
21.                     dic(arr(i, 1))("cc") = dic(arr(i, 1))("cc") + 1             '比赛场次
    
22. '                    负方
    
23.                     dic(arr(i, 5))("jf") = dic(arr(i, 5))("jf") + 1
    
24.                     dic(arr(i, 5))("jq") = dic(arr(i, 5))("jq") + arr(i, 4)
    
25.                     dic(arr(i, 5))("sq") = dic(arr(i, 5))("sq") + arr(i, 2)
    
26.                     dic(arr(i, 5))("jsq") = dic(arr(i, 5))("jsq") + (arr(i, 4) - arr(i, 2))
    
27.                     dic(arr(i, 5))("f") = dic(arr(i, 5))("f") + 1               '负的场次
    
28.                     dic(arr(i, 5))("cc") = dic(arr(i, 5))("cc") + 1
    
29.                 Else
    
30. '                    胜方
    
31.                     dic(arr(i, 5))("jf") = dic(arr(i, 5))("jf") + 2
    
32.                     dic(arr(i, 5))("jq") = dic(arr(i, 5))("jq") + arr(i, 2)
    
33.                     dic(arr(i, 5))("sq") = dic(arr(i, 5))("sq") + arr(i, 4)
    
34.                     dic(arr(i, 5))("jsq") = dic(arr(i, 5))("jsq") + (arr(i, 2) - arr(i, 4))
    
35.                     dic(arr(i, 5))("y") = dic(arr(i, 5))("y") + 1
    
36.                     dic(arr(i, 5))("cc") = dic(arr(i, 5))("cc") + 1
    
37. '                    负方
    
38.                     dic(arr(i, 1))("jf") = dic(arr(i, 1))("jf") + 1
    
39.                     dic(arr(i, 1))("jq") = dic(arr(i, 1))("jq") + arr(i, 2)
    
40.                     dic(arr(i, 1))("sq") = dic(arr(i, 1))("sq") + arr(i, 4)
    
41.                     dic(arr(i, 1))("jsq") = dic(arr(i, 1))("jsq") + (arr(i, 2) - arr(i, 4))
    
42.                     dic(arr(i, 1))("f") = dic(arr(i, 1))("f") + 1
    
43.                     dic(arr(i, 1))("cc") = dic(arr(i, 1))("cc") + 1
    
44.                 End If
    
45.                
    
46.             End If
    
47.         Next i
    
48.     End With
    
49.     r = 1
    
50.     ReDim brr(1 To dic.Count, 1 To 10)
    
51.     For Each k In dic.keys
    
52.         brr(r, 1) = r
    
53.         brr(r, 2) = k
    
54.         brr(r, 3) = dic(k)("cc")
    
55.         brr(r, 4) = dic(k)("y")
    
56.         brr(r, 5) = 0
    
57.         brr(r, 6) = dic(k)("f")
    
58.         brr(r, 7) = dic(k)("jq")
    
59.         brr(r, 8) = dic(k)("sq")
    
60.         brr(r, 9) = dic(k)("jsq")
    
61.         brr(r, 10) = dic(k)("jf")
    
62.         r = r + 1
    
63.     Next k
    
64.     Sheets("积分榜").[b4].Resize(UBound(brr), 10) = brr
    
65.     Set p = Sheets("积分榜").[b3].Resize(UBound(brr) + 1, 10)
    
66.     p.Sort key1:="积分", order1:=2, key2:="净胜球", order2:=2, key3:="失球", order3:=1, Header:=xlYes
    
67.     For i = 3 To UBound(brr) + 2
    
68.         p(i - 1, 1) = i - 2
    
69.     Next i
    
70.     Set dic = Nothing
    
71.     Set p = Nothing
    
72. End Sub
    

复制代码

dige003

usedrange 发表于 2024-7-25 17:35

你好，可以帮忙直接做好吗？代码直接不懂，原文件都是下载别人做好的

usedrange

dige003 发表于 2024-7-29 11:30
你好，可以帮忙直接做好吗？代码直接不懂，原文件都是下载别人做好的

试试这个看看是不是你想要的

usedrange

这是附件，直接点击按钮就可以

dige003

usedrange 发表于 2024-7-29 11:58
这是附件，直接点击按钮就可以

有点不对，可以加好友吗

dige003

好像有点不对，可以加好友吗

笨鸟飞不高

perfect131

我专业赌徒 可以找我 哈兰德

dige003

笨鸟飞不高 发表于 2024-8-24 10:46

常规时间内决出胜负，胜队得3分，负队得0分；常规时间内平局进行点球决胜，点球胜队得2分，负队得1分。