công thức cảnh báo sản phẩm sắp đến hạn (3 người xem)

[linh967]

em nhờ anh chỉ giúp em nên sử dụng công thức nào để nối bật lên các sản phẩm cần sửa chữa trước 30 ngày ạ.

 

[phulien1902]

em nhờ anh chỉ giúp em nên sử dụng công thức nào để nối bật lên các sản phẩm cần sửa chữa trước 30 ngày ạ.

+ Bạn thử công thức như hình:


+ VBA tham khảo:

Option Explicit
Sub Test()
    Dim i As Long, tomau As Boolean
    Application.ScreenUpdating = False
    For i = 4 To 18
        tomau = False
        If IsDate(Cells(i, "E")) And Now() - Cells(i, "E") <= 30 Then
            tomau = True
        End If
        If tomau Then Cells(i, "E").Interior.ColorIndex = 3
    Next
    Application.ScreenUpdating = True
End Sub

 

[leonguyenz]

em nhờ anh chỉ giúp em nên sử dụng công thức nào để nối bật lên các sản phẩm cần sửa chữa trước 30 ngày ạ.

Tham khảo công thức trong CF:

=AND(TODAY()<=$E4,$E4-TODAY()<=30)