考勤自动汇总问题

xyh2732

请帮忙做个考勤统计数据表1、如何根据本表的日期、姓名，在排班表中找出对应的数据，在G列自动填入早班，中班，晚班。
2、根据C列“打卡时间”与 G列 "排班情况"，在“规律表”表格中找出对应的排班再本表的H列“考勤状态”填入“迟到、早退、正常上班、正常下班”。并且计算出迟到分钟数、早退分钟数，如果是正常上下班计算结果为0.

举例：（左边黄色部分是我想要的效果)
XYH   打卡时间9:06 ，此同事2月6日是早班 所以需要再H2填入“迟到”，早班正常上班时间为9:05分，所以需要再 I2单元格填入迟到分钟数“1”
考勤.rar (33.12 KB, 下载次数: 10)

2023-3-14 22:52 上传

点击文件名下载附件

cutecpu

祝順心，南無阿彌陀佛！

xyh2732

cutecpu 发表于 2023-3-15 10:46
祝順心，南無阿彌陀佛！

感谢您的回复，下载运行后出现错误提示，无法运行。请帮忙看看，谢谢！

xyh2732

cutecpu 发表于 2023-3-15 10:46
祝順心，南無阿彌陀佛！

弹出图片错误提示。。

cutecpu

xyh2732 发表于 2023-3-16 13:00
弹出图片错误提示。。

我電腦跑沒有問題耶~~~
您有改動過資料嗎??
要不要再上傳失敗的附件，我幫您看看

哥儿-

当排班情况为休息的时候，字典2里面没有对应的键值和条目，加个判断应该可以了，你试试
Sub demo()
   Set d1 = CreateObject("Scripting.Dictionary")
   Set d2 = CreateObject("Scripting.Dictionary")
   a = Sheets(3).UsedRange
   For i = 4 To UBound(a)
      For j = 6 To UBound(a, 2)
         d1(a(i, 4) & a(3, j)) = a(i, j)
      Next
   Next
   a = Sheets(2).[a1].CurrentRegion
   For i = 3 To UBound(a)
      d2(a(i, 1)) = Array(a(i, 2), a(i, 3))
   Next
   Status = Sheets(2).[f2:f5]
   a = Sheets(1).[a1].CurrentRegion
   off = 1
   For i = 2 To UBound(a)
      off = 1 - off
      If IsError(a(i, 6)) Then GoTo 1
      a(i, 7) = d1(a(i, 6) & a(i, 2))
      If a(i, 7) <> "ヰ" And a(i, 7) <> "" Then
         If d2.exists(a(i, 7)) Then
            t = Application.Max((a(i, 3) - d2(a(i, 7))(off)) * (-1) ^ off, 0) * 1440
            a(i, 8) = Status(off + IIf(t, 1, 3), 1)
            a(i, 9) = t
         End If
      Else
         a(i, 8) = "": a(i, 9) = ""
      End If
1  Next
   Sheets(1).[a1].CurrentRegion = a
End Sub

xyh2732

哥儿- 发表于 2023-3-18 14:35
当排班情况为休息的时候，字典2里面没有对应的键值和条目，加个判断应该可以了，你试试
Sub demo()
   Se ...

感谢您的帮忙，可以使用的，谢谢啦！

15997944532

哥儿- 发表于 2023-3-18 14:35
当排班情况为休息的时候，字典2里面没有对应的键值和条目，加个判断应该可以了，你试试
Sub demo()
   Se ...

If a(i, 7) <> "ヰ" And a(i, 7) <> "" Then  里面的"ヰ"是什么意思

15997944532

新手上路，多多指教