Ai giúp Vấn đề Tìm giá trị giống nhau trong excel

[vnnlu]

Chào Các bác.
Em có 1 vấn đề muốn hỏi ai có thể giúp e được không ạ
Em có 1 file Công T11 E đang muốn viết công thức để tìm những giá trị giờ ra vào giống nhau liên tiếp
sẽ báo đỏ mà không nghĩ ra cách làm
bác nào đã từng hoặc có kinh nghiệm xin chỉ giúp với ạ

 

[snow25]

Chào Các bác.
Em có 1 vấn đề muốn hỏi ai có thể giúp e được không ạ
Em có 1 file Công T11 E đang muốn viết công thức để tìm những giá trị giờ ra vào giống nhau liên tiếp
sẽ báo đỏ mà không nghĩ ra cách làm
bác nào đã từng hoặc có kinh nghiệm xin chỉ giúp với ạ

Chưa từng và không có kinh nghiệm được không bạn.Mà dùng VBA dùng không.

 

[kelacloi]

bác có giải pháp cho e xin với ạ.
VBA cũng được bác ạ.

Thanks bác!

 

[vnnlu]

Chưa từng và không có kinh nghiệm được không bạn.Mà dùng VBA dùng không.

Vậy bác thiết kế giúp e

 

[snow25]

Chào Các bác.
Em có 1 vấn đề muốn hỏi ai có thể giúp e được không ạ
Em có 1 file Công T11 E đang muốn viết công thức để tìm những giá trị giờ ra vào giống nhau liên tiếp
sẽ báo đỏ mà không nghĩ ra cách làm
bác nào đã từng hoặc có kinh nghiệm xin chỉ giúp với ạ

Bạn xem nhé.Chưa chuẩn lắm.

Sub tomau()
    Dim i As Long, j As Long, sh As Worksheet, lr As Long, dk As String
    For Each sh In ThisWorkbook.Worksheets
        sh.Cells.Interior.ColorIndex = 0
        lr = sh.Range("C" & Rows.Count).End(xlUp).Row - 4
        For i = 10 To lr Step 4
            dk = Empty
            For j = 7 To 35
              If sh.Cells(i, j).Value <> Empty Then
                 If sh.Cells(i, j).Value = sh.Cells(i, j + 1).Value Then
                    sh.Cells(i, j).Resize(, 2).Interior.ColorIndex = 3
                 End If
              End If
            Next j
        Next i
    Next
End Sub

 

[vnnlu]

Bạn xem nhé.Chưa chuẩn lắm.

Sub tomau()
    Dim i As Long, j As Long, sh As Worksheet, lr As Long, dk As String
    For Each sh In ThisWorkbook.Worksheets
        sh.Cells.Interior.ColorIndex = 0
        lr = sh.Range("C" & Rows.Count).End(xlUp).Row - 4
        For i = 10 To lr Step 4
            dk = Empty
            For j = 7 To 35
              If sh.Cells(i, j).Value <> Empty Then
                 If sh.Cells(i, j).Value = sh.Cells(i, j + 1).Value Then
                    sh.Cells(i, j).Resize(, 2).Interior.ColorIndex = 3
                 End If
              End If
            Next j
        Next i
    Next
End Sub

Vẫn Chưa lọc hết đc.mình tìm vẫn thấy có 1 số giờ ra trùng mà k tô màu

 

[snow25]

Vẫn Chưa lọc hết đc.mình tìm vẫn thấy có 1 số giờ ra trùng mà k tô màu

Bạn gửi lên mình xem nào.Chỗ nào chưa tô màu.

 

[vnnlu]

Bạn gửi lên mình xem nào.Chỗ nào chưa tô màu.

Mình Bôi Vàng Vd 1 trường hợp .giờ ra đó ạ.với lại bác xem luôn giúp mình chỉ cần lọc 3 ngày liên tiếp mới tính bôi ạ

 

[snow25]

Mình Bôi Vàng Vd 1 trường hợp .giờ ra đó ạ.với lại bác xem luôn giúp mình chỉ cần lọc 3 ngày liên tiếp mới tính bôi ạ

Bạn thử code này.

Sub tomau()
    Dim i As Long, j As Long, sh As Worksheet, lr As Long, dk As String
    For Each sh In ThisWorkbook.Worksheets
        sh.Cells.Interior.ColorIndex = 0
        lr = sh.Range("C" & Rows.Count).End(xlUp).Row - 4
        For i = 10 To lr Step 4
            dk = Empty
            For j = 7 To 35
              If sh.Cells(i, j).Value <> Empty Then
                 If sh.Cells(i, j).Value = sh.Cells(i, j + 1).Value Then
                    sh.Cells(i, j).Resize(, 2).Interior.ColorIndex = 3
                 End If
              End If
              If sh.Cells(i + 1, j).Value <> Empty Then
                 If sh.Cells(i + 1, j).Value = sh.Cells(i + 1, j + 1).Value Then
                    sh.Cells(i + 1, j).Resize(, 2).Interior.ColorIndex = 3
                 End If
              End If
            Next j
        Next i
    Next
End Sub

 

[vnnlu]

Bạn thử code này.

Sub tomau()
    Dim i As Long, j As Long, sh As Worksheet, lr As Long, dk As String
    For Each sh In ThisWorkbook.Worksheets
        sh.Cells.Interior.ColorIndex = 0
        lr = sh.Range("C" & Rows.Count).End(xlUp).Row - 4
        For i = 10 To lr Step 4
            dk = Empty
            For j = 7 To 35
              If sh.Cells(i, j).Value <> Empty Then
                 If sh.Cells(i, j).Value = sh.Cells(i, j + 1).Value Then
                    sh.Cells(i, j).Resize(, 2).Interior.ColorIndex = 3
                 End If
              End If
              If sh.Cells(i + 1, j).Value <> Empty Then
                 If sh.Cells(i + 1, j).Value = sh.Cells(i + 1, j + 1).Value Then
                    sh.Cells(i + 1, j).Resize(, 2).Interior.ColorIndex = 3
                 End If
              End If
            Next j
        Next i
    Next
End Sub

thank bác nhé .đã ok rồi ạ