VBAのIE制御

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

目次

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

FV関数とは

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

支払期日をバリアント型 (Variant) で指定します。各期の期末に支払う場合は 0 を、各期の期首に支払う場合は 1 を指定します。名前付き引数 type を省略すると、0 を指定したものとみなされます。

FV関数のサンプルコード

次の例は、将来の貯蓄総額を FV 関数で計算します。年利 (APR / 12)、貯蓄回数 (TotPmts)、毎月の貯蓄額 (Payment)、現在の貯蓄額 (PVal)、貯蓄期日 (PayType) を指定します。Payment は出金を表すので、負の数を指定しています。

Sub sample()

Dim Fmt, Payment, APR, TotPmts, PayType, PVal, FVal
Const ENDPERIOD = 0, BEGINPERIOD = 1    ' 支払いの時期を設定します。
Fmt = "###,###,##0.00"            ' 金額の形式を定義します。
Payment = InputBox("毎月の貯蓄額を入力してください。")
APR = InputBox("年利率 (%) を入力してください。")
If APR > 1 Then APR = APR / 100        ' 正しい形式に変換します。
TotPmts = InputBox("貯蓄回数を月数で指定してください。")
PayType = MsgBox("毎月末に支払いを行いますか?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
PVal = InputBox("現在の貯蓄額を入力してください。")
FVal = FV(APR / 12, TotPmts, -Payment, -PVal, PayType)
MsgBox "将来の貯蓄総額は " & Format(FVal, Fmt) & " です。"

End Sub

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

実行結果

解説

財務関数一覧