상대 참조를 VBA 매크로에 통합하는 방법

Question

내 학교의 각 학생에 대해 하나씩 400 개의 차트를 만들려고합니다. 루프의 데이터는 열 A..E에 행 1의 데이터 레이블로 설정된 다음 연속적인 행 (2-400)에 나타나는 각 학생의 데이터로 설정됩니다.

for/next 루프를 작성했습니다. 각 데이터 행을 단계별로 진행하고 각 학생에 대해 레이더 그래프를 만듭니다 (CR3이라는 사용자 정의 그래프 사용).

For num = 3 To 400 
Range("A1:E1").Select 
    ActiveCell.Offset(num, 0).Range("A1").Activate 
Charts.Add 
ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:= _ 
    "CR3" 
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:E1,A" & num & ":E" & num,) 
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1 

이제 그래프에 새로운 일련의 정보를 추가하려고합니다. 새로운 정보는 각 학생의 H에서 L 열에 나타납니다. 어떻게 그래프를 생성 한 후

Answer 1

(... Active.chart.setsourceData 소스) 내가 시작하는 행에 새 계열을 추가 할

ActiveChart.SeriesCollection.NewSeries 
ActiveChart.SeriesCollection(2).Name = "=""Series 2 Name""" 
ActiveChart.SeriesCollection(2).Values = "='Sheet1'!$B$1:$B$6" 

HTH 다음 줄을 추가!

Answer 2

매우 도움이되었고 나에게 생각이 옮겨졌습니다. 내가 궁극적으로 다음 코드를 사용하여 그것을 가지고

ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:= _ 
    "CR3"   
ActiveChart.SeriesCollection.NewSeries 
ActiveChart.SeriesCollection(1).Name = Sheets("Sheet1").Range("Am" & num) 
ActiveChart.SeriesCollection(1).Values = Sheets("Sheet1").Range("b" & num & ":e" & num) 

ActiveChart.SeriesCollection (2) .NAME = 시트 ("Sheet1의"). 범위 ("AQ를"& NUM) ActiveChart.SeriesCollection (2) .Values ​​= 시트 ("Sheet1의") 범위 ("I"& NUM & "L"& NUM).

참고 "AM", "B", "E", "AQ", "I"와 "L" 데이터가있는 열입니다.

나는 당신의 도움없이 결코 그것을 얻을 수 없었습니다. 감사.