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

質問

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

回答No.3

HohoPapa

グラフのデータ範囲などをVBAでコントロールする説明が
http://officetanaka.net/excel/vba/tips/tips150.htm
に細かに説明されているものの
そもそもオプションがたくさんあるため難解です。

VBAでデータ範囲を制御したいということであれば、
添付画像と添付のコードを参考に挑戦してみてください。

Sub GraphSauceChange1()

　Const MaxRows = 50　 'データ範囲に指定する最大行数
　Const TgShNum = 1　　'対象シート番号

　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 = 2
　　Else
　　　SRow = ERow - MaxRows
　　End If

　　Set tgRange0 = Range(.Cells(SRow, 1), .Cells(ERow, 1))　'列1
　　Set tgRange1 = Range(.Cells(SRow, 2), .Cells(ERow, 2))　'列2
　　Set tgRange2 = Range(.Cells(SRow, 4), .Cells(ERow, 4))　'列4
　　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

補足

いつも大変お世話になっております。

昼休み明けからズ～とアレコレ試している間に改善版が出てしまいました。
今日はこれからは時間がないのでまずは＃3の試行結果のみ速報?させていただきます。

最初の疑問は、回答のグラフではどう見てもデータ数が50個ではない（11/16からなら9/28まで）なのでおかしいとは思いながら、知恵がないのでまずは言われた通りにコピペして少しアレコレいじったら見事データ数50個（正確には51個）のグラフができました。
そこでデータ数を４９個にしてみましたがやはり51個のまま。この個数はどうでもいいのですが、試しに40個にしてみたり、列の数字をいじってみたりしていたらアプリケーションエラーとなりました。
データ数を5０に戻してもエラーになってしまうようになった時点で一旦終了して、ここで列番号の指定の仕方を聞こうと思ったら改良版が入っていました。

ちなみにまたまた後追いの条件ですが、データが50個以上ある場合は問題なく増加分が下にずれるのですが、データが50個以下の場合は上に数字を含む種々の情報があるので突き抜けてしまって不具合が起こることに気づきました。

実際の使用には新製品は「ひな型」に取り込んで使用することにしているので、対象列の１７行目以降がデータ領域になります。
ついでに5行目が項目名です。（厚かましくてごめんなさい）
既存のファイルなら上に空白行を入れて17行目からに更新しても問題ないので、もし合わせて改良いただけたらと思いますが、取り合えず改良版の試行結果をお待ちくださいませ。
まずは試してみます。

明日以降に再度挑戦してみます。
一応できたのでゴールは近い、と感じていますが小生のことですので何が飛び出すか????