Excel VBA質問箱 IV

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

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


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

【3226】グラフの項目軸について 竹薮 03/1/28(火) 18:42 質問
【3283】Re:グラフの項目軸について ポンタ 03/1/30(木) 2:32 回答
【5151】Re:グラフの項目軸について 竹薮 03/4/23(水) 16:16 お礼

【3226】グラフの項目軸について
質問  竹薮  - 03/1/28(火) 18:42 -

引用なし
パスワード
   グラフの項目軸のことで教えていただきたいのですが、例えばB列に入っている数値
データを折れ線グラフにする際に、A列のデータを項目軸に選ぶにはどうすれ
ばいいのかわからなくて困っています。シート名とデータ数が固定していれば
簡単なのですが、マクロを適用するシート名とデータ数が異なる場合、

ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R6C4:R9C4"

ActiveChart.SeriesCollection(1).XValues = "=【シート名】【"A1
"から"Aの最終行"】"
のようにする方法がわからないのですが、どなたか教えていただければ助かり
ます。

【3283】Re:グラフの項目軸について
回答  ポンタ  - 03/1/30(木) 2:32 -

引用なし
パスワード
   グラフはあまり使わないのですが、
こんな感じじゃないかと思います。

シート名は適切に書き換えてください。

Dim MyRange As Range
With Worksheets("【シート名】")
  Set MyRange = .Range("A1", .Range("A65536").End(xlUp))
  ActiveChart.SeriesCollection(1).XValues = "=" & .Name & "!" & MyRange.Address(, , xlR1C1)
End With

【5151】Re:グラフの項目軸について
お礼  竹薮  - 03/4/23(水) 16:16 -

引用なし
パスワード
   返信が大変遅れてしまいました。
ごめんなさい。
ポンタさんのおかげで解決しました。
ありがとうございました。

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