2017年06月13日

【Excel】オリジナルの家計簿作り⑩(おまけ)

一応、当初予定をしていた家計簿のプログラムは作成し終えました。

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

        '転記する
        dim 列 as long, 転記先 as long
        for 列 = 2 to 5
            転記先 = worksheets(シート名).cells(rows.count,2).end(xlup).row + 1
            worksheets(シート名).cells(転記先,列)=cells(処理行,列)
        next 列
    Next 処理行
end sub


今日は、転記先シートのリストを昇順で並び替えてみます。
続きを読む
ラベル:VBA 家計簿
posted by くま母 at 21:51| Comment(0) | ExcelVBA | このブログの読者になる | 更新情報をチェックする
×

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