求大神帮忙检测LOOKUP代码

banditson

运行到LOOKUP时返回值出错，愿意是d里面有且值等于"SC08"时进入第一个LOOKUP，按以下运行后E列返回"#VALUE!"，把时间加双引后运行返回"#NAME?"，是不是时间不能这样对比？请高手赐教。谢谢！！！！！！（D列都是时分秒时间值，自定义格式为hh":"mm，如12:56:40显示为12:56）。
For r = er To 2 Step -1
   刷卡时间 = Format(Range("d" & r), "hh:mm")
    Dim d
    Set d = CreateObject("Scripting.Dictionary")
    ar = Sheets("基础资料").[a1].CurrentRegion
    For i = 2 To UBound(ar)
         d(ar(i, 1)) = d(ar(i, 1)) + ar(i, 5)
    Next
    With Sheets("数据")
        arr = .[a1].CurrentRegion
        For i = 2 To UBound(arr)
        If d.exists(arr(i, 1)) And d(.Cells(i, 1).Value) = "SC08" Then
        .Cells(i, 5) = [Lookup(刷卡时间,{06:00;11:00;17:30},{"上午上班";"中午上班";"下午下班"})]
        Else
        .Cells(i, 5) = [Lookup(刷卡时间,{06:00;11:00;17:30},{"上午上班";"中午上班";"下午下班"})]
        End If
        Next
    End With
   
   Next r
TEST.rar (322.67 KB, 下载次数: 7)

2018-8-5 16:56 上传

点击文件名下载附件

jiminyanyan

用了字典了，没必要用你那公式了吧

banditson

朱荣兴 发表于 2018-8-5 15:26
代码思路不清，很多代码是多余的，
既然使用vba了，就不必再使用工作表函数了，
上传你的附件

已经上传附件！！！！！！

wxh_wf

looKUP 函数要求按递增数列排序，你的上午，中午，下午，不是递增数列，可以在前边分别加上ABC或123试试

banditson

wxh_wf 发表于 2018-8-5 17:21
looKUP 函数要求按递增数列排序，你的上午，中午，下午，不是递增数列，可以在前边分别加上ABC或123试试

不是这个问题，改了后问题依然存在，可能是时间比对存在问题