百度360必应搜狗淘宝本站头条
vue dispatchspring gatewayorder by ascidea eval resetupdate canceled
当前位置：网站首页 > 技术分类 > 正文

考勤数据标准化处理（考勤标准化管理制度）

ztj100 2025-05-02 22:44 4 浏览 0 评论

经常做考勤的同学有没有遇到过这样的考勤数据呢？


没错，从考勤机里导出来的，要统计那叫一个麻烦啊（有同学说可以导出txt文件，然后再处理会省事很多，有条件的小伙伴可以自己研究研究）

看这表格数据其实挺规范的，每个人占2行，第一行是个人信息（个人信息的C列是工号，K列是姓名（后面还有部门这里用不上就不截图出来了）），第二号是打卡记录，打卡记录每天占用一列，时间统一5位数

知道规则以后，我们就来写个vba 代码秒杀它

代码有点长，就不放代码图了，直接贴出来吧，

这是主过程，代码量其实并不多，复制粘贴就好


Option Explicit


Sub 处理考勤数据()

Dim kqStr As String, yfStr As String

Dim ghStr As String, xmStr As String

Dim xRow As Integer, iRow As Integer

Dim xCol As Integer, xLen As Integer

Dim oArr(1 To 10000, 1 To 6)


With Worksheets(1) '考勤数据表

yfStr = Split(.Range("C3").Value, "-", , vbTextCompare)(1)

For xRow = 6 To .UsedRange.Rows.Count Step 2

ghStr = .Range("C" & xRow - 1).Value '工号赋值给变量

xmStr = .Range("K" & xRow - 1).Value '姓名赋值给变量

For xCol = 1 To 31

kqStr = .Cells(xRow, xCol).Value '考勤记录赋值给变量

If Len(kqStr) > 3 Then

For xLen = 1 To Len(kqStr) Step 5

iRow = iRow + 1

oArr(iRow, 1) = yfStr '考勤月分

oArr(iRow, 2) = xCol '考勤日期

oArr(iRow, 3) = ghStr '工号

oArr(iRow, 4) = xmStr '姓名

oArr(iRow, 5) = CDate(Mid(kqStr, xLen, 5)) '分离时间

oArr(iRow, 6) = 状态(oArr(iRow, 5)) '判断结果

Next

End If

Next

Next

End With

With Worksheets("处理结果")

.Range("A:D").ClearContents

.Range("A1").Resize(, 6).Value = Array("考勤月分", "日期", "工号", "姓名", "打卡时间", "状态")

.Range("A2").Resize(iRow, 6).Value = oArr

End With

MsgBox "考勤数据标准化处理完毕，共计处理出 " & iRow & " 条记录！", , "处理完成"

End Sub



这里还有个自定义函数，取出时间后，简单判断一下刷卡结果，因打卡记录不规范，此结果仅供参考分析之用。（该函数也可以用到单元格中）

Function 状态(ByVal dkTime As Date) '判断刷卡结果


Select Case dkTime

Case Is <= #8:00:00 AM#

状态 = "正常"

Case Is < #12:00:00 PM#

状态 = "异常"

Case Is <= #2:00:00 PM#

状态 = "正常"

Case Is < #6:00:00 PM#

状态 = "异常"

Case Else

状态 = "正常"

End Select

End Function


自定义函数中的异常其实就是迟到或早退，为了给新人降低难度，统一做异常处理了。

因为这个非常不好判断（有打上班卡，提前打下班卡叫早退，也有可能是忘了有没有打上班卡，补打一次（宁愿迟到也不愿意旷工半天），下班正常打卡，（中余外出打2次卡）等等，不同公司制度不同，情况太复杂了）

代码写好以后，要方便操作，还是插入一个形状，然后右键它，指定宏，选择 处理考勤数据 这个宏，指定好以后直接点按钮就可以啦，来看一下效果图吧！


处理成这样的数据以后，要用函数，或者透视表来分析都很方便了！

接下来就用透视表来分析一下吧，为了方便后期刷新（每个月都要做，总不能每个月都手工插入透视表吧？），把这结果表做成超级表，然后再来创建透视表，以后超级表中数据有增减，在透视表中只需要刷新就可以更新结果了

