Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13495 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   グラフの項目軸のことで教えていただきたいのですが、例えばＢ列に入っている数値
データを折れ線グラフにする際に、Ａ列のデータを項目軸に選ぶにはどうすれ
ばいいのかわからなくて困っています。シート名とデータ数が固定していれば
簡単なのですが、マクロを適用するシート名とデータ数が異なる場合、

ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R6C4:R9C4"
を
ActiveChart.SeriesCollection(1).XValues = "=【シート名】【"Ａ1
"から"Ａの最終行"】"
のようにする方法がわからないのですが、どなたか教えていただければ助かり
ます。
【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 -
引用なし
パスワード
   返信が大変遅れてしまいました。
ごめんなさい。
ポンタさんのおかげで解決しました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13495 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free