Excel VBA質問箱 IV

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

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


8945 / 13644 ツリー ←次へ | 前へ→

【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には毎回違った数字が入ります。)
ありがとうございました。

8945 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free