Gỡ rối về hàm tính Khuyến mãi theo ngày

[truongduchoa]

Nhờ các bạn xem giúp bài này

 

[SA_DQ]

Macro để kiểm tra hạn khuyến mại của bạn đây, xin mới thử

Option Explicit

Sub HanKhuyenMai()
 Dim Rng As Range, Clls As Range, kRng As Range, sRng As Range
 Dim Dat As Date:             Dim Sht As Worksheet
 Dim StrC As String
 
 Sheets("hoa don").Select
 Set Rng = Range([A19], [a65500].End(xlUp))
 Dat = [c4].Value
 
 Set Sht = Sheet2:               [f18].Value = "GHI CHÚ"
 
 Set kRng = Sht.Range(Sht.[a1], Sht.[a65500].End(xlUp))
 For Each Clls In Rng
   Set sRng = kRng.Find(Clls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      StrC = "Khong "
   Else
      If sRng.Offset(, 2).Value <= Dat And sRng.Offset(, 3).Value >= Dat Then
         StrC = "Trong Han "
      Else
         StrC = "Het Han "
      End If
   End If
   Clls.Offset(, 5) = StrC & "Khuyen Mai.":           StrC = ""
 Next Clls
End Sub