シート画面
シートに変更はありません。
集計ボタンのコード
下記の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