Tính giá xuất kho theo phương pháp FIFO từ 2 sheet

[thuanntk]

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.

 

[Let'GâuGâu]

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.

mod có đi ngang thì xoá giúp bài này nha,

 

[Hong.Van]

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.

Vài góp ý với bạn:
1/ Có thể bạn gom 2 sheet thành 1 sheet, nếu để fân biệt của CH nào thì thêm 1 cột
2/ Tôi thấy có 1 người nghiên cứu sâu vấn đề này là anh huuthang_bd, bạn tìm bài hoặc hỏi anh ấy, ví dụ
http://www.giaiphapexcel.com/forum/showthread.php?42797-Anh-huuthang_bd-giúp-em-tính-giá-vốn-với

3/ Nếu kg bắt buộc, bạn nên dùng fương fáp bình quân cho nó lành

 

[le tin]

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 .

 

[thuanntk]

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

 

[le tin]

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

 

[thuanntk]

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

Đúng như ý mình rồi, nhưng bạn ơi giúp thêm mình tí này với. giờ 2 sheet đó phát thêm chi phí vận chuyển mua hàng & bốc xếp. 2 Chi phí này sẽ cộng thêm vào tiền mua hàng. vậy tồn cuối bao gồm 2 chi phí này theo mỗi lần mua hàng. Cảm ơn bạn nhiều.

 

[thuanntk]

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

Các bạn giúp mình sửa lại để gọp chung 2 sheet "CH1" và "CH2" theo thứ tự thời gian qua sheet trung gian "GOP" thay vì ở cột "GA : GH" trong sheet "TH" .Nhưng công thức tính tiền tồn vẫn nằm ở Sheet"TH".

 

[thuanntk]

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

 

[le tin]

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

 

[thuanntk]

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

Cảm ơn bạn nhiều nhé. không phải là không cảm ơn nhưng mấy hôm nay mình bận việc nên hôm nay mình mới vào lại diễn đàn để xem bài. cáo lỗi

 

[huyhoang1768]

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

 

[canguocs]

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

Bạn xem file đính kèm
Nếu dùng mảng:

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

Tại G4, dùng công thức

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

 

[huyhoang1768]

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é

 

[huyhoang1768]

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...

 

[jonnynam92]

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

 

[Phan Thế Hiệp]

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

1/ Bạn nên cung cấp giá nhập trong Sheet "Nhap Lieu" cho đầy đủ.
2/ Tính toán cho Ví dụ xuất kho gần thực tế và hợp lý, vì theo tôi tính, mã hàng "PP" dòng 112 (xuất 5.000), 114 (xuất 3.000) của Sheet "Nhap Lieu" là không hợp lý, vì đến lúc đó đã không còn hàng tồn nên không thể xuất được.
Thân.