OfficeType

VBA~PV関数~Excel

VBAで一定利率に基づいて、ローンまたは投資の現在価値を計算したい場合はPV関数を使います。

書き方

PV(利率, 期間, 定期支払額, [将来価値], [支払期日])

例として下の画像において下のコードを実行するとセルB6に年利3%の20年ローンで返済額月70000円の時の借入可能額を表示します。

image-01

利率はセル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

image-02