Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6125 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【46977】散布図の作成（行列を数値で指定） はぴー 07/2/23(金) 22:48 質問[未読]
【46979】Re:散布図の作成（行列を数値で指定） Kein 07/2/23(金) 23:33 回答[未読]
【47065】Re:散布図の作成（行列を数値で指定） べりー 07/2/27(火) 21:48 お礼[未読]
【46977】散布図の作成（行列を数値で指定）
質問  はぴー  - 07/2/23(金) 22:48 -
引用なし
パスワード
   散布図を作成しようとしています。
離れた列にデータはあります。（Ｘ：Ｃ列、Ｙ：Ａ列）

Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:　_
=Sheets("Sheet1").Range("C1:C100,A1:A100"), PlotBy:= xlColumns

ここで、現在は仮に1行〜100行としているのですが、
この行数が変化します。
よって、行を指定に変数を入れられるようにしたいのですが、
Range(Range(Cells(1,3),Cells(100,3)),Range(Cells(1,1),Cells(100,1)))
などとしてもエラーが出てしまいます。

Cellsのちゃんとした使い方ができていないのかもしれません。
よろしくお願いいたします。
【46979】Re:散布図の作成（行列を数値で指定）
回答  Kein  - 07/2/23(金) 23:33 -
引用なし
パスワード
   SetSourceData の引数には、なるべく変数を渡すようにすると良いと思います。
例えば

Dim xRow As Long
Dim MyR As Range

With Sheets("Sheet1")
　 xRow = .Range("A65536").End(xlUp).Row
　 Set MyR = Union(.Range("A1:A" & xRow), .Range("C1:C" & xRow))
End With
With Charts.Add
　 .ChartType = xlXYScatter
　 .SetSourceData Source:=MyR, PlotBy:= xlColumns
End With
Set MyR = Nothing　　
【47065】Re:散布図の作成（行列を数値で指定）
お礼  べりー  - 07/2/27(火) 21:48 -
引用なし
パスワード
   Kein さん、こんばんは。
回答ありがとうございます！

>SetSourceData の引数には、なるべく変数を渡すようにすると良いと思います。

変数渡しの方法の存在は知っていたのですが、
最初に一度つまづいてから使用していませんでした。
ご紹介のコードを参考に使用したところ、
作成したかった散布図の作成ができました。
ありがとうございました（＾＾）
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6125 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free