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

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

View Full Document Right Arrow Icon
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
Image of page 10

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

View Full Document Right Arrow Icon
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
Image of page 11
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
Image of page 12

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

View Full Document Right Arrow Icon
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
Image of page 13
Function BankFV1(CF As Variant, R As Double) As Double Dim X As Variant, Temp As Double, i As Integer Dim IsRow As Boolean
Image of page 14

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

View Full Document Right Arrow Icon
Image of page 15
This is the end of the preview. Sign up to access the rest of the document.

{[ snackBarMessage ]}

What students are saying

  • Left Quote Icon

    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.

    Student Picture

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

  • Left Quote Icon

    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.

    Student Picture

    Dana University of Pennsylvania ‘17, Course Hero Intern

  • Left Quote Icon

    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.

    Student Picture

    Jill Tulane University ‘16, Course Hero Intern