エクセルVBA 年月で集計したい

質問

お世話になります。

下記の様にシート１に入力した値をボタンで
シート２の集計シートの該当年月に加算させたいたいのですが、
年月で振り分ける方法が分かりませんでした。

●シート１（個数入力）

　　A　　　　　B　　　
1 　　　　　H24/12/25
2りんご　　　　1
3みかん　　　　2
4ばなな　　　　3
5すいか　　　　4 　　 　　⇒GOボタン

●シート２（年月毎の集計）

　　A　　　　　B　　　　　　C　　　　　　D　　　
1　　　　　24年10月　24年11月　24年12月
2りんご　　　0　　　　　　1
3みかん　　　0　　　　　　2
4ばなな　　　0　　　　　　3
5すいか　　　0　　　　　　4

シート１のB1の日付の年月とシート２のB1の年月が一致したら、値をB2～B5に加算
一致しなければ、C1、D1　という感じで考えております。

IF文の条件式がどのようになれば良いか教えていただけないでしょうか？
分かりづらくて申し訳ございませんが、よろしくお願い致します。

エクセルは2000を使用しております

回答No.1

FEX2053 · ベストアンサー

とりあえず、VBAのコードの書き方判ってます？

発想だけを言うなら、=YEAR(B1)&"年"&MONTH(B1)&"月"と
言うセルをシート１上に作っておき、そっちのセルの内容を
例えば=RANGE("C1").Valueで参照すれば済む、って話です。

要は「文字列にして直接比較しなさい」って話です。

あとは、シート２上でセルをＢ１から順に選択し、Selection.Value
で中身のデータを引っ張ってきて、Do～Loopで整合するのを
見つけるまで、Selection.offset(,1).Selectでずらしていけばいい
ってことになります。

お礼

ご回答ありがとうございました。
素人な為、なんか一片にやろうと思いすぎでした。
教えていただいた内容でチャレンジしてみます。
本当にありがとうございました。