みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

グラフ可変範囲のデータ設定

環境Excel2002です

グラフ 1が棒グラフ2個、折れ線グラフ1個で作成されています

Sheets("支社")に8支社のデータがあります
グラフシートは1Sheetにしたいので
グラフシートで支社を選択することにより
Sheets("支社")の該当支社のグラフデータを取得します

そうすると、グラフデータは可変範囲で設定することになります
そのVBAが下記です

ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.SeriesCollection(1)
.XValues = Sheets("支社").Range(Cells(497, i), Cells(497, i + 12))
.Values = Sheets("支社").Range(Cells(497, i + 1), Cells(497, i + 12))
End With

.XValues = Sheets("支社").Range(Cells(497, i), Cells(497, i + 12))
のところで実行時エラー1004がでてしまいます

エラー回避方法を教えてください

投稿日時 - 2013-03-03 20:52:47

QNo.7974843

すぐに回答ほしいです

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

初心者さんが必ず一回は引っかかります。
range(cell, cell)と指定したいときは
シート.range(シート.cells(), シート.cells())
のようにします。

こんな風に:
.XValues = Sheets("支社").Range(Sheets("支社").Cells(497, i), Sheets("支社").Cells(497, i + 12))



それから.valuesの方は、上述は同じように間違っていますが、そもそもセル範囲の指定が間違っています。どこを与えるのが正解なのかは、あなたのエクセルの姿が見えないので回答はしませんが、正しいセル範囲を指定してください。

投稿日時 - 2013-03-03 21:23:20

お礼

無事範囲設定することができました。
ありがとうございました。

投稿日時 - 2013-03-04 14:41:58

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問