【Excel VBA】Rangeに変数を入れたい

2011/03/24 22:20

このQ&Aのポイント

Excel2007を使っています。VBAは全くの初心者です。
ユーザはコンボボックスで4月～(翌)3月の中から1つを選び、選んだ月が例えば7月ならば、4月から7月までの売上データをシート「Data」から「トレンド」にもってきたいと思います。
Rangeを使った処理を考えましたが、どのように設定すればよいか分かりません。別の方法でも構いませんが、初心者でも分かるように教えていただけないでしょうか？

【Excel VBA】Rangeに変数を入れたい

Excel2007を使っています。VBAは全くの初心者です。 VBAでやりたい事ですが、 ------------------------------------------------------------------------- 1つのブックにシートが２つあり、　●シート「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を使うのかなと思っただけです。）よい方法がお分かりになる方は、恐れ入りますが、初心者でも分かるように教えていただけないですか？説明不足があれば申し訳ございません。どうぞよろしくお願い致します。

erosy00
お礼率63% (116/182)

その他（プログラミング・開発）
回答数3
ありがとう数2

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

kmetu
ベストアンサー率41% (562/1346)

2011/03/25 22:26 回答No.2

r2=Range(Offsetで求めたセル.Address).Row c2 = Range(Offsetで求めたセル.Address).Column ↑ これ冗長でした r2=Offsetで求めたセル.Row c2 = Offsetで求めたセル.Column 多分 r2 = Range("A1").Offset(RowOffset, ColumnOffset).Row c2 = Range("A1").Offset(RowOffset, ColumnOffset).Column みたいな感じだと。

質問者

お礼 2011/03/26 00:50

ありがとうございます。 r2=Range(Offsetで求めたセル.Address).Row c2 = Range(Offsetで求めたセル.Address).Column これでもできましたよ！助かりました。あともう一つVBAで分からないことがあり、また投稿させていただいたのですが、。。。 http://oshiete.goo.ne.jp/qa/6621019.html VBAを組むのは初めてでかなり初歩的な質問ですが、調べても難しくてよく分からなかったのでよろしければまた教えてください。よろしくお願いします。

その他の回答 (2)

kmetu
ベストアンサー率41% (562/1346)

2011/03/26 10:21 回答No.3

> r2=Range(Offsetで求めたセル.Address).Row > c2 = Range(Offsetで求めたセル.Address).Column > > これでもできましたよ！はい、ただ「腹痛が痛い」みたいな表現なってしまったということです。

kmetu
ベストアンサー率41% (562/1346)

2011/03/24 22:48 回答No.1

> 別の方法として、Range(Cells(r1, c1), Cells(r2, c2))に代入しようかと思いましたが、 r2, c2を、上記のOffsetで求めたセルからどのように使えばよいかわかりません。 Offsetで求めたセルの　RowとColumn r2=Range(Offsetで求めたセル.Address).Row c2 = Range(Offsetで求めたセル.Address).Column こんな感じでいいと思われます。

質問者