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

Liên hệ QC MyVTV Add-ins

vinh12tn

Thành viên mới
Tham gia ngày
19 Tháng năm 2013
Bài viết
22
Được thích
0
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 ạ
 

File đính kèm

  • BONDER.xlsm
    252.5 KB · Đọc: 12

Hieu042

Thành viên thường trực
Tham gia ngày
13 Tháng chín 2017
Bài viết
227
Được thích
95
Giới tính
Nam
Cái này chắc chơi VBA thôi chứ condition formatting không nghĩ ra được
 

phulien1902

GPE - My love
Tham gia ngày
6 Tháng bảy 2013
Bài viết
3,545
Được thích
4,416
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ử:
PHP:
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

Thành viên mới
Tham gia ngày
19 Tháng năm 2013
Bài viết
22
Được thích
0
Bạn thử:
PHP:
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

Thành viên mới
Tham gia ngày
19 Tháng năm 2013
Bài viết
22
Được thích
0
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?
 
Top Bottom