打卡记录整理VBA

gemeng25569

求助各位老师，

关于打卡记录如何用EXCEL VBA分解至想要的结果，这个有点难度了
1. 每天会有超出两次的打卡记录，记录最早和最晚的一次
2. 将日期时间分配到考勤表中
3. 从第4行开始需要一键生成的那种效果，

各位老师们看看有没有办法做到，这个对于我就是高难度了，或者哪里能找到这种类型的示例

lcluck2002

Mark，回头报到。

chenjy267

两重字典，第二重为set d(日期&姓名) = CreateObject("Scripting.Dictionary"), d(日期&姓名)(打卡时间) = (打卡时间)，在d(日期&姓名)的items中取得最小值和最大值

xsy我可以很好

考勤表1.rar (27.6 KB, 下载次数: 17)

2023-4-30 10:02 上传

点击文件名下载附件

凑个热闹，学习更优代码

gemeng25569

3190496160 发表于 2023-4-30 09:28

春风化雨老师你好，

你的代码很厉害，就这个效果，我看得云里雾里的不太懂，想小改一下都无从下手，所还得麻烦你帮忙看一下

1. 《员工考勤表》 里第2行有日期的，所以《考勤数据》打卡时间的日期和 《员工考勤表》里的日期要匹配得上，不然就错乱了
2. 《员工考勤表》里B列中，需要计算 工作总天数 和 工作总工时 我加了代码好像不对
3. 《员工考勤表》里签到时间和签退时间反了，格式能不能用代码控制成24小时制的格式：17：35，秒不要显示

万分感谢！

gemeng25569

chenjy267 发表于 2023-4-30 09:53
两重字典，第二重为set d(日期&姓名) = CreateObject("Scripting.Dictionary"), d(日期&姓名)(打卡时间) =  ...

字典我不通啊，能否给给个示例我学习一下啊