【Excel VBA】Rangeに変数を入れたい
Excel2007を使っています。VBAは全くの初心者です。
VBAでやりたい事ですが、
-------------------------------------------------------------------------
1つのブックにシートが2つあり、
●シート「Data」にはE3,F3,G3・・・と横に4月,5月・・(翌)3月まで1年分の月が入っています。
それぞれの月の下の列に会社ごとの売上が入っています。
●シート「トレンド」にも、C3,E3,F3・・・と横に4月,5月・・(翌)3月まで1年分の月が入っています。
同様にそれぞれの月の下の列に会社ごとの売上を入れるセル(ブランク)があります。
ユーザはコンボボックスで4月~(翌)3月の中から1つを選び、選んだ月が例えば7月ならば、
4月から7月までの売上データをシート「Data」から「トレンド」にもってきたいと思います。
「Data」には8月以降の値も予め入っていますが、これは「トレンド」にはもって
こないようにしたいです。(「トレンド」は8月以降はブランクのまま)
-------------------------------------------------------------------------
シート「Data」から「トレンド」に値を代入するに当たり、
Worksheet("トレンド").Range("C3: <コンボボックスで選ばれた月に該当する売上のセル>)
= Worksheet("Data").Range("E3: <コンボボックスで選ばれた月に該当する売上のセル>)
というRangeを使った処理を考えたのですが、このRange()内をどうすればよいかが
分かりません。( <>内の部分です・・)
該当する売上は、コンボボックスで選ばれた値をFindを使って、それぞれのシートの
月の列から検索し、ヒットしたセル(月)からOffsetを使って売上のセルを求めましたが、
この値をどうやって上のRange内に入れてよいか分かりません。
別の方法として、Range(Cells(r1, c1), Cells(r2, c2))に代入しようかと思いましたが、
r2, c2を、上記のOffsetで求めたセルからどのように使えばよいかわかりません。
Rangeにこだわっているわけではなく、上記の処理が行えればどんな方法でも
大丈夫です。(Findを使ったのでなんとなくRangeを使うのかなと思っただけです。)
よい方法がお分かりになる方は、恐れ入りますが、初心者でも分かるように
教えていただけないですか?
説明不足があれば申し訳ございません。
どうぞよろしくお願い致します。
補足
説明不足ですいません。 どこのセルを選んだとしても、必ずアクティブのセルとその下のセルを範囲選択できるようにしたいんです。