Excel VBA 質問スレッド №2100 (未解決)
グラフのX軸,Y軸(系列名、項目名)の参照範囲の指定方法
投稿者 : ゆーじ 投稿日時 : 2025/03/28(Fri) 14:52:27 OS : 未指定 EXCEL : 未指定
EXCELでA列:見出し、B列:追番、C列:日付、D~G列:各集計数値が入っている表に対して、積み上げでグラフを作成しています。
グラフ化したい範囲は、D列以降で、X軸に追番ごとの棒グラフ、Y軸はD列以降の各数値の数量とします。
グラフを作成すると、X軸に見出し、追番、日付が表示されてしまっており、長く邪魔な見出しを表示しない様に変更したいのですが、
項目名や系列名が複数行、複数列ある場合に、どの様に参照範囲を指定するのか教えてください。
EXCELでA列:見出し、B列:追番、C列:日付、D~G列:各集計数値が入っている表に対して、積み上げでグラフを作成しています。
グラフ化したい範囲は、D列以降で、X軸に追番ごとの棒グラフ、Y軸はD列以降の各数値の数量とします。
グラフを作成すると、X軸に見出し、追番、日付が表示されてしまっており、長く邪魔な見出しを表示しない様に変更したいのですが、
項目名や系列名が複数行、複数列ある場合に、どの様に参照範囲を指定するのか教えてください。
スポンサーリンク
[返信 1] Re : グラフのX軸,Y軸(系列名、項目名)の参照範囲の指定方法
投稿者 : tek 投稿日時 : 2025/03/29(Sat) 12:20:12
こういうこと?
こういうこと?
Sub test() Dim ch As Chart Dim sData As Range, r追番 As Range Dim 追番 As String With ActiveSheet Set sData = .Range("A1").CurrentRegion ' 追番と 各集計数値のみを指定します。 Set sData = Intersect(sData, Union(sData.Columns("B"), sData.Offset(, 3))) ' B1セルに値があると系列と判断されるためそれを空白にしておく必要あり Set r追番 = sData.Cells(1) 追番 = r追番.Value '退避 r追番.ClearContents Set ch = .ChartObjects.Add(.Range("G5").Left, .Range("G5").Top, 330, 220).Chart With ch .SetSourceData Source:=sData .ChartType = xlColumnStacked .PlotBy = xlColumns End With r追番.Value = 追番 '復帰 End With End Sub
当掲示板について
- Excel VBA に関する掲示板です。Excel VBA に関する質問や疑問、それに対する解決方法など気軽に投稿してください。
- 記事内ではHTMLのタグは使用できません。
- 記事は一度投稿すると修正できません。内容を訂正したい場合は返信で対応してください。
- Sub〜End Sub、Function〜End Function は自動的にプログラムコードとみなし、枠で囲って見やすくします。
- Excel VBA とは関係ないことや、他人が不快に思うようなことなど、管理人が適当でないと判断した記事は削除する場合があります。
スポンサーリンク
返信入力フォーム
( 処理日時 : 2025-07-03 11:34:43 )