Sub SinhNhat()
Dim data(), i&, j&, k&, tem
data = Sheet1.[A1].CurrentRegion.Value
For i = 2 To UBound(data)
For j = 3 To 9 Step 3
tem = CDate(Day(data(i, j)) & "-" & Month(data(i, j)) & "-" & Year(Date))
If tem = Date + 5 Or tem = Date + 6 Or tem = Date + 7 Or tem = Date + 8 Then
k = k + 1
With UserForm1.ListBox1
.AddItem
.List(.ListCount - 1, 0) = k
.List(.ListCount - 1, 1) = data(i, 1)
.List(.ListCount - 1, 2) = data(i, j - 1)
.List(.ListCount - 1, 3) = data(i, j)
.List(.ListCount - 1, 4) = data(i, j + 1)
.List(.ListCount - 1, 5) = data(1, j - 1)
End With
End If
Next
Next
UserForm1.Show
End Sub
