Ｅｘｃｅｌの範囲可変グラフ

質問

必要に迫られ、数日前から関数やマクロなるモノを勉強しながら奮闘中です。
範囲可変のグラフを作りたく、以下のサイトを参考にしながら試行錯誤してるのですが、応用が効きません。。
http://www2.odn.ne.jp/excel/waza/graph.html#SEC13
http://okwave.jp/qa2138388.html

どれも、ある固定位置を起点として、増えた範囲までの全てのエリアをグラフ化してるようなのですが、
やりたいのは、任意のデータ範囲を自由に（Windowをスライドするように）グラフ化したいのです。
データの量が大量で全部表示すると見えなくなるため、
指定したい範囲をパラメータとして与えることで、その範囲だけを切り出したようなグラフにしたい。です。

例えば、
A5:B100　に以下データが入ってたとして、
（A列は上から連番でダブリなし。実際には時間=tになる）

A,B
-----
1,a ←(A5,B5)
2,b
3,c ←ここから
4,d
5,e
6,f
7,g
8,h ←ここまでをグラフ化
9,i
：

ここで、あるパラメータ用のセルに、
開始位置=3、終了位置=8という値を指定すると、
A列から3と8を見つけ出し、その範囲のグラフを作る。
3と8なので、グラフの範囲としては、A7:B12。
（実際には、列はもっと多いですが）

できれば"エクセル技道場"のような範囲指定関数＋グラフ設定のほうが良いです。
（今回マクロも少しかじったのでマクロでも何とかなるカモ・・(^^;）

すみませんが、よろしくお願い致します。

回答No.7

end-u · ベストアンサー

#6補足に対するレスです。

『Excel で名前付け範囲を使用して動的なグラフを作成する』
http://office.microsoft.com/ja-jp/excel/HA011098011041.aspx
▲こちらを参照されると良いです。

『グラフの系列を選択し、Excel の数式バーを確認すると、
その系列が SERIES 関数を使用した数式によって生成されていることがわかります。
SERIES は、このような場合にのみ使用される特殊な関数で、グラフの系列を定義します。』
とあります。

Sub test3()
　　Dim s As String

　　With Sheets.Add
　　　　s = .Name & "!"
　　　　.Range("A1:B4").Value = [{"","name";"a",1;"b",2;"c",3}]
　　　　With .ChartObjects.Add(.Range("F1").Left, 0, 500, 300)
　　　　　　.Activate
　　　　　　With .Chart
　　　　　　　　.HasLegend = True
　　　　　　　　.ChartType = xlColumnClustered
　　　　　　　　With .SeriesCollection.NewSeries
　　　　　　　　　　.Formula = "=SERIES(" & s & "B1," & s & "A2:A4," & s & "B2:B4,1)"
　　　　　　　　　　.Select
　　　　　　　　End With
　　　　　　End With
　　　　End With
　　End With
End Sub

これで系列選択状態になりますから、数式バーを見てください。
=SERIES(SheetX!$B$1,SheetX!$A$2:$A$4,SheetX!$B$2:$B$4,1)
と表示されているはずです。

手作業で適当なグラフを作成し、系列を選択した場合も同じように表示されます。
つまりグラフの系列の参照元を表しています。

前述ページに SERIES 関数の引数についても説明がありますので確認しておいてください。
=SERIES(凡例の名前,項目軸ラベル,プロット値,プロット順)
...となります。

お礼

ありがとうございます。
やっとスッキリしました。
SERIESがなにやらグラフ作成に重要な呪文なんだろうとは思ってましたが、
こういう構成だったんですね。。
あと、項目軸ラベルの設定もどうやってやるのか悩んでたことろだったので、
非常に助かりました。
（どこかのサイトで書かれてた構文を作り変えて無理やり突っ込んでましたが..）

ちなみに、「#3補足に対するレス」で書かれてた
.Formula = "=SERIES(,," & ws.Name & "!data" & i & ",)"　
は、
.HasLegend = False
だったので、凡例の名前,項目軸ラベルのところが、,, だったんですね。。