鼠标选中数据区域中任意单元格，点开始，套用表格样式，点选一个你喜欢的样式，弹出的窗口中一定要勾上 数据源包含标题

来看一下步骤图吧，


表格样式套用好了，我们再来修改它的名字，同样的选中超级表中任意单元格，点 功能区最右边的 表设计 把名称修为 考勤数据 ，来看一下设置步骤


为什么要修改名字呢？因为后面要让它自动更新，统一名称好操作一点。设置好以后，就插入透视表，同样的选中超级表中任意单元格，点 插入，透视表，来看步骤图05

不需要将数据添加到数据模型，所以这里不勾它（版本不同，可能没有此选项，请忽略）

（加入数据模型后，透视表会有一些隐藏功能，我们用不上，所以不用勾选）

然后在透视表里拖拖拖，做简单的汇总分析


把状态 拉到列，再拉一个状态到值（计数）,把姓名和日期拉到行

左边的透视表中可以看到汇总情况，大致看一下，刷卡很不规范有刷超过4次和不足4次的，这样的数据要统计还是很麻烦的。

这就是为什么会有人说考勤是史上最难处理的原因了，（如何准确处理考勤结果就不在讨论范围内了，因为各公司制度不同，处理起来差异很大，数据标准化以后可以自己想办法处理了！）

到这一步，次月考勤数据更新以后，还无法实现刷新效果，因为我还没有写对超级表中的数据做更改的代码。

接下来把之前的过程复制一份出来，对名称做一个修改，再添加一些代码进去，就可以实现了


Sub 处理考勤数据超级表()

Dim kqStr As String, yfStr As String

Dim ghStr As String, xmStr As String

Dim xRow As Integer, iRow As Integer

Dim xCol As Integer, xLen As Integer

Dim oArr(1 To 10000, 1 To 6)


Dim lst As ListObject


With Worksheets("考勤记录")

yfStr = Split(.Range("C3").Value, "-", , vbTextCompare)(1)

For xRow = 6 To .UsedRange.Rows.Count Step 2

ghStr = .Range("C" & xRow - 1).Value '工号赋值给变量

xmStr = .Range("K" & xRow - 1).Value '姓名赋值给变量

For xCol = 1 To 31

kqStr = .Cells(xRow, xCol).Value '考勤记录赋值给变量

If Len(kqStr) > 3 Then

For xLen = 1 To Len(kqStr) Step 5

iRow = iRow + 1

oArr(iRow, 1) = yfStr '考勤月分

oArr(iRow, 2) = xCol '考勤日期

oArr(iRow, 3) = ghStr '工号

oArr(iRow, 4) = xmStr '姓名

oArr(iRow, 5) = CDate(Mid(kqStr, xLen, 5)) '分离时间

oArr(iRow, 6) = 状态(oArr(iRow, 5)) '判断结果

Next

End If

Next

Next

End With


With Worksheets("处理结果")

For Each lst In .ListObjects

If lst.Name = "考勤数据" Then

lst.Range.Delete

Exit For

End If

Next

.Range("A1").Resize(, 6).Value = Array("考勤月分", "日期", "工号", "姓名", "打卡时间", "状态")

.Range("A2").Resize(iRow, 6).Value = oArr

.ListObjects.Add(xlSrcRange, .Range("$A$1").CurrentRegion, , xlYes).Name = "考勤数据"

End With

ActiveWorkbook.RefreshAll

MsgBox "考勤数据标准化处理完毕，共计处理出 " & iRow & " 条记录！", , "处理完成"

End Sub


为了方便看处理出来的区别，先把透视表 行 中的日期拉出去，看一下结果


可以看到 姓名最后有空白，那是因为考勤数据源里有的姓名被删除掉了，接下来要做的是去数据源里，把没姓名的记录都删除掉，然后再使用新的宏，重新分析。

可以多删除一些，方便看效果，在透视表里插入一个形状，指定 处理考勤数据超级表 这个宏 忘了怎么指定了？翻一下上面的记录，有过！

都设置好以后，就是点按钮啦！！看吧，很香的哟！！

