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

Step 4 収入の金額を合計する

前回、収入の科目を一つずつ取り出しましたが、その科目が元帳にないかどうか調べ、あれば金額を合計します。
1)元帳の科目の列の最後の行を調べます。
2)開始行から最後の行に向かって、順にその科目があるかどうか調べます。
3)あれば、収入金額を合計します。

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



シート画面

シートに変更はありません。
会計ソフト

集計ボタンのコード

下記のVBAコードを追加してください。

Option Explicit

'収入の金額集計
Private Sub ExIncomeSyuuKei(km As String)
    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
End Sub

下記のVBAコードに変更してください。

Private Sub ExSyuuKei()
    Dim i As Long
    Dim sk As String
    
    '収入の集計
    For i = 4 To 13
        If Cells(i, 16) = 1 And Cells(i, 15) <> "" Then
            sk = Cells(i, 15)
            ExIncomeSyuuKei sk
        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でアプリケーションソフト2 > 会計ソフト

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


Copyright (c) Excel-Excel ! All rights reserved