VBA 1年間売上トータルをマクロで集計

質問

A（エリア）　B（日付）　　C（商品）　　D金額
東京　　　2009/09　　　　みかん　　　　210
東京　　　2011/09　　　　みかん　　　　210
大阪　　　2011/06　　　　りんご　　　　150
東京　　　2011/07　　　　りんご　　　　200
東京　　　2011/08　　　　みかん　　　　170
大阪　　　2011/10　　　　みかん　　　　140
東京　　　2011/11　　　　みかん　　　　110
東京　　　2012/03　　　　みかん　　　　190
大阪　　　2012/04　　　　りんご　　　　200
東京　　　2012/05　　　　りんご　　　　220

【やりたいこと】
1年間のりんごの売上とみかんの売上のトータルをマクロで
計算したいと思っています。

一年間の区切りは、期初（スタート）月：6月　締め月：5月です。
ただし、1年間といっても指定した日付までのトータル金額を出したいのです。

例1）InputBoxで「2012/04」と入力した場合は
B列の「2011/06」～「2012/04」かつC列がりんごの金額の総合計を出す。
というようなイメージです。

例2）InputBoxで「2011/06」と入力した場合は
B列の「2011/06」～「2011/06」かつC列がりんごの金額の総合計を出す

例3）InputBoxで「2010/02」と入力した場合は
B列の「2009/06」～「2010/02」かつC列がりんごの金額の総合計を出す

恐れ入りますがどたなかご教示頂ければ幸いです。
どうぞよろしくお願い致します。

回答No.1

TAKA_R · ベストアンサー

こんな感じかな。
forのところはsumproductを使おうと思ったんだけど、思い通りに動かなかったので。

Sub 計算()
Dim str, st As String
Dim dt(2) As Date
Dim a, b
Dim c As Long
str = InputBox("集計終わりの年月を書いてください" & vbCrLf & "例：2011/08", "集計用")
st = "みかん"
If str <> "" Then
a = Val(Left(str, 4))
b = Right(str, 2)
If Val(b) < 6 Then a = a - 1
dt(0) = CDate(a & "/06")
dt(1) = CDate(str)
End If
For k = 1 To Range("a1000").End(xlUp).Row
dt(2) = Range("b" & k + 1)
If dt(0) <= dt(2) And dt(1) >= dt(2) Then
If Range("c" & k + 1) = st Then c = c + Range("d" & k + 1)
End If
Next
Range("g1") = c
End Sub

お礼

ありがとうございました！！！
かっ・・感動の一言ですＯ(≧▽≦)Ｏ ！！

おかげさまで正確な値を得ることができました。

このたびは本当にありがとうございました。