離れたセルを参照するグラフ作成について（Unionでうまく参照できていません）

投稿者 : saya     投稿日時 : 2024/08/23(Fri) 11:41:58     OS : Windows 10     EXCEL : Excel 2013

---

別シートからキーワードで絞り込みした結果を表示した表に対し、グラフを作成しています。


表はA列から60列ほどあり、20行目に項目名、21行目からデータが入っています。
その表に対し、H列（数量）、X列（日時）を使用して、推移が分かるグラフを作成したいです。

調べて、Unionで参照範囲を結合してみたのですが、実際に作成されたグラフは、H列とI列が参照され、X列が参照されません。
間違いの内容を教えてください。


Dim RANGE1 As Range
Dim RANGE2 As Range
Dim データ範囲 As Range

Set RANGE1 = Range(Cells(21, 7), Cells(100, 7))
Set RANGE2 = Range(Cells(21, 24),Cells(100, 24))

Set データ範囲 = Union(RANGE1, RANGE2)

ActiveSheet.Shapes.AddChart2.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData データ範囲

投稿者 : さんこう     投稿日時 : 2024/08/23(Fri) 12:56:06

---

理屈はわかりませんが、データ範囲を「数量」だけにして作成してから項目軸（日時）を設定するようにしたら、それっぽくなりました。

参考になれば。

Sub Test()
    Dim RANGE1 As Range
    Dim RANGE2 As Range
    
    Set RANGE1 = Range(Cells(21, 8), Cells(100, 8))     ' H列なら8です
    Set RANGE2 = Range(Cells(21, 24), Cells(100, 24))
    
    ActiveSheet.Shapes.AddChart2.Select
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=RANGE1
End Sub

投稿者 : saya     投稿日時 : 2024/08/23(Fri) 13:27:24

---

ありがとうございます。
項目軸の列をグラフデータ範囲に含めない様に指定すればいいんですね。試してみます。

列名は私の書き間違いでコードが正しいですが、とりあえず内容には影響無いので置いときます