Как включить относительные ссылки в VBA Macro

Question

Я пытаюсь создать 400 диаграмм, по одной для каждого ученика в моей школе.данные для цикла устанавливаются в столбцах A..E с метками данных в строке 1, а затем данные для каждого учащегося появляются в последовательных строках (2-400)

Я создал для / следующийцикл, который проходит по каждой строке данных и создает радарный график (используя определенный пользователем график с именем 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 для каждого учащегося.Как добавить новую серию в строку, которая начинается (Active.chart.setsourceData Source ...)

Answer 1

это было очень полезно и заставило меня задуматься.В конечном итоге я получил его, используя следующий код

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 = Sheets ("Sheet1"). Range ("Aq" & num) ActiveChart.SeriesCollection (2) .Values ​​=Sheets ("Sheet1"). Range ("I" & num & ": L" & num)

Обратите внимание, что "AM", "b", "e", "aq", "i" и«L» - столбцы, в которых находятся данные.

Я бы никогда не получил его без твоей помощи.спасибо.

Answer 2

После создания графика добавьте следующие строки

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

НТН!