Nhờ anh chị viết em code so sánh dữ liệu 2 cột

Liên hệ QC

thuy2022

Thành viên chính thức
Tham gia
8/6/22
Bài viết
77
Được thích
4
Em chào anh chị em có bảng dữ liệu 2 cột nhờ anh chị viết em 1 đoạn code so sánh với điều kiện so sánh 2 cột nếu khác giá trị thì bôi màu vàng ạ như trong file ạ
em xin cảm ơn anh chị
 

File đính kèm

  • SoSanh.xlsb
    8.8 KB · Đọc: 14
Dùng "định dạng có điều kiện" tốt hơn.

Thích code thì chiều:

Mã:
Sub DinhDang()
Dim cel As Range, lastRow As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row

Range("A2:C" & lastRow).Interior.ColorIndex = xlNone 'xoa mau
For Each cel In Range("A2:A" & lastRow)
    If cel.Value + cel.Offset(0, 1).Value <> cel.Offset(0, 2).Value Then
       cel.Resize(1, 3).Interior.ColorIndex = 35
    End If
Next
End Sub
 
Upvote 0
Dùng "định dạng có điều kiện" tốt hơn.

Thích code thì chiều:

Mã:
Sub DinhDang()
Dim cel As Range, lastRow As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row

Range("A2:C" & lastRow).Interior.ColorIndex = xlNone 'xoa mau
For Each cel In Range("A2:A" & lastRow)
    If cel.Value + cel.Offset(0, 1).Value <> cel.Offset(0, 2).Value Then
       cel.Resize(1, 3).Interior.ColorIndex = 35
    End If
Next
End Sub
Theo như file thì Cel<>tổng 2Cel.offset thì phải?!
 
Upvote 0
Ủa sao chạy code mà bôi màu cả thế anh
 

File đính kèm

  • allmau.jpg
    allmau.jpg
    51.9 KB · Đọc: 9
Upvote 0
Em xin cảm ơn các anh đã giúp đỡ em ạ
 
Upvote 0
Dạ em cảm ơn anh tuấn nhiều nhé. Cảm ơn anh đã nhiệt tình giúp em.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom