你要的考勤表来了！

玩转职场 · 公众号 · 职场 · 2017-06-27 10:00

正文

文 | 卢子

来源 | Excel不加班

一大早学习群内的人都说要考勤表，好，既然你要，我总结一些我用过的考勤表。考勤表比较特殊，每个公司都略有差异，仅供参考。

1、手工记录考勤明细

借助手工输入简称，比如Z就表示正常上班。

员工考勤表

统计表

在员工考勤表内使用简称，而统计表又使用全称，也就是说需要将统计表的全程用公式转换成简称，这样才能实现统计。

可借助VLOOKUP函数实现转换。

=VLOOKUP(B$1,员工考勤表!$B$17:$C$22,2,0)

因为姓名都是按原来顺序的，直接就用单条件计数函数COUNTIF就可以。在B2输入公式，并向右拉到G2，然后向下拉。

=COUNTIF(员工考勤表!5:5,VLOOKUP(B$1,员工考勤表!$B$17:$C$22,2,0))

实际上班天数，在H2输入公式并向下拉。

=SUM(E2:G2)

2、系统导出考勤表并实现格式转换

系统里面可以自定义内容，比如开会休息等，每天只打2次卡，公司比较人性化，对迟到这些不做任何处罚。

考勤明细

现在要将考勤数据导入到另外一个表格模板。

转换表

接下来就是见证奇迹的时刻！

只需点一下导入考勤，瞬间就将数据实现转换。如果你眼神比较好，就知道这是我们公司的考勤表。

附源代码：

Sub Kaoqin()
Dim MxSht, MxsR As Long, MxNRng As Range, NameArr
Dim MaxR As Long, MaxC As Byte, KaoQ() As String
Dim NBoot As Boolean, StaR As Long, TemRng, Cou As Long
Dim iR As Long, iC As Byte, MxR As Long, MxC As Byte
Sheet1.Range("D5:AI104").UnMerge
With Sheet2
Rem
MxsR = .Cells(1, 1).End(xlDown).Row
' MxSht = .Cells(1, 1).Resize(MxsR, 6).Value
Set MxNRng = .Cells(1, 2).Resize(MxsR)

MaxR = Me.Cells(5, 3).End(xlDown).Row - 4
MaxC = Me.Cells(4, Columns.Count).End(xlToLeft).Column - 4
ReDim KaoQ(1 To MaxR, 1 To MaxC)
NameArr = Me.Cells(5, 2).Resize(MaxR).Value

For iR = 1 To MaxR Step 2
Rem 姓名存在否
NBoot = WorksheetFunction.CountIf(MxNRng, NameArr(iR, 1))
Rem 存在时处理考勤数据
If NBoot Then
StaR = WorksheetFunction.Match(NameArr(iR, 1), MxNRng, 0)
Cou = WorksheetFunction.CountIf(MxNRng, NameArr(iR, 1))
TemRng = .Cells(StaR, 2).Resize(Cou, 5).Value
Rem 日期核对数据写入,上班下班的数据

For MxR = 1 To Cou
KaoQ(iR, Day(TemRng(MxR, 3))) = TemRng(MxR, 4) '对应日期上班时间数据
KaoQ(iR + 1, Day(TemRng(MxR, 3))) = TemRng(MxR, 5) '对应日期下班时间数据
Next MxR
End If
Next iR
End With
Me.Cells(5.1).Resize(MaxR) = NameArr
Me.Cells(5, 4).Resize(MaxR, MaxC) = KaoQ
End Sub