terima kasih tuk mas Hendrik..
ayo dong mba2 n mas2 master excel, tulung2 ....
saya dpt kaya gini..
Function FIFO(ProductCode As Range, UnitsSold As Range) As Currency
Dim StartCount As Object, UnitCost As Object, Products As Object, PurchaseUnits
As Object
Dim Counter As Integer, RemainingUnits As Long, UnitsAccountedFor As Long
FIFO = 0
Set Products = Range("ProductCode")
Set StartCount = Range("StartCount")
Set UnitCost = Range("UnitCost")
Set PurchaseUnits = Range("PurchaseUnits")
UnitsAccountedFor = UnitsSold
For Counter = 1 To StartCount.Rows.Count
If ProductCode = Products(Counter, 1) Then
RemainingUnits = Application.WorksheetFunction.Max(0,
StartCount(Counter, 1) + _
PurchaseUnits(Counter, 1) - UnitsAccountedFor)
FIFO = FIFO + UnitCost(Counter, 1) * RemainingUnits
UnitsAccountedFor = UnitsAccountedFor - (StartCount(Counter, 1) + _
PurchaseUnits(Counter, 1) - RemainingUnits)
End If
Next Counter
End Function
tapi dari hasil sy g ngerti n g dpt nilai yg benar...
terima kasih..
