求救，帮忙改善绩效表格模板，提高工作效率

星梦月缘

附件.rar (11.94 KB, 下载次数: 576)

2012-12-14 08:14 上传

点击文件名下载附件
需要完善的绩效表格

各位老师：   
       附件中公司维修部的绩效表格，每个月我负责各部门的绩效进行汇总，可是领导现在要求我累计统计出绩效为A和C的人数和次数。这是我统计到11月份的绩效结果，但是到十二月份绩效结果出来的时候，关于员工绩效出现A或C的次数我都是一个一个数着加上去的，请大家帮忙设计个好点的模版，日后能方便我统计分析。谢谢！

魂断蓝桥

大概做了一下，如果要求不是太高的话，用普通透视表即可。
如果必需符合楼主的要求，vba简单点。



求救，请帮忙修改完善绩效考评模版.rar (25.77 KB, 下载次数: 196)

2012-12-14 08:42 上传

点击文件名下载附件

可口可乐111

是这样吗？数组公式。
=SUM(($E$3:$E$86=H25)*($F$3:$F$86="A"))
=SUM(($E$3:$E$86=J21)*($F$3:$F$86="C"))

lbwr7410

还是用透视表比较好的

840205910

Sub 自动统计()
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
arr = Sheet1.[a1].CurrentRegion
For i = 3 To UBound(arr)
If arr(i, 6) = "A" Then
d(arr(i, 5)) = d(arr(i, 5)) + 1
ElseIf arr(i, 6) = "C" Then
d1(arr(i, 5)) = d1(arr(i, 5)) + 1
End If
Next
[h3].Resize(d.Count) = Application.Transpose(d.keys)
[i3].Resize(d.Count) = Application.Transpose(d.items)
[j3].Resize(d1.Count) = Application.Transpose(d1.keys)
[k3].Resize(d1.Count) = Application.Transpose(d1.items)

End Sub

840205910

求救，请帮忙修改完善绩效考评模版.zip (18.9 KB, 下载次数: 124)

2012-12-14 09:11 上传

点击文件名下载附件

wuxiang_123

纯SQL的方法：
http://club.excelhome.net/thread-957649-1-1.html

星梦月缘

lbwr7410 发表于 2012-12-14 08:50
还是用透视表比较好的

数据表也可以，只是部门有十几个  每月汇总完毕之后都要做一次数据透视表，数据透视表的同步性这个还不会用，不如一次把十几个部门的表格代码全部输进去，每月汇总完毕信息之后就直接点一个按钮就可以搞定，还是非常感谢。

星梦月缘

魂断蓝桥 发表于 2012-12-14 08:42
大概做了一下，如果要求不是太高的话，用普通透视表即可。
如果必需符合楼主的要求，vba简单点。

非常感谢，老师设计的VB代码用起来的确非常好用，因为我们的绩效模版基本上市规定模版，所以可以通用老师设计代码，虽然我只看懂了一部分代码。  对了，能不能再VB代码中假如排序啊，把评定为A的次数和评定为C的次数按照降序的顺序进行排列啊，真的非常感谢老师了。

星梦月缘

可口可乐111 发表于 2012-12-14 08:44
是这样吗？数组公式。
=SUM(($E$3:$E$86=H25)*($F$3:$F$86="A"))
=SUM(($E$3:$E$86=J21)*($F$3:$F$86="C" ...

这位老师的方法有点小问题，姓名那一列不能自动生成。我平时一般的笨方法是，先建一个新表，然后把名字全部复制过去，在用高级筛选去重（把重复的名曲去掉），然后在用countif函数或者countifs函数进行计算，得出最终每个人评定为A或者C的次数。