今回はつみたてNISAの資産運用シミュレーションをExcelVBAで作ってみました。
計算方法は金融庁のシミュレーションサイトと同様のものとなります。
よかったら前回の記事もどうぞ♪

【Excel】つみたてNISAシミュレーション（1）【計算方法】

金融庁が公開しているつみたてNISAの資産運用シミュレーションをExcelで作ってみようと思います。金融庁のサイトでは具体的な計算方法はありませんでしたが、試行錯誤しながら調べてみましたので気になる方はどうぞ♪1 つみたてNISAとは2 金融庁の資産運用シミュレーション3 計算方法4 グラフ5 まとめ……。

nyanblog2222.com

2020.07.16

マクロ（VBA）が難易度が高い！と思われる方は一度こちらも見てくださいね♪
練習になるかもしれません。

【Excel VBA】初心者でも簡単にマクロを作る方法

業務効率化したい方必見！OfficeのExcel VBAで"初心者でも簡単に"マクロを作成する方法を紹介しています。知識0でも理解できるようサンプルはもちろん画像たっぷりで説明していますので、是非見て試してみてください♪

nyanblog2222.com

2022.07.10

つみたてNISAシミュレーション作成手順

今回は、
１．EXCELシート作成
２．VBAコード記述
３．マクロ設定
の流れで紹介していきます。

１．EXCELシート作成

まず、入力フォームとして以下を作成します。

ボタンについては「開発」タブ→「挿入」→「ボタン」から作成できます。

２．VBAコード記述

まず、「開発」タブ→「Visual Basic」からVBA記述画面を開きます。

記述していくVBAコードについては以下です。
内容の説明については、コードのコメントを参照ください。

基本的に、前回紹介した計算方法のイメージ通り作成します。

１．計算①　配列に月々の複利計算結果を格納

２．計算②　①の配列から、月々の累計元本・積立額を算出。年毎に配列へ格納

３．出力用配列作成　②の配列を元に出力したい要素を計算し、配列へ格納

４．出力　出力用配列から、それぞれEXCELシートに出力していく
　（３までで出力用データの計算は全て行い、
　　後は４でほぼそのまま出力するだけのイメージ）

■TumitateNisaマクロ

