VBA를 사용하여 Excel 차트에 여러 데이터 계열 추가

Question

데이터를 행으로 가정하고 차트 (x, y scatter)를 만들고 싶다고 가정합니다.

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하지를 추가 할 수 있습니까?

내가

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

을 할 수있는 X-범위 (날짜)에 대한

하지만 작동하지 않습니다 데이터 세트 (여러 행의 선택)에 대해 같은 일을하는 것은 산포도의 각 시리즈는 개인을 필요로하기 때문에 범위

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

그러나 여러 데이터 세트를 선택했습니다. 입력 상자 선택에서 범위를 분할하고 고유 한 변수에 값을 쓸 수있는 방법이 필요합니다. 그런 다음 위의 방법으로 각 xrange + 변수 쌍에 새로운 계열을 추가합니다.

방법이 있나요?

위의 게시물에 철저히 대답 할 필요가 없으므로 언제든지 환영합니다.

Answer 1

소스 데이터 범위를 설정하십시오. Excel이 자동으로 시리즈를 만듭니다. 아래의 예제에서 나는 컬럼 A를 X, 컬럼 B를 Y1, 컬럼 D를 Y2라고합니다.

ActiveChart.SetSourceData Source:=Range("A1:B4,D1:D4")