点一下，结果就出来了，用VBA是不是很香啊，可能你每个月要花几小时来做的事情，用它只需要点一下，不到1秒就处理完了。数据标准化处理以后，再做其它分析就简单多啦！！

相关推荐

Java 8 新特性全面解读:解锁现代编程的魅力

Java8新特性全面解读：解锁现代编程的魅力Java8作为Java语言发展史上里程碑式的版本，不仅带来了诸多新特性，更深刻地改变了我们编写代码的方式。无论是简洁的Lambda表达式，还是强大的S...

教程:克隆公司饭卡 然后优雅地“蹭饭”

最近借了Proxmark3来娱乐性的玩下RFID技术，工资甚低的我只好拿公司饭卡实验，优雅地蹭几顿。物业大叔表打我啊！以下操作纯属学习目的，初学难免错误较多，望斧正。首先了解M1卡的结构：请参考htt...

新课标高中教材1030个短语大汇总（高中新课标英语词汇）

1.anamountof+不可数名词许多...

看完这篇文章你就懂 AQS 了（赛科龙aqs401参数详情）

前言谈到并发，我们不得不说AQS(AbstractQueuedSynchronizer)，所谓的AQS即是抽象的队列式的同步器，内部定义了很多锁相关的方法，我们熟知的ReentrantLock、Ree...

Java 8新特性全面解析:开启现代化编程之旅

Java8新特性全面解析：开启现代化编程之旅Java8作为Java语言发展历程中的重要里程碑，在2014年正式发布。它的到来标志着Java从传统面向对象编程向支持函数式编程迈进的重要一步。在这一版...

Java 8新特性全面剖析:让代码更优雅、更高效

Java8新特性全面剖析：让代码更优雅、更高效Java8，作为Java语言发展史上的一座里程碑，带来了众多令人振奋的新特性。这些新特性不仅极大地提升了开发效率，还让代码变得更优雅、更简洁。今天，我...

线程安全编程方法总结（线程安全编程方法总结）

保护线程安全是多线程编程中的核心问题，关键在于控制共享资源的访问并协调线程间的执行顺序。以下是常用的基本方法及其适用场景：1.互斥锁（MutexLocks）机制：通过锁（如synchronize...

考勤数据标准化处理（考勤标准化管理制度）

经常做考勤的同学有没有遇到过这样的考勤数据呢？没错，从考勤机里导出来的，要统计那叫一个麻烦啊（有同学说可以导出txt文件，然后再处理会省事很多，有条件的小伙伴可以自己研究研究）看这表格数据其实挺规范的...

SQL语句大全，所有的SQL都在这里（sql语句百度百科）

一、基础1、说明：创建数据库CREATEDATABASEdatabase-name2、说明：删除数据库dropdatabasedbname3、说明：备份sqlserver---创建备份数...

手搓Agno智能体使用Ollama模型（ollama本地智能体）

轻量化智能体开源框架Agno有兴趣了解WhatisAgno-Agno安装python3.12...

高级排序算法之快速排序（高效排序）

前言今天继续算法学习，本次学习的是高级排序之快速排序。本文代码部分存在调用公共方法，可在文章：...

Linux cmp 命令使用详解（linux常用命令cp）

简介Linux中的...

N张图告诉你K-DB为什么能全面兼容Oracle?

不是每一款数据库都能全面兼容Oracle，就像不是所有数据库都可以被称之为K-DB。一般数据库能做到的SQL标准和函数上兼容Oracle，而K-DB则能实现更多，在数据库体系架构、集群方式、数据库对象...

12. Langchain评估与调试:用LangSmith优化模型表现

引言：从"感觉不错"到"数据说话"2025年某电商平台通过LangSmith系统化的评估优化，将客服机器人的问题解决率从68%提升至92%。本文将详解如何用...

那些有用但不为大家所熟知的 Java 特性

本文最初发表于PiotrMińkowski的个人站点Medium网站，经作者授权，由InfoQ中文站翻译分享。...

取消回复欢迎 你 发表评论:

一周热门
最近发表
标签列表
Copyright Your WebSite.Some Rights Reserved.