VBAのIE制御

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

目次

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

MIRR関数とは

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

修正内部利益率は、支払いと収益を異なる利率で管理する場合の内部利益率を表します。MIRR 関数は、投資原価 (finance_rate) と現金の再投資に対する受取り利率 (reinvest_rate) の両方を基に修正内部利益率を求めます。
名前付き引数 finance_rate および reinvest_rate は、小数点を用いた百分率で指定します。たとえば、12% は 0.12 と記述します。
MIRR 関数では、配列で指定した値の順序がキャッシュ フローの順序であるとみなされます。支払額と収益額を入力するときは、その順序に注意してください。

MIRR関数のサンプルコード

次の例は、MIRR 関数を使って、配列 Values() に指定されたキャッシュ フローに対する修正内部利益率を計算します。LoanAPR は借入金に対する利率を表し、InvAPR は再投資に対する利率を表します。

Sub sample()

Dim LoanAPR, InvAPR, Fmt, RetRate, Msg
Static Values(5) As Double            ' 配列を定義します。
LoanAPR = .1                            ' 借入金に対する利率を指定します。
InvAPR = .12                            ' 再投資に対する利率を指定します。
Fmt = "#0.00"                            ' 金額の形式を定義します。
Values(0) = -70000                    ' 操業資金を指定します。
' 以後 4 年間の収益を表す正のキャッシュ フローです。
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
RetRate = MIRR(Values(), LoanAPR, InvAPR)    ' 内部利益率を計算します。
Msg = "指定された 5 つのｷｬｯｼｭ ﾌﾛｰに対する修正内部利益率は "
Msg = Msg & Format(Abs(RetRate) * 100, Fmt) & " % です。"
MsgBox Msg                            ' 修正内部利益率を表示します。

End Sub

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

実行結果

解説

財務関数一覧