[已解决]员工考勤统计需代码

lujianwkx

各位大神：
我公司是周一至周五上班，正常法定节假日放假。
员工考勤统计上次请人做了一个代码，样式和内容符合要求，但存在一个日期判定。
比如，如果这个月应该22天，但这个人只刷了5天上班，4下班，结果只体现1天下班未刷卡，我需要的是17天（22-5）上班未刷寺，18天（22-4下班未刷卡）的结果
请帮忙修改代码，谢谢

最佳答案

月排行榜 / 总排行榜

grf1973

2015-10-13 15:11

嗯，黄色部分只是为了比较而用的，实际使用当然不会这样。
补丁的功能现在已经整合到按钮1里面了。

跳转到最佳答案楼层

grf1973

在原代码基础上打个小补丁吧。

1. Sub 补丁()
   
2.     ts = 22    '本月上班天数
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Arr = [f1].CurrentRegion
   
5.     For i = 2 To UBound(Arr)     '每个人本月出现多少天打卡
   
6.         x = Arr(i, 1) & Arr(i, 2)
   
7.         d(x) = d(x) + 1
   
8.     Next
   
9.     brr = [L1].CurrentRegion
   
10.     For i = 2 To UBound(brr)     '每个人本月出现多少天打卡
    
11.         xmiss = ts - d(brr(i, 1) & brr(i, 2))    '本月应上班天数-本月出现打卡天数
    
12.         brr(i, 5) = brr(i, 5) + xmiss
    
13.         brr(i, 6) = brr(i, 6) + xmiss
    
14.     Next
    
15.     [L16].Resize(UBound(brr), UBound(brr, 2)) = brr
    
16. End Sub

复制代码

grf1973

请看附件。

lujianwkx

grf1973 发表于 2015-10-13 10:28
请看附件。

首先谢谢你帮我加补丁。
我不懂代码，按“按钮2”后出现的结果只有闵婕的数据是我要的结果，其他的还是没变，能再帮我修改一下吗。我需要的是每一个人的，生成结果如下图

部门	姓名	9：00之前打卡	20：00之打卡	上班未打卡	下班未打卡
总公司	邓丽君	3		1	2
总公司	向渊			2	3
总公司	陆健		3	9	3
总公司	李同勤	17	1	0	0
总公司	戴心如			2	1
总公司	闵捷			17	22
总公司	吴伦秀	2		2	2
总公司	康玲玲		2	15	9
总公司	陈玉凤		5	12	2
总公司	魏胜	10		2	15

grf1973

其他的也变的，你再仔细看看，我觉得没错的了。

grf1973

表格运行结果就是这样的

部门        姓名        9：00之前打卡        20：00之打卡        上班未打卡        下班未打卡
总公司        邓丽君        3                1        2
总公司        向渊                        2        3
总公司        陆健                3        9        3
总公司        李同勤        17        1        0        0
总公司        戴心如                        2        1
总公司        闵捷                        17        22
总公司        吴伦秀        2                2        2
总公司        康玲玲                2        15        9
总公司        陈玉凤                5        12        2
总公司        魏胜        10                2        15

lujianwkx

grf1973 发表于 2015-10-13 11:32
表格运行结果就是这样的

部门        姓名        9：00之前打卡        20：00之打卡        上班未打卡        下班未打卡

对不起， 是我错了，结果正确。
能再帮一个忙吗。我把公司所有人的信息录入后，按钮1的结果也会出现，我只想要按钮2的报表结果（即黄色部分）
1.按钮2上方的数据不显示
2.黄色颜色不要。因为很多人时，会出现上面黄色下方白色，不美观。
谢谢

grf1973

嗯，黄色部分只是为了比较而用的，实际使用当然不会这样。
补丁的功能现在已经整合到按钮1里面了。