Menuへ
会計ソフトを作ってみよう

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

前回、収入の科目を一つずつ取り出しましたが、その科目が元帳にないかどうか調べ、あれば金額を合計します。
１）元帳の科目の列の最後の行を調べます。
２）開始行から最後の行に向かって、順にその科目があるかどうか調べます。
３）あれば、収入金額を合計します。
シート画面

シートに変更はありません。
会計ソフト
集計ボタンのコード
下記のコードを追加してください。

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


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

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


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

Copyright (c) 2006-2007 Excel-Excel ! All rights reserved.