[VBA] VBA TỰ ĐỘNG CỘNG VÀO NGÀY D+3

[dunghuy1997]

Hi cả nhà,
Em cần tìm công thức VBA auto để tính SUMIF theo ngày sao cho :
Ví dụ :
hôm nay là thứ 2 thì sẽ cộng vào thứ 5 ( Ngày 15/06 (tính theo hàm today())) phải cộng cho ô ngày 18/06)
hôm nay là thứ 3 thì sẽ cộng vào thứ 6
hôm nay là thứ 4 thì sẽ cộng vào thứ 2
hôm nay là thứ 5 thì sẽ cộng vào thứ 3
hôm nay là thứ 6 thì sẽ cộng vào thứ 4
Điều kiện nó phải liên tiếp trong vòng 1 tháng ạ
Đây là công thức hiện tại của e ạ

Sub Macro2()
Dim i As Long
For i = 2 To 100
If Sheet1.Range("B" & i) = "LCM" And WorksheetFunction.SumIf(Sheets("HUY").Range("A1:A10"), Range("A" & i), Sheet2.Range("B1:B10")) > 0 Then
Range("C" & i) = WorksheetFunction.SumIf(Sheets("HUY").Range("A1:A10"), Range("A" & i), Sheet2.Range("B1:B10"))
ElseIf Sheet1.Range("B" & i) = "MAIN" And WorksheetFunction.SumIf(Sheet3.Range("A1:A10"), Range("A" & i), Sheet3.Range("B1:B10")) > 0 Then
Range("C" & i) = WorksheetFunction.SumIf(Sheet3.Range("A1:A10"), Range("A" & i), Sheet3.Range("B1:B10"))
End If
Next

Help e với (((
Em cảm ơn mọi người nhiều ạ !!