エクセルVBAの構文の質問です。

質問

エクセルVBAの構文の質問です。

グラフを作るのに列が固定ではないので記録マクロでは一部変更しなくては成らなくてその変更が上手く行きません、構文を記します。

Range("E11:E42").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("E11:E42")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

上記が記録マクロの構文ですそのRange文をCells文に変えたのが以下です。

Range("Cells(r2, c3), Cells(r3, c3)).Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(Cells(r2, c3), Cells(r3, c3))
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

Range文が２ヶ所有ると思いますが最初の文はOKで２回目のRange文で以下の以下のエラーが出ます。
「'Cells'メソッドは失敗しました。'Global'オブジェクト」
「r2 c2 r3 c3」はそれぞれ変数で上の方でr2=3とかc2=9と言う風にセル位置を与えています

どちら様か当方の悩みを解決してください、宜しくお願い致します。

回答No.2

okormazd · ベストアンサー

Range("Cells(r2, c3), Cells(r3, c3)).Select
'これ選択しても意味がなさそう。はじめの"は邪魔、c3はc2じゃないの。
Charts.Add
'でグラフが選択される。
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(Cells(r2, c3), Cells(r3, c3))
'Cellsの場所がわからない。グラフ上で探そうとする。
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(Sheets("Sheet1").Cells(r2, c2), Sheets("Sheet1").Cells(r3, c3))
にしなければだめ。
長くなるので、With文を使う。
With Sheets("Sheet1")
ActiveChart.SetSourceData Source:=.Range(.Cells(r2, c2), .Cells(r3, c3))
End With
とか。

ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

お礼

うわー、ばっちりです。

上手く行きました細かい指摘まで有っていました。

有り難うございました。

回答No.1

m-take0220

Sheets("Sheet1").Cells(r2, c3) のように、対象のワークシートを指定したらどうでしょうか。

お礼

m-take0220さん

早々のご回答有り難うございます。

助かりました。