|
こんばんは。
グラフのデータ範囲指定を汎用性を持たせたいと思い、マクロ中でコメントアウトしてある部分をFor文で処理したいのですが、コンパイルエラーが出ます。どうかアドバイスをお願いします。
・データ範囲はB2:D20→E2:G20→H2:J20→K2:M20。(step2? step3?)
Sub Macro2()
'
' Macro2 Macro
'
'
Dim i As Long
Dim j As Long
i = 0
For i = 2 To 13 Step 2
Range(Cells(A2, A20), Cells((0 + i), 2), ((2 + i)), 20)).Select →ここでコンパイルエラー
Range("B2").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$2:$A$20,Sheet1!$B$2:$D$20" _
)
ActiveChart.ChartType = xlLineMarkers
' Range("A2:A20,B2:D20").Select
' Range("E2").Activate
' ActiveSheet.Shapes.AddChart.Select
' ActiveChart.SetSourceData Source:=Range("Sheet1!$A$2:$A$20,Sheet1!$B$2:$D$20" _
' )
' Range("A2:A20,E2:G20").Select
' Range("E2").Activate
' ActiveSheet.Shapes.AddChart.Select
' ActiveChart.SetSourceData Source:=Range("Sheet1!$A$2:$A$20,Sheet1!$E$2:$G$20" _
' )
' ActiveChart.ChartType = xlLineMarkers
' Range("A2:A20,H2:J20").Select
' Range("H2").Activate
' ActiveSheet.Shapes.AddChart.Select
' ActiveChart.SetSourceData Source:=Range("Sheet1!$A$2:$A$20,Sheet1!$H$2:$J$20" _
' )
' ActiveChart.ChartType = xlLineMarkers
' Range("A2:A20,K2:M20").Select
' Range("K2").Activate
' ActiveSheet.Shapes.AddChart.Select
' ActiveChart.SetSourceData Source:=Range("Sheet1!$A$2:$A$20,Sheet1!$K$2:$M$20" _
' )
' ActiveChart.ChartType = xlLineMarkers
Next i
End Sub
|
|