- ベストアンサー
<EXCELグラフ>データ取得範囲を最下行にしたい
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
VBAによる対応となります。 対象のシートタブを右クリックしてコードの表示を選び、 最下のVBAコードを貼り付けてください。 セルに値が入力されるとグラフの参照範囲が変わります。 ■コードの修正 以下のコードでは、対象のグラフ名が「グラフ 11」であり、 変更するセル範囲がB列1行目から最終行までとしています。 (1)対象のグラフ名を変更する場合 If .ChartObjects(i).Name = "グラフ 11" Then 「グラフ 11」の部分を修正してください。 (2)再設定するセル範囲を変更する場合 Range(Cells(1, "B"), Cells(Rows.Count, "B").End(xlUp)) →Cells(1, "B")が開始セルになります。 Cells(行番号, "列記号")の様式で記述 →Cells(Rows.Count, "B").End(xlUp)が終了セルになります。 Cells(Rows.Count, "列記号").End(xlUp)の様式で記述 ■VBAコード Private Sub Worksheet_Change(ByVal Target As Range) With ActiveSheet For i = 1 To .ChartObjects.Count '変更対象のグラフ名を設定 If .ChartObjects(i).Name = "グラフ 11" Then 'グラフの参照範囲をB1:B最終行に変更 .ChartObjects(i).Chart.SetSourceData Source:= _ Range(Cells(1, "B"), Cells(Rows.Count, "B").End(xlUp)) Exit For End If Next i End With End Sub
その他の回答 (1)
- okormazd
- ベストアンサー率50% (1224/2412)
お礼
ご丁寧にありがとうございました。 うまく動きました!