统计人员考核达标次数

qlmgu

ykcbf1100 发表于 2024-2-17 21:05
我再看一下。

老师辛苦了

ykcbf1100

qlmgu 发表于 2024-2-17 20:58
ykcbf1100 老师您好，得到您的帮助很高兴，谢谢您。
下面这些细节我说的不够清楚：指标1里，相同的 ...

改好了。。。

ykcbf1100

代码如下：

1. Sub ykcbf()  '//2024.2.17
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheets("Sheet1").UsedRange
   
4.     ReDim brr(1 To UBound(arr), 1 To 4)
   
5.     For i = 2 To UBound(arr)
   
6.         s = arr(i, 3)
   
7.         If Not d.exists(s) Then
   
8.             d(s) = IIf(arr(i, 4) = "达标", 1, 0)
   
9.         Else
   
10.             d(s) = d(s) + IIf(arr(i, 4) = "达标", 1, 0)
    
11.         End If
    
12.     Next
    
13.     t = d.items
    
14.     On Error Resume Next
    
15.     For i = 2 To UBound(arr)
    
16.         m = m + 1
    
17.         For x = 1 To 3
    
18.             brr(m, x) = arr(i, x)
    
19.         Next
    
20.         Sum = 0
    
21.         If arr(i, 1) <> Empty Then
    
22.             t = d(arr(i, 3))
    
23.             For j = 5 To UBound(arr, 2)
    
24.                 If arr(i, j) <> Empty Then
    
25.                     If arr(i, j) = "达标" Then
    
26.                         Sum = Sum + 1
    
27.                     End If
    
28.                 End If
    
29.             Next
    
30.             Sum = Sum + t
    
31.         End If
    
32.         brr(m, 4) = Sum
    
33.     Next
    
34.     With Sheets("统计结果")
    
35.         .UsedRange.Offset(1) = ""
    
36.         .[a2].Resize(m, 4) = brr
    
37.     End With
    
38. End Sub
    

复制代码

qlmgu

ykcbf1100 发表于 2024-2-17 21:35
改好了。。。

老师速度真快，谢谢了。结果里有超过指标列数的，拟应最高达标次数为9，就是达标最大值不大于指标数。

老师您先休息吧，时间太晚了您太累了，我过意不去。

ykcbf1100

qlmgu 发表于 2024-2-17 21:49
老师速度真快，谢谢了。结果里有超过指标列数的，拟应最高达标次数为9，就是达标最大值不大于指标数。

...

我再查查吧。
我初初看了一下，没仔细验证过呢。

ykcbf1100

qlmgu 发表于 2024-2-17 21:49
老师速度真快，谢谢了。结果里有超过指标列数的，拟应最高达标次数为9，就是达标最大值不大于指标数。

...

改好了，我原以为名字最多重复二次，其实有些重复很多次。

qlmgu

ykcbf1100 发表于 2024-2-17 21:55
改好了，我原以为名字最多重复二次，其实有些重复很多次。

是的老师，原始数据如此。感谢老师这么晚还在为我工作。我只有最后一朵小花了，谨表心意，祝龙年万事如意。

grf1973

简化一下23楼代码。

qlmgu

grf1973 发表于 2024-2-18 10:11
简化一下23楼代码。

grf1973老师，祝您新年大吉，步步高升，财源广进！

感谢老师的帮助。
如果能把结果中的重复姓名，例如：姓名10，保留高次数达标的那个，就更好了。还有多个类似结果。依据是：指标1只要有一次达标，人员就算达标。


再次感谢您。系统里我的小花没有了，有的时候补上。

qlmgu

lushang2018 发表于 2024-2-17 20:34

lushang2018新年好。刚刚才看到您的程序，所以没及时测试和回复，抱歉。
我测试了程序，很好。但是结果里有些名字重复了，且达标数量不同，如果方便就修改为：指标1只要有一次达标该姓名就算该指标达标。
根据这个原则，结果中重复名字的达标次数以高次数的那个为准，删除低次数的。同时，达标数如果大于指标列数，就需要调整了。最大达标数只能小于或等于指标列数。

如果麻烦就不要改了，我可以手动删除。谢谢您。
我的小花没有了，以后有时再补上。