problems39
RCMyPV in Action100 100 100 272.32 10000 Then GetR2 = R + 0.1 Else GetR2 = REnd FunctionE1234567891011121314151617181920212223BankFv21000 1,102.00 - =BankFV2($A$3:A3,0.1)1000 2,323.03 - =BankFV2($A$3:A4,0.1)1000 3,672.26 - =BankFV2($A$3:A5,0.1)1000 5,163.16 - =BankFV2($A$3:A6,0.1)1000 6,848.22 - =BankFV2($A$3:A7,0.1)1000 8,718.63 - =BankFV2($A$3:A8,0.1)1000 10,794.79 - =BankFV2($A$3:A9,0.1)1 -1,100.00 - =FV(0.1,A12,2000,0,1)2 -2,310.00 - =FV(0.1,A13,2000,0,1)3 -3,641.00 - =FV(0.1,A14,2000,0,1)4 -5,105.10 - =FV(0.1,A15,2000,0,1)5 -6,715.61 - =FV(0.1,A16,2000,0,1)6 -8,487.17 - =FV(0.1,A17,2000,0,1)7 -10,435.89 - =FV(0.1,A18,2000,0,1)B a n k F V 1 a n d B a n k F V 2a r e t h e s a m et h e o n ly c h a n g e isin t h e G e t R f u n c t io nA B C D12345678910111213141516171819202122232425262728293031Function BankFV2(CF As Variant, R As Double) As DoubleDim X As Variant, Temp As Double, i As IntegerDim IsRow As BooleanX = CF: Temp = 0If IsArray(X) ThenIf UBound(X) = 1 Then IsRow = True Else IsRow = FalseIf IsRow ThenFor i = 1 To UBound(X, 2)Temp = (Temp + X(1, i) * (1 + GetR3(R, Temp)Next iElseFor i = 1 To UBound(X)Temp = (Temp + X(i, 1) * (1 + GetR3(R, Temp)Next iEnd IfElseTemp = X * (1 + GetR3(R, X)End IfBankFV2 = TempEnd FunctionFunction GetR3(R, Temp)If Temp = 1000 ThenGetR3 = R + 0.002ElseIf Temp = 5000 ThenGetR3 = R + 0.005ElseIf Temp = 10000 ThenGetR3 = R + 0.01ElseGetR3 = R + 0.013End IfEnd FunctionE12345678910111213141516171819202122232425262728293031
