Excel VBA質問箱 IV

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

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


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

【20012】散布図のデータ範囲の指定について アウ 04/11/23(火) 13:47 質問[未読]
【20015】Re:散布図のデータ範囲の指定について Kein 04/11/23(火) 20:02 回答[未読]
【20017】Re:散布図のデータ範囲の指定について アウ 04/11/23(火) 22:23 質問[未読]
【20018】Re:散布図のデータ範囲の指定について Kein 04/11/23(火) 23:35 回答[未読]
【20021】Re:散布図のデータ範囲の指定について アウ 04/11/24(水) 2:01 お礼[未読]

【20012】散布図のデータ範囲の指定について
質問  アウ  - 04/11/23(火) 13:47 -

引用なし
パスワード
   グラフの形式を散布図にした場合の質問です。
データ範囲指定において、cellsプロパティの引数に数値変数を用いた場合、一つの範囲を指定することはできるのですが、複数の範囲が指定できません。これを可能にする方法はあるのでしょうか?

【20015】Re:散布図のデータ範囲の指定について
回答  Kein  - 04/11/23(火) 20:02 -

引用なし
パスワード
   With Sheets("Sheet1")
  Set PltR = .Range(.Cells(x, 1), .Cells(y, 3))
End With

のようにすれば、行も列も数値の変数を使えます。

【20017】Re:散布図のデータ範囲の指定について
質問  アウ  - 04/11/23(火) 22:23 -

引用なし
パスワード
   ▼Kein さん:
>With Sheets("Sheet1")
>  Set PltR = .Range(.Cells(x, 1), .Cells(y, 3))
>End With
>
>のようにすれば、行も列も数値の変数を使えます。

 ご返答ありがとうございます。
ただ、これですと複数のセルは選択できますが連続した一つの範囲になりますよね。手動の場合、散布図においてのデータ指定では、連続してない複数の範囲も指定できるはずなんですが。cellsを使用する以上、数値変数を用いながら複数のデータ範囲を指定することは不可能なのでしょうか?

【20018】Re:散布図のデータ範囲の指定について
回答  Kein  - 04/11/23(火) 23:35 -

引用なし
パスワード
   >数値変数を用いながら複数のデータ範囲を指定
これは具体的にどんなことをしたいのでしょーか ?
連続していないセル範囲なら、Union メソッドをつかいますが、領域の数が多いなら
別のやり方にした方がよいでしょう。例えば A1:A3, A7, A10:A12, A15 が項目軸に
なるとして、その隣のB列の値を数値軸にプロットする場合、項目の範囲をループ
しながら2つの配列を作ります。

Dim XVary() As Long, Vary() As Long, i As Long
Dim C As Range

For Each C In Range("A1:A3, A7, A10:A12, A15")
  ReDim Preserve XVary(i): XVary(i) = C.Value
  ReDim Preserve Vary(i): Vary(i) = C.Offset(, 1).Value
  i = i + 1
Next
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection.NewSeries
  .XValues = XVary
  .Values = Vary
End With
Erase XVary, Vary

このような方法もある、という一例です。

【20021】Re:散布図のデータ範囲の指定について
お礼  アウ  - 04/11/24(水) 2:01 -

引用なし
パスワード
   ▼Kein さん:
>連続していないセル範囲なら、Union メソッドをつかいます

またまたご返答ありがとうございます。
さまざまなグラフを作成しているのですが、与えられるデータの並び方が一定なので、場合によっては連続でないデータ範囲指定をしたいと考えていました。
Unionメソッドなども知らない初心者ですが、今回のご返答で勉強すべきところが見えてきた感じがします。
また機会があればよろしくお願いします。

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