考勤系统数据公式编入VBA

jiangxue1975

求大神帮助：
目前人事考勤打卡记录+班别，我希望自动识别打卡异常数据
1. 目前原始数据包含
员工姓名  卡号  刷卡日期  刷卡时间（上下班已经合并到一个单元格）    班别
2. 我已经通过函数把刷卡时间进行了切割  
上班打卡时间 =TIMEVALUE(MID(D2,1,5))
下班打卡时间==TIMEVALUE(IF(F2="夜",MID(D3,1,5),MID(D2,7,5)))
基于班别的应该上班时间 =TIMEVALUE(IF(F2="早","7:00",IF(F2="白","8:00",IF(F2="中","15:00",IF(F2="夜","23:00",IF(,,))))))
基于班别的应该下班时间 =TIMEVALUE(IF(F2="早","15:00",IF(F2="白","17:00",IF(F2="中","23:00",IF(F2="夜","7:00",IF(,,))))))
基于打卡记录与班别核算的上下班时间判断是否为打卡异常 =IF(OR(G2>I2,H2<J2),"迟早或早退",)

7月刷卡数据.rar (10.7 KB, 下载次数: 41)

2018-9-7 09:58 上传

点击文件名下载附件

需求是：
1. 如何把每列的公式写入VBA， 目前是只有几行，但超过几千行后就运算速度大幅下降
2. 类似的需求是不是都可以解决？比如Vlookup函数

hefuqing

录制下就好了

jiangxue1975

hefuqing 发表于 2018-9-7 10:19
录制下就好了

怎么录制呢？可否教我一下？方便的话加个微信也行 13732622601

jiangxue1975

朱荣兴 发表于 2018-9-7 10:53
参考》》》》》》》》》》》》》》》》》
Sub 考勤整理()
arr = Sheet1.[a1].CurrentRegion

万分感谢，希望多多向您学习