Định dạng conditional chứa nhiều điều kiện

[vinh12tn]

Nhờ mọi mọi người giúp đỡ phần định dạng có điều kiện

Nếu dữ liệu cột I giống nhau và chiều dài cột G chênh nhau 100 và dữ liệu ở cột E, cột F chỉ cẩn có 1 cái khác nhau thì các dòng đó tô màu. mình có gửi file đính kém

Cám ơn nhiều ạ

 

[Hieu042]

Cái này chắc chơi VBA thôi chứ condition formatting không nghĩ ra được

 

[phulien1902]

Nhờ mọi mọi người giúp đỡ phần định dạng có điều kiện

Nếu dữ liệu cột I giống nhau và chiều dài cột G chênh nhau 100 và dữ liệu ở cột E, cột F chỉ cẩn có 1 cái khác nhau thì các dòng đó tô màu. mình có gửi file đính kém

Cám ơn nhiều ạ

Bạn thử:

Sub Maybe()
    Dim LR As Long, i As Long, tomau As Boolean
    Application.ScreenUpdating = False
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To LR
        tomau = False
        If Cells(i, "I") = Cells(i + 1, "I") Then
         If Abs(Cells(i, "G") - Cells(i + 1, "G")) > 100 And Cells(i, "E") <> Cells(i + 1, "E") Or Cells(i, "F") <> Cells(i + 1, "F") Then
            tomau = True
        End If
        End If
        If tomau Then Rows(i).Resize(2).Interior.ColorIndex = 10
    Next i
    Application.ScreenUpdating = True
End Sub

 

[vinh12tn]

Bạn thử:

Sub Maybe()
    Dim LR As Long, i As Long, tomau As Boolean
    Application.ScreenUpdating = False
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To LR
        tomau = False
        If Cells(i, "I") = Cells(i + 1, "I") Then
         If Abs(Cells(i, "G") - Cells(i + 1, "G")) > 100 And Cells(i, "E") <> Cells(i + 1, "E") Or Cells(i, "F") <> Cells(i + 1, "F") Then
            tomau = True
        End If
        End If
        If tomau Then Rows(i).Resize(2).Interior.ColorIndex = 10
    Next i
    Application.ScreenUpdating = True
End Sub

Dạ cám ơn

 

[vinh12tn]

Nãy em mới thử thì code này thì nó chỉ so sánh dữ liệu hang trên và hang dưới, ví dụ như gặp trường hợp dòng 1 và dòng 2 không thỏa điều kiện nhưng dòng 1 và dòng 3 thỏa điều kiện thì bị bỏ sót ạ, vậy có cách nào để xử lý không anh?