Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8966 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30095】グラフの「元のデータ」を変更したい k 05/10/19(水) 16:40 質問[未読]
【30101】Re:グラフの「元のデータ」を変更したい kobasan 05/10/19(水) 17:27 回答[未読]
【30169】Re:グラフの「元のデータ」を変更したい k 05/10/21(金) 9:56 お礼[未読]
【30095】グラフの「元のデータ」を変更したい
質問  k E-MAIL  - 05/10/19(水) 16:40 -
引用なし
パスワード
   グラフの「元のデータ」を変更したいと思い、「マクロの記録」をやってみると

ActiveChart.SetSourceData Source:=Sheets("input").Range("E2:H2,E5:H9"), _
　　　　PlotBy:=xlRows

と記録されました。
ただ、列の右端(上の例ではH列)は、その時々で違うのです。
Range("E2:H2,E5:H9")をCellsプロパティを使って表すとどうなるのでしょうか。
【30101】Re:グラフの「元のデータ」を変更したい
回答  kobasan  - 05/10/19(水) 17:27 -
引用なし
パスワード
   k さん　今晩は。

>グラフの「元のデータ」を変更したいと思い、「マクロの記録」をやってみると
>
>ActiveChart.SetSourceData Source:=Sheets("input").Range("E2:H2,E5:H9"), _
>　　　　PlotBy:=xlRows
>
>と記録されました。
>ただ、列の右端(上の例ではH列)は、その時々で違うのです。
>Range("E2:H2,E5:H9")をCellsプロパティを使って表すとどうなるのでしょうか。


これで、できます。

　　With Sheets("input")
　　　　Set 範囲 = Union(.Range("E2:H2"), _
　　　　　　　　　　　　 .Range(.Range("E5"), .Cells(9, "H")))
　　End With


　　ActiveChart.SetSourceData Source:=範囲 , PlotBy:=xlRows
【30169】Re:グラフの「元のデータ」を変更したい
お礼  k E-MAIL  - 05/10/21(金) 9:56 -
引用なし
パスワード
   Dim CRrange As Range

With Sheets("input")
　　　　Set CRrange = Union(.Range(.Range("E2"), .Cells(2, 5 + j - 1)), .Range(.Range("E14"), .Cells(20, 5 + j - 1)))
　　End With
　　ActiveChart.SetSourceData Source:=CRrange, PlotBy:=xlRows

で、できました。(jには毎回違った数字が入ります。)
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8966 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free