エクセルで最新の50個のデータを含むグラフを作成したい

質問

• エクセルで最新の50個のデータを含むグラフを作成する方法について教えてください。
• シートには日付と2つの特性が列ごとに記録されていますが、データの数が大きく異なるため、自動作成されたグラフの表示が目的と異なっています。
• 特性ごとに最新の30個または50個のデータを含むグラフを自動作成する方法を教えてください。

回答No.4

HohoPapa

データ格納列番号もブックによって変動するようなので、
この番号も定数に格納してみました。

Sub GraphSauceChange1()

　Const MaxRows = 50　 'データ範囲に指定する最大行数
　Const TgShNum = 1　　'対象シート番号
　Const ColNum0 = 1　　'日付列？　1列目
　Const ColNum1 = 2　　'1つ目データ格納列
　Const ColNum2 = 4　　'2つ目データ格納列
　Const SRowNum = 2　　'データ開始行番号

　Dim SRow As Long　　 'グラフ用データ開始行
　Dim ERow As Long　　 'グラフ用データ終了行
　Dim tgRange0 As Range　'X軸日付範囲
　Dim tgRange1 As Range　'データ群1つ目範囲
　Dim tgRange2 As Range　'データ群2つ目範囲
　Dim tgRangeA As Range　'上記合計範囲

　With ThisWorkbook.Sheets(TgShNum)

　　ERow = .Cells(.Rows.Count, 1).End(xlUp).Row
　　If ERow < MaxRows Then
　　　SRow = SRowNum
　　Else
　　　SRow = ERow - MaxRows
　　End If

　　Set tgRange0 = _
　　　Range(.Cells(SRow, ColNum0), .Cells(ERow, ColNum0))
　　Set tgRange1 = _
　　　Range(.Cells(SRow, ColNum1), .Cells(ERow, ColNum1))
　　Set tgRange2 = _
　　　Range(.Cells(SRow, ColNum2), .Cells(ERow, ColNum2))
　　Set tgRangeA = Union(tgRange0, tgRange1, tgRange2)　　　'結合
　　.ChartObjects(1).Chart.SetSourceData Source:=tgRangeA　 'セット

　　.ChartObjects(1).Chart.SeriesCollection(1).Name = "あいう"
　　.ChartObjects(1).Chart.SeriesCollection(2).Name = "かきく"

　End With

End Sub

お礼

上の補足コメントで「完璧です」と思ったのですが、今日本チャンのブックで試してみたらなぜか全く予想外の結果になってしまいまし他。（ショック!!）
まず横軸の指定がグラフ要素になって、しかもデータ範囲が41行目から79行目に固定されてしまうようです。
データ数を20で試してみました。

なぜ自宅のダミーではうまく行ったのか全く不明ですが、HohoPapaさんが自ら
＞範囲行の設定に難あり、と言われているのでこちら（不具合）が正解かと思い急ぎ訂正報告をさせていただきます。

補足

すぐに動くわけないと思いながらもダミーシートで試してみました。

横軸を2列目に、開始行を17行から、データ数を20個にして、グラフ系列の列も変えてみました。
完璧です！！！（プロットが21個になるのはご愛敬で全く問題なし）

ただし、大きな問題点が1つ。
特性のうち重要な2つだけを指定してグラフに出来るのですが、この特性の桁数が全く違う場合がほとんどなので特性ごとに2軸表示が必須です。
例えば選択した特性が、長さと重さの場合は、0.1ｍｍと1000kgという感じです。
これがグラフ系列を２つだけに絞る最大の要因です。（軸が1つだと0.1は変動が見えなくなりますので）

また、若干の問題点は、
データ数が足りないと上に突き抜けて、その系列の上の平均や標準偏差、等々がグラフに取り込まれるのでぐちゃぐちゃになってしまうのでできれば改善したい問題点です。
ただし、最初のグラフ作成時に30個までを指定しておけば、30個目以降のデータを入力したらマクロボタンをクリックすることで対応可能なので大きな問題点ではありません。（これは大きく手間なら割愛でも十分）

図々しく贅沢を言うなら、
指定した列（ひな形では5行目の項目名）が自動で凡例に取り込まれればありがたいのですが。。。