（６）年次更新

期末更新は翌年度の処理を行うための新しいエクセルブックを作る作業です。

３つの作業ですがプログラム的には難しくありませんが、間違って期の途中に実行してしまったり、1年の残高がまだ確定しないときに翌年度の仕訳伝票を入力したいときなどのためにデータの流れを十分に理解しておく必要があります。

仕訳伝票を全て削除するプログラムはエクセルの削除機能を使った方が間違いがないので作っていません。

また新しいブックのコピーも名前をつけて保存を使えばできますのでプログラムを使うよりエクセルの操作の方が使いやすいと思います。

 

    Dim yn As Long

    Dim i As Long

    yn = MsgBox("年次更新をしますコピーをとっておいてください", vbYesNo)

    If yn = vbYes Then

'貸借項目

        For i = 2 To 23

            Worksheets("科目表").Cells(i, 4) = Worksheets("科目表").Cells(i, 9)

            Worksheets("科目表").Cells(i, 7) = ""

            Worksheets("科目表").Cells(i, 8) = ""

        Next

'損益項目

        For i = 24 To 46

            Worksheets("科目表").Cells(i, 7) = ""

            Worksheets("科目表").Cells(i, 8) = ""

            Worksheets("科目表").Cells(i, 9) = ""

        Next

       

        MsgBox ("年次更新が終わりました")

    Else

        MsgBox ("年次更新をしません")

    End If