Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9981 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【24425】折れ線グラフ作成について あいんすと 05/4/21(木) 22:34 質問[未読]
【24427】Re:折れ線グラフ作成について ponpon 05/4/21(木) 22:55 発言[未読]
【24494】Re:折れ線グラフ作成について あいんすと 05/4/23(土) 9:59 質問[未読]
【24505】Re:折れ線グラフ作成について Kein 05/4/23(土) 16:41 発言[未読]
【24558】Re:折れ線グラフ作成について あいんすと 05/4/26(火) 0:59 お礼[未読]
【24425】折れ線グラフ作成について
質問  あいんすと  - 05/4/21(木) 22:34 -
引用なし
パスワード
   データをまとめるマクロを作成したのですが、
それを折れ線グラフにしたいのですが、
ヘッダー部は同じなのですが、データ範囲がランダムであるため、
Range("○:○")が使えなくて
Range(cells(i1,j1),cells(i2,j2))を使ったらエラーが出てしまいました。


データの構成は以下の通りです。

　　|　 A　　 |　 B　　|　 C　　|　･･･　
　　| Time[s] | Label1 | Label2 |　･･･　|　　|
1　 |　-0.3　 |　 0　　|　 2　　|　･･･　|　　|
2　 |　-0.2　 |　 2　　|　 3　　|　･･･　|　　|
3　 |　-0.1　 |　 4　　|　 1　　|　･･･　|　　|
･　　　　･　　　　･　　　　･　
･　　　　･　　　　･　　　　･　　　　
X　 |　 1.0　 |　 2　　|　 1　　|　･･･　|　　|
　　|　　　　 |　　　　|　　　　|　･･･　|　　|

X軸を時間軸として、新しいシートにLabel1,2を系列してグラフに
したいですが、出来ますでしょうか？
【24427】Re:折れ線グラフ作成について
発言  ponpon  - 05/4/21(木) 22:55 -
引用なし
パスワード
   こんばんは。
わたしは、Unionを使って解決したことがあります。
.SetSourceData Source:=Union(Range(Cells(2, 3), Cells(2, 8)), _
Range(Cells(i, 3), Cells(i, 8)))　のように。
もっとスマートな方法があるかもしれません。
違う意味でしたらすみません。
【24494】Re:折れ線グラフ作成について
質問  あいんすと  - 05/4/23(土) 9:59 -
引用なし
パスワード
   ▼ponpon さん：
>こんばんは。
>わたしは、Unionを使って解決したことがあります。
>.SetSourceData Source:=Union(Range(Cells(2, 3), Cells(2, 8)), _
>Range(Cells(i, 3), Cells(i, 8)))　のように。

サンプルで書いたデータ範囲とは異なりますが、

Worksheets(Graph_Data)･･･データのあるシート
Data_Width, Data_N･･･データの範囲をDo ･･･Loopで検索した行と列

.SetSourceData Source = Worksheets(Graph_Data).Range(cells(5,1), _
Cells(Data_Width, Data_N)).Formula, PloBy:= xlColumns

コレですとエラーが出るので、Unionを使うにはどうしたらよいですか？
【24505】Re:折れ線グラフ作成について
発言  Kein  - 05/4/23(土) 16:41 -
引用なし
パスワード
   ▼あいんすと さん：
>コレですとエラーが出るので
Unionメソッドが必要かどうかはっきりしませんが、少なくともこんなふうにしないと
エラーになるのは目に見えています。

Dim PltR As Range

With Worksheets(Graph_Data)
　 Set PltR = .Range(.Cells(5, 1), .Cells(Data_Width, Data_N))
End With
ActiveChart.SetSourceData Source:=PltR, PloBy:=xlColumns

違いが分かりますか ? 何箇所かありますが・・。
【24558】Re:折れ線グラフ作成について
お礼  あいんすと  - 05/4/26(火) 0:59 -
引用なし
パスワード
   ▼Kein さん：

お礼が遅れましたが、
ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9981 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free