Tô màu có điều kiện bằng VBA

[kokoro mitsubishi]

Em xin phép diễn đàn
em cũng có nội dung tương tự nhờ thầy và các anh chị em hỗ trợ thay thế bằng VBA
Hiện tại file đính kèm đang sử dụng định dạng có điều kiện,tuy nhiên số lượng ít dòng thì dùng OK nhưng khi lên đến 800 dòng file chậm quá
Điều kiện em cũng đã ghi trong file


Em trân thành cảm ơn anh chị

 

[HUONGHCKT]

Em xin phép diễn đàn
em cũng có nội dung tương tự nhờ thầy và các anh chị em hỗ trợ thay thế bằng VBA
Hiện tại file đính kèm đang sử dụng định dạng có điều kiện,tuy nhiên số lượng ít dòng thì dùng OK nhưng khi lên đến 800 dòng file chậm quá
Điều kiện em cũng đã ghi trong file

View attachment 277154
Em trân thành cảm ơn anh chị

Trong khi chờ các giải pháp khác hãy thử code sau:

Option Explicit

Sub ToMau()
Dim i&, j&, Lr&
Dim Ws As Worksheet
Set Ws = Sheets("Theo doi tien do")
Lr = Ws.Cells(Rows.Count, 5).End(xlUp).Row
For i = 7 To Lr
    j = Day(Ws.Cells(i, 5)) + 10
    Ws.Cells(i, j).Resize(1, Ws.Cells(i, 6)).Interior.Color = vbYellow
Next i
End Sub

màu đang tô cho các ô là màu vàng

 

[Ronaldinho7]

Bạn xem thử xem đúng ý không?

 

[kokoro mitsubishi]

Cảm ơn bác em sẽ thử ạ