Excel VBA質問箱 IV

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

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


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

【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 さん:

お礼が遅れましたが、
ありがとうございます。

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