自動的にグラフを作成してくれるExcel VBAの作り方を教えて下さい。

001,002,003,・・・200というナンバーが
B12,C12,D12,・・・??12
に入っているとします。
A13,A14,・・・A6016にはそれぞれ
1,2,3,・・・,6003
というナンバーが入っています。
B13・・・??6016
にはそれぞれのデータが入っているとします。
このデータを使って、
x軸を「A13,A14,・・・A6016」y軸を「B13・・・B6016、C13・・・C6016、・・」
として200個の散布図グラフを作成したいのですが、これを自動でやってくれる
マクロを教えて下さい。
よろしくお願い致します。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2008/11/28 13:01

マクロの自動記録を行なってみて、それに手を加えてみる。

不明な点に的を絞り質問してみる。

この回答へのお礼

ありがとうございます。

一度自分で作ってみたのですが、
Sub Macro1()

For i = 4 To 8
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=zero!R13C1:R1013C1"
ActiveChart.SeriesCollection(1).Values = "=zero!R13Ci:R1013Ci"
ActiveChart.SeriesCollection(1).Name = "=zero!R12Ci"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x axis"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y axis"
End With
Next
End Sub


なぜかNextに対応するForと出てきます。
何が問題なのでしょうか？
よろしくお願い致します。

お礼日時：2008/11/28 13:40

No.3 回答者： n-jun 回答日時： 2008/11/28 15:11

ANo.2です。

＞ActiveChart.SeriesCollection(1).Values = "=zero!R13Ci:R1013Ci"の行が黄色にマークされています
変数の使い方にミスがあるのでは。

ActiveChart.SeriesCollection(1).Values = "=zero!R13C" & i & ":R1013C" & i
試してないですけど、変数iを""の中に入れてしまっては単なる文字列になってしまいます。

この回答へのお礼

修正候補
ステートメントの最後
というエラーが出てくるのですが・・・
どうすれば良いのでしょうか？

お礼日時：2008/11/28 16:37

No.2 回答者： n-jun 回答日時： 2008/11/28 14:32

ANo.1です。

＞With ActiveChart
１行余計にあるため、With～End With　の、End With　が足りないためではないかと。

この回答へのお礼

ありがとうございます。

これは解決しました。
実行すると次は
実行時エラー'1004':
SeriesクラスのValuesプロパティを設定できません。

と出てきます。
そして、
ActiveChart.SeriesCollection(1).Values = "=zero!R13Ci:R1013Ci"の行が黄色にマークされています
これはどうすれば良いのでしょうか？

お礼日時：2008/11/28 14:56