|
いつもお世話になっております。
現在、5系統(種類?)で全部で約200本の曲線を1つのグラフにしようと考えています。各系統は、最小値、最大値を入力することで、その本数が変化します。手始めに一系統の描画ルーチンを作ろうと下記リストを作成したのですが、参照先指定のところで R[j]C44にjを反映させる方法が分かりません。マクロの記録では、" "で囲まれた文字列指定となるのですが、どうやればよろしいでしょうか?
Sub Macro2()
Dim i As Integer
Dim j As Integer
i = 138
j = 11
ActiveSheet.ChartObjects("グラフ 5").Activate
While i < 138 + (50) '対象曲線が138番目から50本(仮)
ActiveChart.SeriesCollection.NewSeries
With ActiveChart.SeriesCollection(i)
.XValues = "=DATA!R[j]C44:R[j]C45"
~~~~ ~~~~
.Values = "=DATA!R[j]C46:R[j]C47"
~~~~ ~~~~
.Name = DB
.Border.ColorIndex = 1
.Border.Weight = xlThin
.Border.LineStyle = xlContinuous
End With
i = i + 1
j = j + 1
Wend
End Sub
あと、グラフ中の全曲線本数の取得方法が分かりましたらお教えください。
宜しく願いいたします。
|
|