2017年06月14日

マクロの実行とデバッグ

さて、すっかりマクロの実行方法については飛ばしてしまっていましたが、
そのことに気付きましたので、解説。

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

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 | このブログの読者になる | 更新情報をチェックする

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 | このブログの読者になる | 更新情報をチェックする

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 | このブログの読者になる | 更新情報をチェックする

2017年06月09日

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

今日は、下記に「④処理中の日付(月)に合わせて、転記先のシートを選択する」プログラムを加えていきます。

sub タイトル()
    dim 最終行 as long, 処理行 as long
    dim 日付 as date
    最終行=cells(rows.count,2).end(xlup).row
    for 処理行=3 to 最終行
        'ここに順繰り回してどうすのかという指示文を入力します
        日付=cells(処理行,2).value
    Next 処理行
end sub


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

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