VBA勉強中、教えてください。
下のような表のA、B、Cの期間ごとの合計を出したいのですがうまくいきません。
マスター(sheet1) 合計(sheet2)
A B C D A B C
1 商品A 商品B 商品C 1 7 合計
2 12/25 18 10 20 2 2/31
3 12/26 18 11 15 3 商品A
4 12/27 20 12 10 4 商品B
5 12/28 24 20 16 5 商品C
6 12/29 30 18 15
7 12/30 18 30 25
8 12/31 23 21 10
ユーザーフォームに日付と何日(数字入力)のフォームが作ってあります
Dim i As Integer, x As Integer,dy1 As Variant,gk1 As Variant, tag1 As Variant, cnt As Integer
cnt = Worksheets("合計"),Range("A1")
dy1 = Application.Match(Worksheets("合計").Range("A2"), Worksheets("マスター").Range("A:A"), 0)
For x = 0 To 3
tag1 = Application.Match(Worksheets("合計").Cells(3 + x, 2), Worksheets("マスター").Range("1:1"), 0)
For i = 0 To cnt
gk1 = gk1 + Worksheets("マスター").Cells(dy1 - i, tag1).Value
Next i
Worksheets("合計").Cells(2 + x, 3).Value = gk1
Next x
このようなコードにしたのですが合計がA→B→Cとすべて足されてしまいます。A,B,Cとそれぞれの合計を出すにはどのようにしたらよいのでしょうか？ 思考錯誤したのですが初心者なのでよくわかりません。 どなたかわかる方が居たら教えてください。よろしくお願いします。
お礼
早速まわってみます