关于考勤表的统计。

snacas · 发表于 2011-12-8 09:23

采用的中控指纹考勤机，自带软件功能强大，因此设置也很复杂，因而操作不方便。

最近在网上寻摸到一位大侠做的考勤表很适合使用，所以求助各位大侠，如何将一条条的考勤记录转换到考勤表里。

主要问题就是：一、如何自动提取某人一天之内的第一条和最后一条记录，赋值到对应日期的签到和离开时间。二、根据人数，自动新增考勤表记录。

考勤.rar (12.39 KB, 下载次数: 1340)

little-key · 发表于 2011-12-8 09:50

如何自动提取某人一天之内的第一条和最后一条记录，赋值到对应日期的签到和离开时间

这个可以使用数据透视表
选择时间列
一个选择最小值，一个选择最大值

snacas · 发表于 2011-12-14 09:50

本帖最后由 snacas 于 2013-1-14 10:40 编辑

感谢版主关注。其实我是想做一个省事的考勤统计系统，因此用数据透视表的话，还要定义完整格式的数据表。
http://club.excelhome.net/forum.php?mod=viewthread&tid=719134
http://club.excelhome.net/forum.php?mod=viewthread&tid=662801
http://club.excelhome.net/forum.php?mod=viewthread&tid=797896
参考以上几位大侠的作品后，找到了自己需要的代码，如下：

Sub kaoqinfenxi()
Dim RowB, RowA, iRow, iCol, iRQ, jRow, jCol As Integer
Dim sXM, x, y, m, n As String
Dim Rng As Range
RowA = Sheets("考勤记录").Range("A65536").End(xlUp).Row
For iRow = 2 To RowA
      x = LTrim(Right(Sheets("考勤记录").Cells(iRow, 2), 8))  '循环读取考勤记录
      y = RTrim(Left(Sheets("考勤记录").Cells(iRow, 2), Len(Sheets("考勤记录").Cells(iRow, 2))-8))  '并提取出人名、日期、时间
      sXM = Sheets("考勤记录").Range("A" & iRow)
      With Sheets("考勤表")
         RowB = .Range("A65536").End(xlUp).Row
         Set Rng = .Range("A5:A" & RowB + 2).Find(what:=sXM, LookIn:=xlValues, LookAt:=xlWhole)  '查找要分析的人员所在位置
         If Rng Is Nothing Then                            '判断要分析的人员是否存在于分析表中
            .Range("A2:AG3").Copy Destination:=.Range("A" & RowB + 2) '如果不存在就新建一条记录
            .Cells(RowB + 2, 1) = sXM                                  '并赋值人名、时间
            .Cells(RowB + 2, Day(y) + 2) = x
         Else: m = .Cells(Rng.Row, Day(y) + 2)                         '如果存在就判断其是最早签到和最后离开时间
               n = .Cells(Rng.Row + 1, Day(y) + 2)
               If m = "" Then                                           '如果无数据就肯定是第一次打卡
                  .Cells(Rng.Row, Day(y) + 2) = x
               ElseIf TimeValue(x) < m Then                            '其实这个判断可不要，因为记录是按时间排序的，如果存在记录肯定就不是第一次了
                     .Cells(Rng.Row, Day(y) + 2) = x
                  ElseIf TimeValue(x) > n Then                         '注意这里的m、n已经被赋值为时间数据格式，因此没必要用TimeValue函数，
                        .Cells(Rng.Row + 1, Day(y) + 2) = x          '而我的记录表中是文本格式，所以x要使用TimeValue来转换。
               End If
         End If
      End With
Next
End Sub

考勤统计系统.rar (280 Bytes, 下载次数: 1477)

qiaojinni_2010 · 发表于 2011-12-16 20:33

下载了，试试

ximiko · 发表于 2012-2-28 10:21

大大的代码果然不错试用了一下很好的说！

oceanuse · 发表于 2012-3-6 11:11

很好用，在加一个工时的计算行，代码该怎么加呢？
谢谢！
2012-3-6 10-04-17.gif

考勤统计系统.rar (18.83 KB, 下载次数: 376)

snacas · 发表于 2012-3-29 21:29

oceanuse 发表于 2012-3-6 11:11
很好用，在加一个工时的计算行，代码该怎么加呢？
谢谢！

你好。我不是专门做数据处理工作的，因此不是经常上网站，只是有需要的时候才上来看看，所以这么晚才回复你。海涵海涵。
你需要的，我修改好了。

考勤统计系统0329.rar (24.03 KB, 下载次数: 1197)

双影 · 发表于 2012-3-30 14:03

找了好久啦，先下载看看~~

snacas · 发表于 2012-4-23 16:34

寒江醉客发表于 2012-4-20 12:02
我想统计迟到次数，和总迟到时间。怎么搞，能帮我看看吗？我用if,vlookup等搞好几天了，不懂VB，没头绪。 ...

迟到次数很好统计。在单元格中使用

=COUNTIFS(C6:AG6,">9:00:00",C6:AG6,"<9:05:00")

复制代码

这个就是计算所选区域中迟到5分钟以内的次数。其余类推。
但是迟到总时间就不好算了，只有找高手，我对动态数组也不熟。

寒江醉客 · 发表于 2012-4-18 12:20

膜拜，能加个Q交流下吗？158032978

		自动登录	找回密码
密码			免费注册

[求助] 关于考勤表的统计。

评分