ExcelのＶＢＡにて収支を出すプログラム

質問

マクロで収支を出すプログラムを組みたいのですが、具体的には
Ｃ２：今回の収支　→　Ｂ７に反映される。　Ｃ７：前回の収支　Ｄ７：トータル収支
で、今回の収支を入力したらが更新されるプログラムなんですが。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) <> "C2" Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Range("C7").Value = Range("D7").Value
Range("D7").Value = Target.Value + Range("C7").Value
End Sub

の、プログラムだと特定のセルだけになってしまいます。これにさらに人を認識して更新するプログラムを組みたいのですが上手くいきません。
画像を添付しますが、Ａさんの場合は、Ａさんの収支に反映される。Ｂさんの場合はＢさんの収支に反映される感じで作りたいです。
ちなみに人はプルダウンで変更できるようにしてあります。

どなたか分かる方がいらっしゃいましたら、ご教授をお願いいたします。

回答No.1

satoron666

C7に数値を入れたら、人を検索し
反映させるという考えで良いんですかね？

このプログラムでやっていることは上記方法と同じだと思います。
前回の収支をトータル収支に置き換えることが出来ませんが、
それ以外はこれで大丈夫かと。

B7　　=IF(VLOOKUP(A7,$B$2:$C$3,2)<>"",VLOOKUP(A7,$B$2:$C$3,2),"")
D7　=IF(OR(B7="",C7=""),"",SUM(B7:C7))

合っているかはわかりませんが、参考まで。