2017年06月12日

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

昨日はいろいろありまして更新できませんでした…
が、気を取り直して、一昨日の続きから。

sub タイトル()
    dim 最終行 as long, 処理行 as long
    dim 日付 as date
    dim シート as worksheet
    Dim flag As Boolean
    最終行=cells(rows.count,2).end(xlup).row
    for 処理行=3 to 最終行
        'ここに順繰り回してどうすのかという指示文を入力します
        日付=cells(処理行,2).value
        '日付に合致する月のシートがあるか確認する
        for each シート in thisbook.worksheets
            flag=false
            if シート.name = year(日付) & "年" & month(日付) & "月" then
                flag=true
                exit for
            end if
        next シート
        'もし、フラグが立っていたら、シートを作成する
        'フォーマットシートのコピー
        worksheets("フォーマット").copy after:=worksheets("フォーマット")
        activesheet.name = year(日付) & "年" & month(日付) & "月"
    Next 処理行
end sub


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

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