fm3_problems39

# Else for i 1 to uboundx temp temp xi 1 1 getrr xi 1 i

This preview shows pages 10–15. Sign up to view the full content.

Else For i = 1 To UBound(X) Temp = Temp + X(i, 1) / (1 + GetR(R, X(i, 1))) ^ i Next i End If Else Temp = X / (1 + GetR(R, X)) End If BankPV = Temp End Function Function GetR(R, CF) As Double Select Case CF Case 0 To 100 GetR = R Case 100 To 500 GetR = R - 0.005 Case 500 To 1000 GetR = R - 0.011 Case 1000 To 5000 GetR = R - 0.017 Case Else GetR = R - 0.021 End Select End Function H 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document
BankFV 100 100 100 ### <-- =BankFv(A3:C3,0.1) 100 100 ### <-- =BankFv(A3:A5,0.1) 1000 100 1000 ### <-- =BankFv(A9:C9,0.1) 1000 100 ### <-- =BankFv(A9:A11,0.1) A B C D E F G 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
Function BankFV(CF As Variant, R As Double) As Double Dim X As Variant, Temp As Double, i As Integer Dim IsRow As Boolean X = CF: Temp = 0 If IsArray(X) Then If UBound(X) = 1 Then IsRow = True Else IsRow = False If IsRow Then For i = 1 To UBound(X, 2) Temp = (Temp + X(1, i)) * (1 + GetR1(R, X(1, i))) Next i Else For i = 1 To UBound(X) Temp = (Temp + X(i, 1)) * (1 + GetR1(R, X(i, 1))) Next i End If Else Temp = X * (1 + GetR1(R, X)) End If BankFV = Temp End Function Function GetR1(R, CF) As Double Select Case CF Case 0 To 100 GetR1 = R Case 100 To 500 GetR1 = R + 0.005 Case 500 To 1000 GetR1 = R + 0.011 Case 1000 To 5000 GetR1 = R + 0.017 Case Else GetR1 = R + 0.021 End Select End Function H 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document
BankFv1 2000 #MACRO? <-- =BankFV1(\$A\$3:A3,0.1) 2000 #MACRO? <-- =BankFV1(\$A\$3:A4,0.1) 2000 #MACRO? <-- =BankFV1(\$A\$3:A5,0.1) 2000 #MACRO? <-- =BankFV1(\$A\$3:A6,0.1) 2000 #MACRO? <-- =BankFV1(\$A\$3:A7,0.1) 2000 #MACRO? <-- =BankFV1(\$A\$3:A8,0.1) 2000 #MACRO? <-- =BankFV1(\$A\$3:A9,0.1) 1 -2,200.00 <-- =FV(0.1,A12,2000,0,1) 2 -4,620.00 <-- =FV(0.1,A13,2000,0,1) 3 -7,282.00 <-- =FV(0.1,A14,2000,0,1) 4 -10,210.20 <-- =FV(0.1,A15,2000,0,1) 5 -13,431.22 <-- =FV(0.1,A16,2000,0,1) 6 -16,974.34 <-- =FV(0.1,A17,2000,0,1) 7 -20,871.78 <-- =FV(0.1,A18,2000,0,1) A B C D 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
Function BankFV1(CF As Variant, R As Double) As Double Dim X As Variant, Temp As Double, i As Integer Dim IsRow As Boolean

This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document
This is the end of the preview. Sign up to access the rest of the document.

{[ snackBarMessage ]}

### What students are saying

• As a current student on this bumpy collegiate pathway, I stumbled upon Course Hero, where I can find study resources for nearly all my courses, get online help from tutors 24/7, and even share my old projects, papers, and lecture notes with other students.

Kiran Temple University Fox School of Business ‘17, Course Hero Intern

• I cannot even describe how much Course Hero helped me this summer. It’s truly become something I can always rely on and help me. In the end, I was not only able to survive summer classes, but I was able to thrive thanks to Course Hero.

Dana University of Pennsylvania ‘17, Course Hero Intern

• The ability to access any university’s resources through Course Hero proved invaluable in my case. I was behind on Tulane coursework and actually used UCLA’s materials to help me move forward and get everything together on time.

Jill Tulane University ‘16, Course Hero Intern