Tính giá xuất kho FIFO bằng Excel

Chào các bạn,
Mình có file gồm mua hàng và bán hàng ở 2 sheet khác nhau, mình muốn tính giá vốn xuất kho theo tổng hợp từ 2 sheet theo phương pháp nhập trước xuất trước (FIFO) theo như file đính kèm. Cảm ơn các bạn.

Chào các bạn,
Mình có file gồm mua hàng và bán hàng ở 2 sheet khác nhau, mình muốn tính giá vốn xuất kho theo tổng hợp từ 2 sheet theo phương pháp nhập trước xuất trước (FIFO) theo như file đính kèm. Cảm ơn các bạn.

Theo tôi thì nên gộp 2 sheet lại và phải theo thứ tự thời gian . Tôi đã gộp lại . Xem file . Hàm tự tao ở cột J .

Cảm ơn bạn, nhưng 2 sheet đó là 2 sheet thường xuyên thay đổi cập nhập dữ liệu nên không thể mỗi lần nhập dữ liệu lại copy gộp lại thành 1 sheet theo thứ tự thời gian thì vất vả quá. bạn có cách nào để gộp chung 2 sheet đó thành 1 sheet khác mà không dùng thủ công không? giúp mình với

Tôi đã chỉnh lại , bạn xem đúng ý chưa

Tôi đã chỉnh lại , bạn xem đúng ý chưa

Có ai giúp được mình không vây?

Không phải không ai giúp bạn đâu , góp ý là bạn nên bấm nút Cảm ơn để thể hiện lịch sự và để người giúp bạn có hứng mà tiếp tục .Những vấn đề bạn nêu nhiều người biết lắm đấy

Tính giá xuất kho theo PP fifo

Em có file này rất mong anh chị tính giúp em cột đợn giá xuất ạ, em loay hoay mà ko biết cách làm

Em có file này rất mong anh chị tính giúp em cột đợn giá xuất ạ, em loay hoay mà ko biết cách làm

Option Explicit Function GiaFifo(SL_Xuat As Double, sMaHH As String, RngData As Range, MaCol As Long, SLNhapCol As Long, SLXuatCol As Long, DGNhapCol As Long, Optional TT As Boolean = False) On Error GoTo Exit_UDF Dim TongXuat As Double, TongNhap As Double Dim i As Long, s As Long, j As Long Dim GiaXuat(), ArrData(), ArrSlNh(), ArrDgNh() If SL_Xuat = 0 Or Len(sMaHH) = 0 Then GiaFifo = "" GoTo Exit_UDF End If ArrData() = RngData.Value TongXuat = 0: s = 0 For i = 1 To UBound(ArrData) - 1 If ArrData(i, MaCol) = sMaHH Then s = s + 1 ReDim Preserve ArrSlNh(1 To s): ReDim Preserve ArrDgNh(1 To s) ArrSlNh(s) = ArrData(i, SLNhapCol) ArrDgNh(s) = ArrData(i, DGNhapCol) TongXuat = TongXuat + ArrData(i, SLXuatCol) End If Next i If s = 0 Then GiaFifo = "" GoTo Exit_UDF End If TongNhap = 0: j = 0 For i = 1 To s TongNhap = TongNhap + ArrSlNh(i) If TongNhap > TongXuat Then j = j + 1 ReDim Preserve GiaXuat(1 To j) If TongNhap - TongXuat >= SL_Xuat Then GiaXuat(j) = "(" & SL_Xuat & "*" & ArrDgNh(i) & ")" Exit For Else GiaXuat(j) = "(" & (TongNhap - TongXuat) & "*" & ArrDgNh(i) & ")" SL_Xuat = SL_Xuat - (TongNhap - TongXuat) TongXuat = TongNhap End If End If Next i GiaFifo = Join(GiaXuat, "+") If TT = True Then GiaFifo = Evaluate(GiaFifo) End If Erase GiaXuat Exit_UDF: Erase ArrData(), ArrSlNh(), ArrDgNh() If Err <> 0 Then MsgBox Err.Description, vbCritical Exit Function End If End Function

=GiaFifo($F4,$B4,$B$4:$F4,1,2,5,3,1)

Chắc chỉ có VBA mới giải quyết được vụ này, mà vba thì e lại ko rành, cảm ơn anh canguocs nhé

Em muốn tìm hiểu code của anh canguocs nhưng lắp vào bài này em lại ko biết, anh chị nào chỉ giúp em áp dụng đơn giá fifo vào trường hợp này với ạ!
Em cảm ơn...

Bác nào giúp em tính giá xuất kho theo FIFO với ạ , em cảm ơn

Bác nào giúp em tính giá xuất kho theo FIFO với ạ , em cảm ơn