So-net無料ブログ作成
検索選択

キャッシュフロー表のダウンロードとマクロの登録 [リタイヤ・キャッシュフロー]

エクセルで作成した定年キャッシュフロー表です。

定年後の皮算用で作りました。



ブログにはエクセルファイルを置けないのでソネットの無料ホームページ U-Page+ に ダウンロード用のページを用意しました。


ダウンロード用のホームページ:Life plan 



エクセルファイルの使用上の注意 決まり文句ですが いかなる責任も負えません。



エクセルはマクロ無しで作成しようとしましたが・・・


計算式(関数)では自分のセルしか値を設定できません。


かといってマクロ付きのエクセルはセキュリティを考えると


ダウンロードする人はいないと思います。


このためマクロは以下のテキストをコピーして登録としました。


 



Sub datacopy()
'
'
'   「全体シート」から指定された行を「所得税シート」に3行分コピーします。
    Sheets("所得税").Select
    y = Range("H11")
   
    Sheets("全体").Select
    Range(Cells(y, 1), Cells(y + 2, 35)).Select
    Selection.Copy
    Sheets("所得税").Select
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    '現在の画面(所得税シート)に計算した所得税と地方税を設定します。
    shotoku = Range("F14") '所得税の設定
    chihou = Range("F17")  '地方税の設定
    Range(Range("AF25")) = shotoku
    Range(Range("AH25")) = chihou

    '所得税を設定した場所が目立つようにコピーで目立たせます。
    Range(Range("AF25")).Select
    Selection.Copy
    Range(Range("AF25")).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
    '「全体」シートの該当セルに計算した所得税と地方税を設定します。
    y2 = Range(Range("AF25")).Row
    x2 = Range(Range("AF25")).Column
    y3 = Range(Range("AH25")).Row
    x3 = Range(Range("AH25")).Column
    Debug.Print "x " & x
    Sheets("全体").Select
    Cells(y + y2 - 5, x2).Value = shotoku   '所得税の設定
    Cells(y + y3 - 5, x3).Value = chihou    '地方税の設定
   
    Sheets("所得税").Select
    Range("H11").Value = y + 1
End Sub







マクロの登録方法 Excel2016


開発タブがない場合 ファイルタブ → オプション 

1012option.png



リボンのユーザ設定 → メインタブ → 開発 → をチェック → OK

1013ribona.png


開発タブ → Visual Basic 

1014kaihatu.png



Sheet1(全体)を選択 → 挿入 → 標準モジュール を選択、 マクロをコピーしてをペーストしてファイルを押します。

macroadd.png






次の機能はマクロ無しのブックには保存できません。 で いいえ を選択します。

1016vbno.png




ファイルの種類を Excelマクロ有効ブック(*.xlsm) にしてファイルします。


1017filewrite.png




いったんエクセルを全部終了させます。


ファイルした LPCashflow.xlsm を開きます。

セキュリティ警告が出た場合は コンテンツの有効化 をクリックします

1018kontentuyuukou.png




計算 の枠を選択 → 右ボタンで マクロの登録 を選択します。

1019macrotouroku.png




登録されているdatacopy を選択し OK


macroset.png





以上でマクロが登録されます。


Microsoft Excel 2016 (最新)|カード版|Win対応

Microsoft Excel 2016 (最新)|カード版|Win対応

  • 出版社/メーカー: マイクロソフト
  • メディア: License


nice!(0)  コメント(0)  トラックバック(0) 
共通テーマ:マネー

nice! 0

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0