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

vinh12tn

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

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
Điểm
195
Tuổi
32
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,377
Được thích
4,158
Điểm
560
Nơi ở
Hải Phòng
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
20
Được thích
0
Điểm
363
Tuổi
29
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
20
Được thích
0
Điểm
363
Tuổi
29
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