- 締切済み
エクセル マクロ range
rangeの使い方が分かりません. 特にグラフの範囲指定の方法で・・・ 1.. r1=range("cells(28,RETU1)") ? RETU1、RETU2は、inputboxで指定したい。 2. r2=range("cells(28,RETU1),cells(295,RETU2") ? 3. range("a28,a295","cells(28,RETU1),cells(295,RETU2").select ? 離れた範囲2つを一つの範囲にしたグラフを書きたい。 4. inputboxで列名を記入するとき、数字でないといけないのか、アルファベットでもいいのですか? 5. range("cells(28,RETU1)").activate ? 以上を別法で以下のようにしたら? 6. Dim r1 As RANGE ・・・となって、Rangeになりません。 このあと、例えば、 r1.select とかr1.activateでいいですか? 7. set R1=range("cells(28,RETU1),cells(250,RETU2") set R2=range(a28,a250) unite (R1,R2) ?
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- keithin
- ベストアンサー率66% (5278/7941)
基本的なマナーですが、ご相談では1つの投稿で1つのご質問内容とし、1つずつ疑問点を解決して次のご相談投稿につないでいくようにしてください。 基本的な文法もまだ理解できていない今の状態で、あれこれ詰め込みで質問し回答を受け取っても、パンクするだけです。 サンプルマクロ1:グラフ以前に、まずrangeやcellsを正しく使える sub macro1() dim h as range dim c as variant c = inputbox("列を数字または文字で記入") set h = range(cells(28, c), cells(250, c)) h.select end sub サンプルマクロ2:範囲を番地で指定し折れ線グラフを描く sub macro2() dim Target as range dim c1 as string, c2 as string c1 = inputbox("左上セル番地をA1形式で記入(A1と記入)") c2 = inputbox("右下セル番地をA1形式で記入(C8と記入)") set target = range(c1 & ":" & c2) charts.add activechart.charttype = xllinemarkers activechart.setsourcedata source:=target activechart.location where:=xllocationasobject, name:="sheet1" end sub