VBA~PV関数~Excel
VBAで一定利率に基づいて、ローンまたは投資の現在価値を計算したい場合はPV関数を使います。
書き方
PV(利率, 期間, 定期支払額, [将来価値], [支払期日])
例として下の画像において下のコードを実行するとセルB6に年利3%の20年ローンで返済額月70000円の時の借入可能額を表示します。
利率はセルB2に年利が入力されていて、支払額が月単位なので月利に変換するために12で割りB2/12になります。
期間はセルB3に借入期間が年単位で入力されていて、支払額が月単位なので月単位に変換するために12を掛けてB3*12になります。
定期支払額は返済額月70000円なので-70000が入力されているセルB4になります。
[将来価値]は今回は使わないので省略します。
[支払期日]は今回は使わないので省略します。
Sub test1() Range("B6") = PV(Range("B2") / 12, Range("B3") * 12, Range("B4")) End Sub