code fill color (1 người xem)

[jthanhtung]

anh chi giúp tôi cảm ơn trước.
trong 1 sheets cột A là cột DATE1 cột B là DATE2 cột C fill color, cột C căn cứ theo cột A trừ cột B cells nào nhỏ hơn 24h thì hiện fill color màu đỏ,
cảm ơn

 

[Quang_Hải]

anh chi giúp tôi cảm ơn trước.
trong 1 sheets cột A là cột DATE1 cột B là DATE2 cột C fill color, cột C căn cứ theo cột A trừ cột B cells nào nhỏ hơn 24h thì hiện fill color màu đỏ,
cảm ơn

Xem CF trong file đính kèm

 

[jthanhtung]

ý tôi là lấy ngày cột A trừ ngày cột B nếu nhỏ hơn 24 giờ (có nghĩa là 1 ngày 1 đêm) nên tôi xin code đó anh Quanghai ơi, cho tôi xin 1 đoạn code anh nhé.

 

[chuot0106]

anh chi giúp tôi cảm ơn trước.
trong 1 sheets cột A là cột DATE1 cột B là DATE2 cột C fill color, cột C căn cứ theo cột A trừ cột B cells nào nhỏ hơn 24h thì hiện fill color màu đỏ,
cảm ơn

Thử đoạn code này xem!

Public Sub tomau()
Dim i As Long, Rng As Range, Lr As Integer
    Lr = Sheet1.Range("A65536").End(xlUp).Row
    Set Rng = Sheet1.Range("A3:A" & Lr)
For i = 1 To Rng.Rows.Count
    If Rng(i, 2) - Rng(i, 1) < 1 Then Rng(i, 3).Interior.ColorIndex = 3
Next i
End Sub