[已解决]再求评分代码（增加1个条件）

abc153

对应名次评分2.zip (8.98 KB, 下载次数: 3)

2015-5-4 12:51 上传

点击文件名下载附件
原代码正确，只是增加一个年级条件后，代码如何修改！谢谢！

最佳答案

月排行榜 / 总排行榜

grf1973

2015-5-4 16:24

1. Sub test1()
   
2.     nj = [e9]      '年级
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("3").[I1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(arr(i, 1) & arr(i, 2)) = arr(i, 3)       '年级+名次的分值
   
7.         d(arr(i, 1) & arr(i, 2) & "破") = arr(i, 3) + 7         '年级+名次+破记录的分值
   
8.     Next
   
9.    
   
10.     With Sheets("2")
    
11.         .Range("l5:l1000").ClearContents
    
12.         r = .[j65536].End(3).Row
    
13.         brr = .Range("j4:L" & r)
    
14.         For i = 2 To UBound(brr)
    
15.             brr(i, 3) = d(nj & brr(i, 1) & brr(i, 2))
    
16.         Next
    
17.         .[l4].Resize(i - 1) = Application.Index(brr, , 3)
    
18.      End With
    
19. End Sub

复制代码

跳转到最佳答案楼层

qh8600

看不懂

grf1973

1. Sub test1()
   
2.     nj = [e9]      '年级
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("3").[I1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(arr(i, 1) & arr(i, 2)) = arr(i, 3)       '年级+名次的分值
   
7.         d(arr(i, 1) & arr(i, 2) & "破") = arr(i, 3) + 7         '年级+名次+破记录的分值
   
8.     Next
   
9.    
   
10.     With Sheets("2")
    
11.         .Range("l5:l1000").ClearContents
    
12.         brr = .[j4].CurrentRegion
    
13.         For i = 2 To UBound(brr)
    
14.             brr(i, 3) = d(nj & brr(i, 1) & brr(i, 2))
    
15.         Next
    
16.         .[l4].Resize(i - 1) = Application.Index(brr, , 3)
    
17.      End With
    
18. End Sub

复制代码

abc153

grf1973 发表于 2015-5-4 13:22

谢谢老师，如果个别名次为空时，就无法统计分值了，谢谢指导 ！

grf1973

那只要第12句   brr = .[j4].CurrentRegion 范围变一下，变成指定区域

grf1973

1. Sub test1()
   
2.     nj = [e9]      '年级
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("3").[I1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(arr(i, 1) & arr(i, 2)) = arr(i, 3)       '年级+名次的分值
   
7.         d(arr(i, 1) & arr(i, 2) & "破") = arr(i, 3) + 7         '年级+名次+破记录的分值
   
8.     Next
   
9.    
   
10.     With Sheets("2")
    
11.         .Range("l5:l1000").ClearContents
    
12.         r = .[j65536].End(3).Row
    
13.         brr = .Range("j4:L" & r)
    
14.         For i = 2 To UBound(brr)
    
15.             brr(i, 3) = d(nj & brr(i, 1) & brr(i, 2))
    
16.         Next
    
17.         .[l4].Resize(i - 1) = Application.Index(brr, , 3)
    
18.      End With
    
19. End Sub

复制代码