fm3_problems38 - A 1 2 3 4 5 6 7 B C D E 1 2 3 4 5 6 7 VBA...

Info iconThis preview shows pages 1–9. Sign up to view the full content.

View Full Document Right Arrow Icon
A B C D 1 2 3 4 5 6 7
Background image of page 1

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

View Full DocumentRight Arrow Icon
VBA Code Sub Ex1Macro() "This is Line2", vbAbortRetryIgnore + vbSystemModal, _ "This is the title" End Sub E 1 2 3 4 5 6 7
Background image of page 2
A B C D 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
Background image of page 3

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

View Full DocumentRight Arrow Icon
VBA Code Function BetterNewPV(CF, r, n) Dim i As Integer Dim Temp Temp = 0 For i = 1 To n Temp = Temp + CF / (1 + r) ^ i Next i BetterNewPV = Temp End Function Sub PVCalc() Dim CF, r, n CF = InputBox("Enter the cash flow:", "PV Calc", "100.00") r = InputBox("Enter the interest rate:", "PV Calc", "0.1") n = InputBox("Enter the number of periods:", "PV Calc", "5") End Sub E 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
Background image of page 4
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
Background image of page 5

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

View Full DocumentRight Arrow Icon
VBA Code Sub NewPVCalc() Dim CF, r, n CF = InputBox("Enter the cash flow:", _ "New PV Calc", "100.00") "Enter the interest rate:", _ "New PV Calc", "10.00%") If Right(r, 1) = "%" Then r = Val(Left(r, Len(r) - 1)) / 100# Else r = Val(r) End If "Enter the number of periods:", _ "New PV Calc", "5") FormatCurrency(BetterNewPV(CF, r, n), 3), _ , "New PV Calc" End Sub E 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
Background image of page 6
A B C 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
Background image of page 7

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

View Full DocumentRight Arrow Icon
VBA Code Sub PmtCalculator() Dim r, n, Sum, Pmt, Temp, i Sum = InputBox("Enter the sum of the loan", _ "Payment Schedule Calculator", "1000.00") "Enter the numer of payments", _
Background image of page 8
Image of page 9
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 01/23/2011 for the course FGB 780 taught by Professor Edwardchang during the Spring '09 term at Missouri State University-Springfield.

Page1 / 18

fm3_problems38 - A 1 2 3 4 5 6 7 B C D E 1 2 3 4 5 6 7 VBA...

This preview shows document pages 1 - 9. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online