老师帮忙看看代码，判断出来时间前后都差1分钟

tengyt

Sub bijiao()

一把小刀闯天下

'条件好像有问题，星期五为什么有上午，自己测试一下

Option Explicit

Sub test()
  Dim mark, i, t, arr
  arr = Range("j2:l" & Cells(Rows.Count, "j").End(xlUp).Row)
  mark = "一二三四五六日"
  For i = 1 To UBound(arr, 1)
    t = InStr(mark, Right(arr(i, 2), 1))
    Select Case t
    Case 1
      arr(i, 1) = IIf(CDate(arr(i, 1)) >= #9:00:00 AM# And _
        CDate(arr(i, 1)) <= #10:00:00 AM#, "按时", "未按时")
    Case 2 To 4, 6, 7
      If arr(i, 3) = "上午" Then
        arr(i, 1) = IIf(CDate(arr(i, 1)) >= #9:00:00 AM# And _
        CDate(arr(i, 1)) <= #10:00:00 AM#, "按时", "未按时")
      Else
        arr(i, 1) = IIf(CDate(arr(i, 1)) >= #2:30:00 PM# And _
        CDate(arr(i, 1)) <= #3:30:00 PM#, "按时", "未按时")
      End If
    Case 5
      arr(i, 1) = IIf(CDate(arr(i, 1)) >= #3:30:00 PM# And _
        CDate(arr(i, 1)) <= #5:00:00 PM#, "按时", "未按时")
    End Select
  Next
  [m2].Resize(UBound(arr, 1)) = arr
End Sub

tengyt

上面代码在上表运行很好，谢谢老师

我插入两列后，你帮我写的不能运行了，我还做了列调整

增加了当时间为00:00:00则显示“无考勤记录”

一把小刀闯天下老师，再出手帮忙改改，谢谢了

一把小刀闯天下

tengyt 发表于 2018-7-4 12:43
上面代码在上表运行很好，谢谢老师

我插入两列后，你帮我写的代码不能运行了，我还做了列调整

'规则是否有问题，跟你的示例结果相差很多。

'代码按你规则来写的看不出有什么毛病，自己好好确认一下。

Option Explicit

Sub test()
  Dim mark, i, t, arr, a, b
  arr = Range("l2:o2" & Cells(Rows.Count, "l").End(xlUp).Row)
  mark = "一二三四五六日"
  For i = 1 To UBound(arr, 1)
    If arr(i, 1) = #12:00:00 AM# Then
      arr(i, 1) = "无考勤记录"
    Else
      t = InStr(mark, Right(arr(i, 3), 1))
      Select Case t
      Case 1: a = #9:00:00 AM#: b = #10:00:00 AM#
      Case 2 To 4, 6, 7
        If arr(i, 4) = "上午" Then
          a = #9:00:00 AM#: b = #10:00:00 AM#
        Else
          a = #2:30:00 PM#: b = #3:30:00 PM#
        End If
      Case 5: a = #3:30:00 PM#: b = #5:00:00 PM#
      End Select
      arr(i, 1) = IIf(CDate(arr(i, 1)) >= a And CDate(arr(i, 1)) <= b, "按时", "未按时")
    End If
  Next
  [s2].Resize(UBound(arr, 1)) = arr  '把s2 改成m2就可以，这里做比较用
End Sub

夸不得

用函数也可以啊

tengyt

谢谢各位老师帮忙

tengyt

一把小刀闯天下 发表于 2018-7-2 13:51
'条件好像有问题，星期五为什么有上午，自己测试一下

Option Explicit

老师上面代码运行很好，太谢谢你了

我新插入两列后，你帮我写的不能运行了，还有我做了列调整

新增加了当时间为00:00:00则显示“无考勤记录”

老师，再出手改改，谢谢了

wode154808100

你做的还是太麻烦啊？比如8点上班  ，同一天7；50  和8；10 打卡2次 就有闲着没事（或忘记的） 你怎么判断啊！你的考勤还是需要挨个看啊

lsc900707

tengyt 发表于 2018-7-4 01:15
上面代码在上表运行很好，谢谢老师我插入两列后，你帮我写的不能运行了，我还做了列调整增加了当时间为00:0 ...

学会“评分”，很多问题迎刃而解！

wode154808100

你看看我做的 你可以修改下!看看怎么样

tengyt

一把小刀闯天下 发表于 2018-7-2 13:51
'条件好像有问题，星期五为什么有上午，自己测试一下

Option Explicit

上面代码在上表运行很好，谢谢老师

我插入两列后，你帮我写的代码不能运行了，我还做了列调整
新增加了当时间为00:00:00则显示“无考勤记录”

一把小刀闯天下老师，再出手帮忙改改，谢谢了