考勤时间和就餐时间做对比

小新り买蜡笔

H列：        需在H列抓取就餐表中对应的数据，并显示在同人员同日期下班打卡的对应行中，没有就餐数据为空，                                                                                       
                                                                                               
I列：        通过H列的数据和C列下班时间做对比，C列的时间大于19：30分的在I列对应行中做“OK”标识，否则显示“NO”

或者有更简单的办法实现，也是可以的！谢谢大神！！                                                                                       

鄂龙蒙

1. Sub 统计()
   
2.     Dim d, da, ar, br, i, t
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set da = CreateObject("Scripting.Dictionary")
   
5.    [D2:E10000] = Empty
   
6.     ar = Sheet1.Range("A1").CurrentRegion
   
7.     br = Sheet2.Range("A1").CurrentRegion
   
8.         For i = 2 To UBound(br)
   
9.             d(br(i, 1) & br(i, 2)) = br(i, 3)
   
10.         Next
    
11.         For i = 2 To UBound(ar)
    
12.             da(ar(i, 1) & ar(i, 2)) = i
    
13.         Next
    
14.         t = da.items
    
15.         For i = 0 To da.Count - 1
    
16.             Cells(t(i), 4) = d(Cells(t(i), 1) & Cells(t(i), 2))
    
17.             If Cells(t(i), 4) <> "" Then
    
18.                 If Cells(t(i), 3) >= "17:30" Then: Cells(t(i), 5) = "OK": Else: Cells(t(i), 5) = "NO"
    
19.             End If
    
20.         Next
    
21.    Set d = Nothing
    
22.    Set da = Nothing
    
23. End Sub

复制代码

小新り买蜡笔

大神，能做个说明嘛，想学习学习！

小新り买蜡笔

鄂龙蒙 发表于 2018-11-2 18:41

大神，能麻烦做个每条的涵义吗，想学习!