Định dạng tô màu ô theo điều kiện

[hongphuong1997]

Em nhờ thầy cô và các anh chị viết giúp code như file đính kèm

 

[Phuocam]

Thử:

If InStr(1, Range("D12").Value, Range("B12").Value) > 0 Then
...

 

[hongphuong1997]

Thử:

If InStr(1, Range("D12").Value, Range("B12").Value) > 0 Then
...

Hi hi..... em cảm ơn anh
Chúc anh chơi tết vui vui anh nhé

Bài đã được tự động gộp: 1/1/19

Thử:

If InStr(1, Range("D12").Value, Range("B12").Value) > 0 Then
...

Anh ơi em viết như này
Nếu mà nó không tìm thấy thì nó báo lỗi
Vậy thì phải làm như nào hở anh?