VBAのIE制御

NPer関数は、VBA関数の中で財務関数に分類される関数です。

目次

• NPer関数とは
• NPer関数のサンプルコード
  • 実行結果
  • 解説

NPer関数とは

NPer関数は、倍精度浮動小数点数型 (Double) の値を返します。定額の支払いを定期的に行い、利率が一定であると仮定して、投資に必要な期間を返します。

投資とは、一連の定額の支払いを一定の期間行うことです。たとえば、住宅ローンなどのローンまたは毎月の貯蓄プランなどの出資を指します。
出金 (定額預金の支払いなど) を表す引数には負の値を指定し、入金 (配当金など) を表す引数には正の値を指定してください。

NPer関数のサンプルコード

次の例は、NPer 関数を使って、支払い回数を計算します。ローンの総額 (PVal)、利率 (APR / 12)、毎月の支払い額 (Payment)、将来価値 (FVal)、支払い期日 (PayType) を指定します。

Sub sample()

Dim FVal, PVal, APR, Payment, PayType, TotPmts
Const ENDPERIOD = 0, BEGINPERIOD = 1        ' 支払い期日を指定します。
FVal = 0                                ' 通常、ローンの場合は 0 を指定します。
PVal = InputBox("借入金額を入力してください。")
APR = InputBox("ローンの年利率 (%) を入力してください。")
If APR > 1 Then APR = APR / 100            ' 正しい形式に変換します。
Payment = InputBox("毎月の支払い額を入力してください。")
PayType = MsgBox("毎月末に支払いを行いますか?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
TotPmts = NPer(APR / 12, -Payment, PVal, FVal, PayType)
If Int(TotPmts) <> TotPmts Then TotPmts = Int(TotPmts) + 1
MsgBox "支払い回数は " & TotPmts & " 回です。"

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

解説

財務関数一覧