エクセルVBA

質問

エクセル2003です

勉強中です　教えてください

Sheet1
　　　　A　　　　　　B　　　　　　C　　　　　　　D　　　　　
1　　　日付　　　　種類　　　　数量1　　　　数量2　
2 　　2月3日 　　　C 　　　　 300 　　 　　　 10 　
3　　 2月4日 　　　 B 　　　　 200 　　　　　 5
4 　 2月5日 　　　 A 　　　　100 　　　　　 20
5 　 2月3日 　　　 A 　　　　100 　　　　　 10
6 　 2月4日 　　　 B 　　　　200 　　　　　 5
7 　 2月5日 　　　 C 　　　　300 　　　　　 20
8 　 2月3日 　　 　 A 　　　　 300 　　　　　 20
9 　 2月4日 　　　 C 　　　　 200 　　　　 　 5
10 　2月5日 　　　 B 　　　　100 　　　　　 10

Sheet1
　　　　F　　　　　　G　　　　　　H　　　　　　　I　　　　　
1　　　日付　　　　種類　　　　数量1　　　　数量2　
2 　　2月3日 　　　A 　　　　 400 　　 　　　 　
3　　 2月3日 　　　 C 　　　　 300 　　　　　
4 　 2月4日 　　　 B 　　　　600 　　　　　
5 　 2月5日 　　　 A 　　　　100 　　　　　
6 　 2月5日 　　　 C 　　　　400 　　　　　
7

したい事
*A列～D列のデータをF列からI列へ複数条件の集計をしたいのですが
*A列～D列の数値が変動すると勝手に自動で集計をして欲しい（シートがアクティブでなくても）
*下記コードでC列までの集計ができますがD列の集計がわかりません
　（増やそうとすると頭の中がぐちゃぐちゃになって・・・）
*前回の集計が残ってしまう

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim myDic As Object, myKey, myItem
Dim myVal, myVal2, myVal3
Dim i As Long
Range("F2", Range("I" & Rows.Count).End(xlUp)).ClearContents
Range("F1:I1").Value = Range("A1:D1").Value
Set myDic = CreateObject("Scripting.Dictionary")
' データを配列に格納
myVal = Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 4).Value
' myDicへデータを格納
For i = 1 To UBound(myVal, 1)
myVal2 = myVal(i, 1) & "_" & myVal(i, 2)
If Not myVal2 = "_" Then
If Not myDic.exists(myVal2) Then
myDic.Add myVal2, myVal(i, 3)
Else
myDic(myVal2) = myDic(myVal2) + myVal(i, 3)
End If
End If
Next
'Key,Itemの書き出し
myKey = myDic.keys
myItem = myDic.items
For i = 0 To UBound(myKey)
myVal3 = Split(myKey(i), "_")
Cells(i + 2, 6).Value = myVal3(0)
Cells(i + 2, 7).Value = myVal3(1)
Cells(i + 2, 8).Value = myItem(i)
Next
Set myDic = Nothing
'並べ替え
Range("F2", Range("H" & Rows.Count).End(xlUp)).Sort _
Key1:=Range("F2"), Order1:=xlAscending, _
Key2:=Range("G2"), Order2:=xlAscending, _
Header:=xlGuess
End Sub

頭のなかがこんがらがってしまいます
お願いです　出来れば説明付きで教えていただけませんか　よろしくお願いします

回答No.1

chie65536（@chie65535）

１．
作ったマクロは要らないので全部消す

２．
H2セルに
=SUMPRODUCT(($A$2:$A$10=$F2)*($B$2:$B$10=$G2)*(C$2:C$10))
と言う式を書く。

３．
H2セルをI2セルにコピーする。

４．
H2、I2セルを選択して、下方向にコピーして、H3～I6に貼り付ける。

すると、以下のようになって、集計が行われる。

　　　　F　　　　　G　　　　H　　　　　I　　　　　
1　　　日付　　　種類　　数量1　　数量2　
2　　　2月3日　　A　　　　400　　　30
3　　　2月3日　　C　　　　300　　　10
4　　　2月4日　　B　　　　400　　　10
5　　　2月4日　　C　　　　200　　　5
6　　　2月5日　　A　　　　100　　　20
7　　　2月5日　　B　　　　100　　　10
8　　　2月5日　　C　　　　300　　　20

お礼

ありがとうございます
マクロと組み合わせてかんがえます