Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23340 / 76738 ←次へ | 前へ→

【58767】グラフのデータ範囲
質問  基礎勉強中  - 08/11/8(土) 1:15 -

引用なし
パスワード
   こんばんは。
グラフのデータ範囲指定を汎用性を持たせたいと思い、マクロ中でコメントアウトしてある部分を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
0 hits

【58767】グラフのデータ範囲 基礎勉強中 08/11/8(土) 1:15 質問
【58768】Re:グラフのデータ範囲 りん 08/11/8(土) 9:27 回答
【58769】Re:グラフのデータ範囲 ponpon 08/11/8(土) 9:31 発言
【58770】Re:グラフのデータ範囲 kanabun 08/11/8(土) 9:46 発言
【58772】Re:グラフのデータ範囲 基礎勉強中 08/11/8(土) 20:10 お礼

23340 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free