Tô màu giờ Ra - Vào nếu trễ hoặc trước so với thời gian qui định (1 người xem)

[Excel365]

Nhờ các anh chị giúp em chỉnh sửa code tô màu giờ Ra-Vào so với thời gian qui định. Nhưng code đang bị lỗi, khi code tô màu xong Vào 1, đến phần Ra 1, thì các màu đã tô ở Vào 1 mất đi, ...

VD: trường hợp
Đặng Thị Dương Phương (dòng 18)
Vào 1: 7:48
Ra 1: 10:41
Đúng ra sẽ tô màu cả 2 (Vào 1, Ra 1)
Nhưng code chỉ tô màu Vào 1.

Nhờ các anh chị giúp đỡ.
Trân trọng cảm ơn

 

[SA_DQ]

        If Rng(i, 1).Offset(, -5) <> "CN" And Rng(i, 1).Offset(, -5) <> "B" & ChrW(7843) & "y" Then
            'Neu Vao 1 sau 7:30 -> to mau '
            If CDate(Rng(i, 1)) > #7:30:00 AM# Then
                Rng(i, 1).Interior.ColorIndex = 7
                Rng(i, 1).Font.Color = vbWhite
            End If              '<=|'
                    'Neu Vao Ra 1 truoc 11:00 -> to mau '
            If CDate(Rng(i, 2)) < #11:00:00 AM# Then
                Rng(i, 2).Interior.ColorIndex = 8
                Rng(i, 2).Font.Color = vbWhite
            End If             '<=|'
                    'Neu Vao 2 sau 13:30 -> to mau '
            If CDate(Rng(i, 3)) > #1:30:00 PM# Then
                Rng(i, 3).Interior.ColorIndex = 9
                Rng(i, 3).Font.Color = vbWhite
                    'Neu Vao Ra 2 truoc 17:00 -> to mau '
            End If             '<=|'
            If CDate(Rng(i, 4)) < #5:00:00 PM# Then
                Rng(i, 4).Interior.ColorIndex = 10
                Rng(i, 4).Font.Color = vbWhite
            End If             '<=|'
        End If