Sub TumitateNisa()

    '積立年数から月数をセット
    Dim TOSHIKIKAN_NEN As Integer
    TOSHIKIKAN_NEN = Range("C2").Value2
    Dim TOSHIKIKAN_NEN_ARRAY As Integer
    TOSHIKIKAN_NEN_ARRAY = TOSHIKIKAN_NEN - 1
    Dim TOSHIKIKAN_TUKI As Integer
    TOSHIKIKAN_TUKI = TOSHIKIKAN_NEN * 12
    Dim TOSHIKIKAN_TUKI_ARRAY As Integer
    TOSHIKIKAN_TUKI_ARRAY = TOSHIKIKAN_TUKI - 1
    
    '月投資額をセット
    Dim TOSHIGAKU_TUKI As Long
    TOSHIGAKU_TUKI = Range("C3").Value2
    
    '利回り（年）から利回り（月）表面金利をセット
    Dim RIMAWAEI_TUKI As Double
    RIMAWAEI_TUKI = 1 + (Range("C4").Value2 / 12 / 100)
    
    '各配列用　年数が最大100年まで（12か月*100年）
    'コードがややこしくなるのと、
    'あまり増えても環境によってはEXCELがフリーズしたりするので
    '今回は動的配列にはしない
    Const MAXARRAY_1200 As Integer = 1200
    
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    '
    ' 計算①　配列に月々の複利計算結果を格納
    '
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim TumitateArray(MAXARRAY_1200, MAXARRAY_1200) As Double
    For i = 0 To TOSHIKIKAN_TUKI_ARRAY
        
        Dim Tumitate_Tuki As Double
        Tumitate_Tuki = TOSHIGAKU_TUKI
        For j = 0 To TOSHIKIKAN_TUKI_ARRAY
        
            TumitateArray(i, j) = 0
            
            If j >= i Then
                TumitateArray(i, j) = Tumitate_Tuki
                
                Tumitate_Tuki = Tumitate_Tuki * RIMAWAEI_TUKI
            End If
    
        Next j
    
    Next i
    
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    '
    ' 計算②　①の配列から、月々の累計元本・積立額を算出。年毎に配列へ格納
    '
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim YearSumArray(MAXARRAY_1200, 1) As Double
    Dim GanponSum As Double
    GanponSum = 0
    Dim YearNum As Integer
    YearNum = 0
    For j = 0 To TOSHIKIKAN_TUKI_ARRAY
        
        If j > 0 And j Mod 12 = 0 Then
            YearArrayNum = YearArrayNum + 1
        End If
        
        Dim TumitateSum As Double
        TumitateSum = 0
        For i = 0 To TOSHIKIKAN_TUKI_ARRAY
            TumitateSum = TumitateSum + TumitateArray(i, j)
        Next i
        
        '累計元本
        GanponSum = GanponSum + TOSHIGAKU_TUKI
        YearSumArray(YearArrayNum, 0) = GanponSum
        '累計積立額
        YearSumArray(YearArrayNum, 1) = TumitateSum
    
    Next j
    
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    '
    ' 出力用配列作成　②の配列を元に出力したい要素を計算し、配列へ格納
    '
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim YearTumitateArray(MAXARRAY_1200, 3) As Double
    For i = 0 To TOSHIKIKAN_NEN_ARRAY
        '累計元本
        YearTumitateArray(i, 0) = YearSumArray(i, 0)
        '累計運用益
        YearTumitateArray(i, 1) = YearSumArray(i, 1) - YearSumArray(i, 0)
        '累計積立額
        YearTumitateArray(i, 2) = YearSumArray(i, 1)
        '累計節税額
        YearTumitateArray(i, 3) = YearTumitateArray(i, 1) * (20.315 / 100)
    
    Next i

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    '
    ' 出力　出力用配列から、それぞれEXCELシートに出力していく
    '
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    '前回のシュミレーション結果をクリアしておく
    Range("B7:F106").Clear
    
    '出力開始位置の一つ上にへカーソル移動
    Range("B6").Select

    'それぞれEXCELシートに出力
    For i = 0 To TOSHIKIKAN_NEN_ARRAY
        
        ActiveCell.Offset(1, 0).Activate
        '年
        ActiveCell.Value2 = i + 1
        '累計元本
        ActiveCell.Offset(0, 1).Value2 = Round(YearTumitateArray(i, 0))
        '累計運用益
        ActiveCell.Offset(0, 2).Value2 = Round(YearTumitateArray(i, 1))
        '累計積立額
        ActiveCell.Offset(0, 3).Value2 = Round(YearTumitateArray(i, 2))
        '累計節税額
        ActiveCell.Offset(0, 4).Value2 = Round(YearTumitateArray(i, 3))
        
    Next i
    
    '罫線を引く
    ActiveCell.CurrentRegion.Select
    Selection.Borders.LineStyle = xlContinuous
        
    '桁区切りする
    Selection.NumberFormatLocal = "#,###"
    
    '最終行の文字を赤色にする
    Selection.Rows(Selection.Rows.Count).EntireRow.Select
    Selection.Font.ColorIndex = 3
    
    'カーソルを年数に戻す
    Range("C2").Select

End Sub

３．マクロ設定

最後に作成したマクロをボタンに登録します。
「右クリック」→「マクロの登録」

マクロを選択して、完了です。

シミュレーション使用方法について

使用方法は簡単です。
「年数」「月投資額」「利回り（年）」を入力して、
「つみたてNISAシミュレーションを開始する」ボタンをクリックするだけ♪

試しに、金融庁のシミュレーションと比べてみましたが、
問題なく同じ結果となりました。
資産運用シミュレーション ： 金融庁

色々と分析してみた

せっかくなので、いくつかのパターンでシミュレーションしてみました♪

利回りが3%と5%どれくらい差が出る？（20年・月20,000円・利回り3%or利回り5%）

2%変わるだけで、運用益が倍変わることが分かります。

[3%の場合]

[5%の場合]

20年間最大額積み立てた場合、いくら貯まる？（20年・月33,333円・利回り5%）

つみたてNISAは年40万円・20年間つみたてが可能です。
そこで仮に平均利回りが5%だった場合、以下の結果となりました。

老後2000万円問題！月5000円積み立てると何年で2000万円貯まる？（60年・月5,000円・利回り5%）

月5,000円ですと、56年で達成可能なようです。
元本と運用益の差から、複利の凄さがよくわかりますね。

万が一、今後経済が不況に陥り、利回り-5%（赤字）だとどれだけ損する？（20年・月20,000円・利回り-5%）

前述の利回り5%と比べると、意外に損失が低いことが分かります。

[-5%の場合]

[5%の場合]

投稿 【Excel】つみたてNISAシミュレーション（2）【VBA】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

金融庁が公開しているつみたてNISAの資産運用シミュレーションをExcelで作ってみようと思います。
金融庁のサイトでは具体的な計算方法はありませんでしたが、試行錯誤しながら調べてみましたので気になる方はどうぞ♪
資産運用シミュレーション ： 金融庁

