2017年06月10日

【Excel】オリジナルの家計簿作り⑧

昨日は、フォーマットシートをコピーして名称を変えるところまでやりました。

sub タイトル()
    dim 最終行 as long, 処理行 as long
    dim 日付 as date
    最終行=cells(rows.count,2).end(xlup).row
    for 処理行=3 to 最終行
        'ここに順繰り回してどうすのかという指示文を入力します
        日付=cells(処理行,2).value
        'フォーマットシートのコピー
        worksheets("フォーマット").copy after:=worksheets("フォーマット")
        activesheet.name = year(日付) & "年" & month(日付) & "月"
    Next 処理行
end sub


続きを読む
ラベル:VBA 家計簿
posted by くま母 at 15:14| Comment(0) | ExcelVBA | このブログの読者になる | 更新情報をチェックする
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。