[[20210907105406]]　『グラフの範囲を変えたいです。』（リザ）　ページの最後に飛ぶ

『グラフの範囲を変えたいです。』（リザ）

こんにちは、毎度お世話になります。

エクセルのドロップダウンリストを変更することで、描画するグラフの範囲を変えたいのですが、どのようにやればよいでしょうか。

おしえていただけますでしょうか。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

https://faq.nec-lavie.jp/qasearch/1007/app/servlet/relatedqa?QID=012209
などが参考になりそうです。
バージョンは違っても、さほど違いは無いのでは？
（γ） 2021/09/07(火) 11:31

 # ＞毎度お世話になります。
 # ということで全文検索しましたが、
 # リザさんという質問者さんは一度も登場していませんでした。

 ああ、問題を読み違えたかもしれませんね。
 いや、そうじゃなくて、という反応もなかったので、
 そのままになっていました。

 範囲を「入力規則」のリストで指定しておいて、
 それが選択変更になったつど、グラフを更新したいということでしたか。

 そうであれば、下記ですね。
 （前提）
 ・対象範囲を書いたリストがあり、それをA7セルの入力規則で選択する

 <<Sheet1のシートモジュール>>
 Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address(False, False) <> "A7" Then Exit Sub
     Call changeSoureData(Range("A7"))
 End Sub

 <<標準モジュール>>
 Function changeSoureData(r As Range)
     Dim ch As Chart
     Dim sArea As Range

     Set ch = ActiveSheet.ChartObjects(1).Chart
     Set sArea = Range(r.Value)
     ch.SetSourceData Source:=sArea
 End Function
 一応動作確認はしました。
 対象となるグラフの修正などがあれば、そちらで対応してください。
 あくまで、上記コードは参考ということです。

（γ） 2021/09/07(火) 23:47

コメント返信：

[ 一覧(最新更新順) ]

[[20210907105406]] 『グラフの範囲を変えたいです。』（リザ） ページの最後に飛ぶ

[[20210907105406]]　『グラフの範囲を変えたいです。』（リザ）　ページの最後に飛ぶ