根据排班表数据填写到I列，J列为结果，如何使用宏代码实现，求大佬帮忙

凌云漂流瓶2014

根据排班表数据填写到I列，J列为结果，如何使用宏代码实现，求大佬帮忙，07:50:00-19:49:59为白班，19:50:00-07:49:59为夜班

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, r&, dte As Date, isFlag As Boolean
   
    Application.ScreenUpdating = False
   
    br = Worksheets(2).[A1].CurrentRegion.Value
    ar = [A1].CurrentRegion.Value
   
    For i = 2 To UBound(ar)
        dte = CDate(Format(ar(i, 7), "yyyy-m-d"))
        isFlag = False
        For j = 1 To UBound(br)
            If dte >= br(j, 1) And dte <= br(j, 2) Then
                If CBool(InStr(br(j, 4), ar(i, 6))) And CBool(InStr(br(j, 5), ar(i, 8))) Then
                    ar(i, 9) = br(j, UBound(br, 2))
                    isFlag = True
                    Exit For
                End If
            End If
        Next j
        If isFlag = False Then ar(i, 9) = Empty
    Next i
        
    [A1].Resize(UBound(ar), UBound(ar, 2)) = ar
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

。。。。。。。。。。。

木子客

下面这段可以判断时间是白班还是夜班，至于其他的，我不明白你要实现的J列是怎么来的
Sub test()
    Dim t
    Dim i%
    For i = 2 To Range("G1").End(xlDown).Row
   
        t = Format(Range("G" & i), "hh:mm:ss")
        
        If Format(t, "hh:mm:ss") < "07:50:00" Or Format(t, "hh:mm:ss") > "21:50:00" Then
            Debug.Print "夜班"
        Else
            Debug.Print "白班"
        End If
    Next i
End Sub

凌云漂流瓶2014

gwjkkkkk 发表于 2024-6-22 20:01
。。。。。。。。。。。

没有区分白夜班，所以还是不对

凌云漂流瓶2014

gwjkkkkk 发表于 2024-6-22 20:01
。。。。。。。。。。。

帮忙注释一下代码

凌云漂流瓶2014

gwjkkkkk 发表于 2024-6-22 19:54
Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, r&, dte As Date, isFlag As Boolean

没有区分白夜班，所以还是不对，顺便帮忙注释一下代码

凌云漂流瓶2014

gwjkkkkk 发表于 2024-6-22 20:01
。。。。。。。。。。。

比如F4单位格改为D02AA302,则显示空白，因为排班表这个产线这个日期没有夜班

凌云漂流瓶2014

gwjkkkkk 发表于 2024-6-22 19:54
Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, r&, dte As Date, isFlag As Boolean

比如F4单位格改为D02AA302,则显示空白，因为排班表这个产线这个日期没有夜班

gwjkkkkk

凌云漂流瓶2014 发表于 2024-6-22 20:32
没有区分白夜班，所以还是不对

没看清题，请参考。。。