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

Quảng cáo

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
Điểm
301
Tuổi
30
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
Điểm
0
Tuổi
34
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,544
Được thích
4,415
Điểm
1,568
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
22
Được thích
0
Điểm
301
Tuổi
30
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
Điểm
301
Tuổi
30
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?
 
Quảng cáo
Top Bottom