求助大神根据日期、机器号和班次找员工

边城烽火 · 发表于 2022-11-28 18:58

老板交代要做一下员工绩效，在《汇总》表中要根据日期、机器号和班次到《排班表》中找到对应的员工名字，填写到《汇总》表的H列里。

哪位大神能帮忙，跪求！

cowrn · 发表于 2022-11-28 19:26

看看这个代码是否合适

Sub 找出H列人名()

Dim arr, brr
Dim i&, j&
Dim iDay&

arr = Sheets("排班表").Cells(1, 1).CurrentRegion
brr = Sheets("汇总").Cells(1, 1).CurrentRegion

For i = 2 To UBound(brr)
      iDay = Day(brr(i, 1))
      For j = 2 To UBound(arr)
         If arr(j, 1) & arr(j, 2) = brr(i, 2) & brr(i, 3) Then brr(i, 8) = arr(j, iDay + 2)

      Next

Next

Sheets("汇总").Cells(1, 1).Resize(UBound(brr), UBound(brr, 2)) = brr

End Sub

nie414006 · 发表于 2022-11-28 20:55

=XLOOKUP(B2&C2,排班表!$A$3:$A$198&排班表!$B$3:$B$198,XLOOKUP(汇总!A2,排班表!$C$1:$Q$1,排班表!$C$3:$Q$198))

nie414006 · 发表于 2022-11-28 20:59

nie414006 发表于 2022-11-28 20:55
=XLOOKUP(B2&C2,排班表!$A$3:$A$198&排班表!$B$3:$B$198,XLOOKUP(汇总!A2,排班表!$C$1:$Q$1,排班表!$C$3: ...

=XLOOKUP(B2&C2,排班表!A$3:A$198&排班表!B$3:B$198,XLOOKUP(A2,排班表!C$1:Q$1,排班表!C$3:Q$198))

zxsea_7426 · 发表于 2022-11-28 21:25

这就是标准字典用法模板一样

gwjkkkkk · 发表于 2022-11-28 21:35

请参考附件。。。

wengjl · 发表于 2022-11-29 09:22

对汇总表进行循环
1、依据日期，到排班表顶行查找日期，找到后记下列号值
2、依据机器号和班次的早晚二个内容，到排班表中查找，找到后记下行号值
3，根据行列的值，得到操作员的姓名，将姓名写入到汇总表中

边城烽火 · 发表于 2022-11-30 09:06

cowrn 发表于 2022-11-28 19:26
看看这个代码是否合适

Sub 找出H列人名()

非常感谢！学习了！

边城烽火 · 发表于 2022-11-30 09:08

zxsea_7426 发表于 2022-11-28 21:25
这就是标准字典用法模板一样

测试了一下，确实好用，谢谢了！

边城烽火 · 发表于 2022-11-30 09:08

wengjl 发表于 2022-11-29 09:22
对汇总表进行循环
1、依据日期，到排班表顶行查找日期，找到后记下列号值
2、依据机器号和班次的早晚二个 ...

嗯嗯，是这个原理，感谢感谢！

		自动登录	找回密码
密码			免费注册

[求助] 求助大神 根据日期、机器号和班次找员工

[求助] 求助大神根据日期、机器号和班次找员工