Excel VBA質問箱 IV

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

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


13119 / 13646 ツリー ←次へ | 前へ→

【6859】グラフ範囲の設定 みさっぴ 03/8/8(金) 11:22 質問
【6866】Re:グラフ範囲の設定 Jaka 03/8/8(金) 13:01 回答
【6873】Re:グラフ範囲の設定 みさっぴ 03/8/8(金) 14:13 質問
【6882】Re:グラフ範囲の設定 つん 03/8/8(金) 14:49 回答
【6906】Re:グラフ範囲の設定 Kein 03/8/9(土) 21:44 回答
【6945】Re:グラフ範囲の設定 みさっぴ 03/8/13(水) 13:26 お礼
【6944】Re:グラフ範囲の設定 みさっぴ 03/8/13(水) 13:23 お礼

【6859】グラフ範囲の設定
質問  みさっぴ  - 03/8/8(金) 11:22 -

引用なし
パスワード
   初めてメールします。
毎回データをグラフ化するのが大変で、マクロを作ろうと思ったのですが、
グラフ範囲の設定で壁にぶちあったってしまいました。

いつもデータの始まりのセルは同じところにあるのですが、
終わりはまちまちです。
データが切れるまでのところをグラフ範囲に指定するにはどうしたらいいで
しょうか。

何分初心者で申し訳ありませんが、教えてください。

【6866】Re:グラフ範囲の設定
回答  Jaka  - 03/8/8(金) 13:01 -

引用なし
パスワード
   こんにちは。

Range("C1").End(xlDown).Select
MsgBox Range("C1").End(xlDown).Address(0, 0)
MsgBox Range("C1").End(xlDown).row
とか、

[#6862]
とか、データの状態他などによって、その時々で色々変わるけど。

【6873】Re:グラフ範囲の設定
質問  みさっぴ  - 03/8/8(金) 14:13 -

引用なし
パスワード
   ▼Jaka さん:

早速のお返事ありがとうございます。
ずうずうしいついでにもうひとつ質問させてください。

今教えていただいたものをプログラムに入れてみたのですが、
どうもうまく動きません。
たぶんとても馬鹿馬鹿しいところで間違えているとは思うのですが、
どうしていいかわかりません。
もしもお気づきの点がありましたら教えてください。

ActiveChart.SetSourceData Source:=Sheets("006,007-800").Range("B14:B61"), PlotBy:=xlColumns

Range("B14:B61")のところの、B61という値を、列の最後の数にしたいのです。


>こんにちは。

>
>Range("C1").End(xlDown).Select
>MsgBox Range("C1").End(xlDown).Address(0, 0)
>MsgBox Range("C1").End(xlDown).row
>とか、
>
>[#6862]
>とか、データの状態他などによって、その時々で色々変わるけど。

【6882】Re:グラフ範囲の設定
回答  つん E-MAIL  - 03/8/8(金) 14:49 -

引用なし
パスワード
   みさっぴ さん、こんにちは
Jaka さん、横から失礼しますにゃ

>ActiveChart.SetSourceData Source:=Sheets("006,007-800").Range("B14:B61"), PlotBy:=xlColumns

えと、↑これでエラーは出てないですよね?
こっちで試してみたけど、大丈夫だったけどな・・・

>Range("B14:B61")のところの、B61という値を、列の最後の数にしたいのです。

 Range("B65536").End(xlUp).Row

これで、B列の最後の行番号が取得できるので、Cellsで指定してやればOKです。


   A = Range("B65536").End(xlUp).Row
  
   Range(Cells(14, 2), Cells(A, 2))

こんな感じで。。。
雑な回答ですんません。

【6906】Re:グラフ範囲の設定
回答  Kein  - 03/8/9(土) 21:44 -

引用なし
パスワード
   Dim ChRng As Range

With Sheets("006,007-800")
  Set ChRng = .Range("B14", .Range("B65536").End(xlUp))
End With
ActiveChart.SetSourceData Source:=ChRng

というように、変数を使ってみて下さい。
データ元のシート名に間違いがなければ、これで OK でしょう。

【6944】Re:グラフ範囲の設定
お礼  みさっぴ  - 03/8/13(水) 13:23 -

引用なし
パスワード
   こんにちは。
すぐの回答ありがとうございました。

さて、早速試してみたのですが、
どうもうまくいきませんでした。
たぶん、こちらのほうでまた簡単なところを
間違っているような気がするのですが。

せっかく答えていただいたのに活用できなくてすみません。
また教えてください。

【6945】Re:グラフ範囲の設定
お礼  みさっぴ  - 03/8/13(水) 13:26 -

引用なし
パスワード
   ▼Kein さん:
バッチリでした!
ありがとうございました。

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