VBAのIE制御

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

目次

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

IRR関数とは

IRR関数は、倍精度浮動小数点数型 (Double) の値を返します。一連の定期的なキャッシュ フロー (支払いと収益) に対する内部利益率を返します。

内部利益率とは、一定の期間ごとに発生する支払いと収益からなる投資効率を表す利率のことです。
IRR 関数では、配列で指定した値の順序がキャッシュ フローの順序であるとみなされます。支払額と収益額を入力するときは、その順序に注意してください。各期間のキャッシュ フローが一定である必要はありません。
IRR 関数の計算には、反復計算の手法が用いられます。名前付き引数 guess の値を初期値とし、計算結果の誤差が 0.00001% 以内になるまで反復計算が実行されます。反復計算を 20 回行っても適切な解が見つからない場合は、エラーとなります。

IRR関数のサンプルコード

次の例は、IRR 関数を使って、配列 Values() に指定した 5 つのキャッシュ フローに対する内部利益率を計算します。最初の配列要素は、事業の操業資金を表す負のキャッシュ フローです。他の 4 つの配列要素は、以後 4 年間の収益を表す正のキャッシュ フローです。Guess には、内部利益率の推定値を指定します。

Sub sample()

Dim Guess, Fmt, RetRate, Msg
Static Values(5) As Double            ' 配列を定義します。
Guess = .1                            ' 推定値を 10% と指定します。
Fmt = "#0.00"                            ' パーセンテージの形式を定義します。
Values(0) = -70000                    ' 操業資金を指定します。
' 以後 4 年間の収益を表す正のキャッシュ フローです。
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
RetRate = IRR(Values(), Guess) * 100        ' 内部利益率を計算します。
Msg = "指定した 5 つのｷｬｯｼｭ ﾌﾛｰに対する内部利益率は"
Msg = Msg & Format(RetRate, Fmt) & " % です。"
MsgBox Msg                            ' 内部利益率を表示します。

End Sub

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

実行結果

解説

財務関数一覧