DCFモデルのプリミティブVBAコードを改善する方法は？

Question

私はVBAを初めとしています。私は、開始金額、特定の割引率でその金額を引き下げ、また与えられた金額を見つけるために割引率にn年を掛けるプログラムを作成しようとしています一定の年数に基づく割引キャッシュフロー。どのように私はこのコードをより効率的にするためのヒントがありますか？また、 "（100/1.01）+（100/1.01^2）+（100/1.01^3）"のように、異なる金額の合計を合計するためのループを使用するためのヒントを教えてください。前もって感謝します！

Sub DCF() 

Dim z As Double, CashFlow As Double, DiscRate As Double, Periods As Double 

CashFlow = InputBox("Enter initial cash flow: ", "Cash Flow") 
DiscRate = InputBox("Enter discount rate in decimal form: ", "Discount Rate") 
Periods = InputBox("How many periods (in years) are there?", "Periods") 

z = CashFlow/(1 + DiscRate)^Periods 

MsgBox Format(z, "$0.00") 

End Sub 

Answer 1

あなたが持っているコードは綺麗で、割引キャッシュフローを作成するためにループが必要です。これは、あなたがしたいことを行う必要があります：

Sub DCF() 

    Dim z As Double, CashFlow As Double, DiscRate As Double, Periods As Double: z = 0# 

    CashFlow = InputBox("Enter initial cash flow: ", "Cash Flow") 
    DiscRate = InputBox("Enter discount rate in decimal form: ", "Discount Rate") 
    Periods = InputBox("How many periods (in years) are there?", "Periods") 

    Dim i As Integer 
    For i = 1 To Periods: 
    z = z + CashFlow/(1# + DiscRate)^i 
    Next 

    MsgBox Format(z, "$0.00") 

End Sub