Có điều kiện về ngày mà, làm theo cách của Bác Tuân, số tồn đầu năm đưa vào trong sh Data, với ngày là 31/12/2006 và số CT là PN0000nhưng công thức bị sai vì không có điều kiện về ngày tháng (từ ngày....đến....?)
Với lại phần số tồn đầu năm nên đưa vào 1 sh TonKhoDauKy thì hay hơn. Tính tồn theo hàng tháng.
Ngày....SoPhieu....MaPT...SL...GT
For i = 2 To HC + 1
If .Range("B" & i).Value >= NgayDau And .Range("B" & i).Value <= NgayCuoi Then
If Left(.Range("A" & i).Value, 2) = "PN" Then
.Range("D" & i) = S104.Range("K" & i)
.Range("F" & i) = S104.Range("M" & i)
Else
.Range("E" & i) = S104.Range("K" & i)
.Range("G" & i) = S104.Range("M" & i)
End If
ElseIf .Range("B" & i).Value < NgayDau Then
If Left(.Range("A" & i).Value, 2) = "PN" Then
.Range("H" & i) = S104.Range("K" & i)
.Range("I" & i) = S104.Range("M" & i)
Else
.Range("H" & i) = -S104.Range("K" & i)
.Range("I" & i) = -S104.Range("M" & i)
End If
End If
Next i
File đính kèm
Lần chỉnh sửa cuối: