我想寫一個function 算NPV
npv=c1*(1+r)^(-1) + c2*(1+r)^(-2)+...+cn*(1+r)^(-n)
-
我的code
--------------------
Function bond(a_range)
n=a_range.Count
Value = 0
For i = 1 To n
Dis = 1
For j = 1 To i
Dis = Dis / (1.1)
Next j
Value = Value + Dis * a_range(i)
Next i
End Function
______
我在worksheet 打=bond(A1:A4)
出來結果一直是0
不知道哪裡出了錯...
可不可以麻煩VBA強者幫我看一下 謝謝...!!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 64.131.162.47