Excelで会計ソフトを作ってみよう

Step 6　収入の科目を集計し決算報告書に記入

はじめに、収入を集計し決算報告書に記入していきます。
記入順は科目リストの順になります。
入れ替えたい場合は、リストをカット＆ペーストしてください。

シート画面

「集計」ボタンをクリックすると、決算報告書の科目列と決算額の列をクリアし、収入の科目を上から順に金額を合計し、「決算報告」シートに科目名と合計金額を入力します。
下画像の場合、収入に1が入力されている「前年度繰越金」→「諸会費」の順になります。
エクセル決算シート

収入の部の科目に、収入科目名と決算額に合計金額が記入されています。
決算額は「前年度繰越金」が80,000円、「諸会費」が30,000円＋18,000円＝48,000円で合っています。
エクセル決算印刷シート

'収入の金額集計
Private Function ExIncomeSyuuKei(km As String) As Long
    Dim last As Long
    Dim i As Long
    Dim ltotal As Long

    '元帳の最後の行
    last = Sheets("元帳").Range("E65536").End(xlUp).Row
    ltotal = 0
    For i = 4 To last
        If Cells(i, 5) = km Then
            ltotal = ltotal + Cells(i, 6)
        End If
    Next
    ExIncomeSyuuKei = ltotal
End Function

Private Sub ExSyuuKei()
    Dim i As Long
    Dim sk As String
    Dim strow As Long
    Dim lt As Long

    strow = 11
    Sheets("決算報告").Range("B11:B20").ClearContents
    Sheets("決算報告").Range("D11:D20").ClearContents
    '収入の集計
    For i = 4 To 13
        If Cells(i, 16) = 1 And Cells(i, 15) <> "" Then
            sk = Cells(i, 15)
            lt = ExIncomeSyuuKei(sk)
            Sheets("決算報告").Cells(strow, 2) = sk
            Sheets("決算報告").Cells(strow, 4) = lt
            strow = strow + 1
        End If
    Next

    '支出の集計
    For i = 4 To 13
        If Cells(i, 17) = 1 And Cells(i, 15) <> "" Then
            sk = Cells(i, 15)
        End If
    Next
End Sub

Homeへ > Excelでアプリケーションソフト２ > 会計ソフト

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

Excelで会計ソフトを作ってみよう

Step 6 収入の科目を集計し決算報告書に記入

シート画面

Step 6　収入の科目を集計し決算報告書に記入