※本記事は、金融庁のサイトでのシミュレーションをExcelを使って再現するという趣旨です。
　素人が試行錯誤で作成しているもののため、ご使用にあたってはあくまで自己責任でお願いします。

つみたてNISAとは

つみたてNISAとは年間40万円までを20年間運用でき、分配金と売却益が非課税となる制度です。
購入可能な商品は金融庁が認めた投資信託に限られており、低リスクで運用でき長期投資に向いています。

本来、20.315%も課税されるためとってもお得！

詳しくは金融庁のつみたてNISAの概要へ

金融庁の資産運用シミュレーション

まず、金融庁では以下が公開されています。

毎月の積立金額・想定利回り（年率）・積立期間を入力し、
「計算する」ボタンで最終積立金額を表示します。

また、グラフについても表示できます。

次項から、上記の計算方法やグラフの出力方法についてご紹介します。

計算方法

金融庁のページには以下のように書かれていますので、こちらを参考に計算します。
【本シミュレーションの前提条件】
※年一回の複利計算をしています。
※計算結果は小数点以下を四捨五入しています。

ただ、以下の点には気をつけてください。
・年一回の複利計算
　→想定利回り（年率）に基づき、月に一回の複利計算（表面金利）をする
・計算結果は小数点以下を四捨五入
　→計算結果以外は四捨五入しない。

上記を考慮した計算が以下になります。
（数式→数式の表示から簡単に計算式を出せますよ♪）

上記のように月投資額、利回り（年）を入力することで、1年間の積立資産や運用額が分かるようにしました。
※本記事は計算方法中心の内容のため、あえて期間を1年限定にしています。
　期間変動可能なシミュレーションは、次回の記事でVBAを使い作成します。

利回り（月）の表面金利は、年率／12となりますので、それを使用して毎月の積立額にかけていきます。また、月に一回の複利のため、前月の額に金利をかけます。
それらが期間分続き、合計したものが積立資産になります。

資産推移（計算結果）は、ホームタブ→数値→「,」をつけることで、表示上は小数点以下四捨五入となりますので、「ROUND関数」は使いませんでした。

期間1年　月投資額20000円　利回り（年）5%で計算

結果は以下になります。前述の金融庁のシミュレーション結果と同じ積立資産なので、計算方法は合ってそうですね♪

グラフ

次にグラフ作成です。

まず、グラフ出力用にデータを整形します。
グラフ作成後にグラフの機能でデータを整形してもいいので好みの問題ですが、整形したデータをそのまま出力した方が楽で正確です。
整形時は、金融庁のシミュレーションを見ると千円単位で四捨五入なので、合わせました。

前述のデータ（期間1年　月投資額20000円　利回り（年）5%で計算）を使用すると結果は以下になります。

このデータを使って、今回はグラフを作成します。
（１）グラフ用データにカーソルをあて、挿入タブ→縦棒→任意の形状を選択

（１）結果

（２）原本・運用益・積立資産の順番が想定と異なるため、データ選択→順番の入れ替え

（２）結果

（３）それぞれの値を表示する。データラベル→中央

（３）結果

（４）積立資産は運用益と原本の合計額のため、値だけ表示させる。
　　　右クリック→データラベルの書式設定→塗りつぶし→塗りつぶしなし

（４）結果

ここからは見栄えの問題なので、気にしないのであれば以下は不要です。
（５）右クリック→軸の書式設定→最小値と最大値の固定値を設定

（５）結果

（６）積立資産の値をグラフに近づけたいので、
　　　レイアウト→データラベル→内側軸寄り

（６）結果

（７）最後に単位をつける。
　　　レイアウト→テキストボックス→横書きテキストボックス→（「万円」）入力

以上で完成になります。
これでおおよそ金融庁のシミュレーションと同じようなものができました♪

以上、今回は金融庁のシミュレーションを計算し、グラフ化してみました。
計算方法については、
・想定利回り（年率）に基づき、月に一回の複利計算（表面金利）をする
が一番重要な点です。
次回は、実際の資産運用にも使えるようなつみたてNISAのシミュレーションをVBA使って紹介しますので、良かったらどうぞ♪

【Excel】つみたてNISAシミュレーション（2）【VBA】

今回はつみたてNISAの資産運用シミュレーションをExcelVBAで作ってみました。計算方法は金融庁のシミュレーションサイトと同様のものとなります。1 つみたてNISAシミュレーション作成手順2 シミュレーション使用方法について3 色々と分析してみた4 まとめ……

nyanblog2222.com

2020.07.20

投稿 【Excel】つみたてNISAシミュレーション（1）【計算方法】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。