4

行にデータがあり、そこからグラフ (x、y 散布図) を作成したいとします。

date    1.1. 1.2. 1.3. 1.4 1.5
set1    12  36  12  23  33
set2    44  22  11  1   13
set3    54  5   56  56  34
set4    1   2   6   12  33

set1、set2、および set4 を追加し、set3 を追加せずに、それらを個別に選択する必要がないようにするにはどうすればよいですか?

私ができるx範囲（日付）について

Dim xrange As Range
Set xrange = Application.InputBox("select x-range", "Get Range", Type:=8)

ただし、散布図の各シリーズには個別の範囲が必要なため、データセットに対して同じことを行う (複数の行を選択する) ことはできません。

   ActiveChart.SeriesCollection(1).XValues = xrange
   ActiveChart.SeriesCollection(1).Values = "=Sheet1!$4:$4"

しかし、複数のデータセットを選択しています。入力ボックスの選択から範囲を分割し、それらを一意の変数に書き込む方法が必要です。次に、上記の方法で xrange + 変数のペアごとに新しいシリーズを追加します。

これを行う方法はありますか？

潜在的な答えは、私が上に投稿したものに固執する必要はありません。どんな提案も大歓迎です。

4

1 に答える 1

5

ソース データの範囲を設定します。Excel が自動的にシリーズを作成します。以下の例では、列 A を X、列 B を Y1、列 D を Y2 としています。

ActiveChart.SetSourceData Source:=Range("A1:B4,D1:D4")
于 2012-04-03T23:56:22.320 に答える