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?!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
Code bài 22 dòng IfỦa sao chạy code mà bôi màu cả thế anh
Thấy bảo để học hỏi mà từ đầu đến bài 25 không thấy tự mày mò sửa chút nào cả thế nhỉ. Trong khi đó thì cứ nằng nặc dùng code cơ.Em xin cảm ơn các anh đã giúp đỡ em ạ
Học móng (tức học kiểu mò lóc)Thấy bảo để học hỏi mà từ đầu đến bài 25 không thấy tự mày mò sửa chút nào cả thế nhỉ. Trong khi đó thì cứ nằng nặc dùng code cơ.