エクセル式FIRE計算機「My逃げ切り計算機」解説/モニター欄

FIRE（早期リタイア）に関心があるものの、実際、何歳時点で、いくら資産があればFIREができるのかを、どうやって判断すればよいのかお悩みの方、多いのではないでしょうか。

この記事では、私がエクセルで自作したFIRE計算ツール「My逃げ切り計算機.xlsm」における試算結果モニター欄について解説します。

My逃げ切り計算機.xlsmとは、エクセルで作成した、私専用のFIRE（早期リタイア）計算ツールのことです。概要の説明は過去記事「FIREのための、エクセル式FIRE計算機「My逃げ切り計算機」紹介」を参照ください。

皆さんが、エクセルでFIRE計算機を自作される際の、参考になれば幸いです。

「My逃げ切り計算機.xlsm」試算結果モニター欄の解説
まとめ

「My逃げ切り計算機.xlsm」試算結果モニター欄の解説

では早速ですが、試算結果モニター欄の機能を紹介してゆきます。

まず、「My逃げ切り計算機.xlsm」には様々な試算条件を入力する機能があります。詳細は次の記事を参照ください。

試算結果モニター欄とは、当該、試算条件の変更結果を観察するための機能です。

該当機能部のキャプチャーは以下の通りです。

具体的な使い方について説明します。

まず、設置している更新ボタンを押すことで、現在の試算条件による、私の寿命時点の期末純資本を、「変更前期末純資本欄」に記録することができます。

そして、記録した後に試算条件を変更します。例えば、現役満了年齢を51歳から50歳に変更してみます。

→

すると、変更後の試算条件による私の寿命時点の期末純資本が、「期末純資本(現在価値)」欄にリアルタイムで表示されます。

これにより、試算条件を変更する前と後でどちらが有利かを評価します。

次項より、各項目の解説をします。

更新ボタン

更新ボタンを押下すると、VBAで作ったマクロが動きます。

VBAのコードは以下です。

Sub 差額チェック()

Dim iTmp1           As Integer
Dim iTmp2           As Integer
Dim rTmp            As Range


Application.Calculation = xlManual


iTmp1 = 0
iTmp2 = 0

Set rTmp = Nothing

Set rTmp = Sheets("メイン").Rows(7).Find("変更前" &amp; vbLf &amp; "期末純資本" &amp; vbLf &amp; "(現在価値)", SearchOrder:=xlByRows)</span>
<span class="fz-16px">
If rTmp Is Nothing Then
Else
    iTmp1 = rTmp.Column
End If

Set rTmp = Nothing

Set rTmp = Sheets("メイン").Rows(7).Find("期末純資本" &amp; vbLf &amp; "(現在価値)", SearchOrder:=xlByRows)
If rTmp Is Nothing Then
Else
    iTmp2 = rTmp.Column
End If

For i = 8 To 73

    Sheets("メイン").Cells(i, iTmp1).Value = Sheets("メイン").Cells(i, iTmp2).Value
    Sheets("メイン").Cells(i, iTmp1).Value = Sheets("メイン").Cells(i, iTmp2).Value

Next i

Application.Calculation = xlAutomatic

End Sub

期末純資本(現在価値)

以下の式を入力しています。

= SUMIF ( 列:年齢(夫) , 寿命(夫) - 1歳 , 列:[ 家計 \ 資本 \ 期末純資本(現在価値) ] )

変更前期末純資本(現在価値)

以下の式を入力しています。

= SUMIF ( 列:年齢(夫) , 寿命(夫) - 1歳 , 列:[ 家計 \ 資本 \ 変更前期末純資本(現在価値) ] )

差額

以下の式を入力しています。

= SUMIF ( 列:年齢(夫) , 寿命(夫) - 1歳 , 列:[ 家計 \ 資本 \ 差額 ] )

総資本簿価

私の寿命時点の、同族会社の総資本（簿価）をモニターします。

以下式を入力しています。

= SUMIF ( 列:年齢(夫) , 寿命(夫) - 1歳 , 列:[ 同族会社 \ 資本 \ 総資本(簿価) ] )

「my逃げ切り計算機.xlsm」では、同族会社の経営シミュレーションをするに際し、一定以下の簿価になると負債超過になる前に倒産させておきたいのですが、今のところ、100%上手く動いてくれないので、簿価がマイナスになることがあります。

この場合、手動にて、試算条件入力欄の各種入力値を見直します。

配当最小値

同族会社から私に振り込まれる配当金の、全年度における最小値をモニターします。

以下式を入力しています。

= MIN ( 配当所得/夫 \ 同族会社 \ 配当金 )

「my逃げ切り計算機.xlsm」では、同族会社の経営シミュレーションをするに際し、一定以下の簿価になると負債超過になる前に倒産させておきたいのですが、今のところ、100%上手く動いてくれないので、、会社清算時に私宛の配当金がマイナスになることがあります。

本稿のモニターの値を観察することで、計算が失敗しているか否かを判定します。

まとめ

いかがでしたでしょうか？

参考になれば幸いです。