Как использовать переменную в диапазоне для построения графика?

Question

Я хочу цикл построения графика с помощью этого кода:

1 For i = 354 To 357 

2 Range((Cells(208, 353)), Cells(219, 353)).Select 
3 Range(Cells(208, i), Cells(219, i)).Select 

4 ActiveSheet.Shapes.AddChart.Select 
5 ActiveChart.ChartType = xlColumnClustered 
6 ' ActiveChart.SetSourceData Source:=Range("Sheet2!Cells(208,354):Cells(219,354)") 
7 ActiveChart.Axes(xlValue).MajorGridlines.Select 
8 Application.WindowState = xlMaximized 
9 ActiveChart.ApplyLayout (9) 

10 Next i 
11 End Sub 

Однако есть ошибка времени выполнения в строке 6, может кто-нибудь помочь, пожалуйста?

Приветствия

Answer 1

В проблемной линии вам необходимо установить правильную ссылку на лист и диапазон ячеек. Поэтому эта строка кода должна выглядеть так:

ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range(Cells(208,354),Cells(219,354))