VBA 別シートデータ出力

Question

VBAでシートから値を読み取り、読み取ったデータを別のシートでグラフとして表示したいのですが、グラフは作成できたのですが、値が入っていないグラフが作成されてしまいました。

不勉強で申し訳ないのですが、コードの修正をお願いできますでしょうか。
申し訳ございませんが宜しくお願い致します。

'ループカウンター用
 Dim i  As Long
 'グラフ作成用
 Dim r1 As Range
 'グラフ作成用
 Dim r As Range

 'ワークシート用変数
 Dim ws As Worksheet


'最終行
Dim EndRow As Long
'最終列
 Dim EndCol As Long

'グラフシートが既にあれば、削除する
For Each ws In Worksheets
        If ws.Name = "graph" Then
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
            Exit For
        End If
Next ws


'グラフシート作成
Worksheets.Add
ActiveSheet.Name = "graph"

Sheets("data").Activate

'最終列取得
EndCol = Cells(2, Columns.Count).End(xlToLeft).Column

'グフラ作成
For i = 2 To EndCol
   Sheets("graph").Activate
    With ActiveSheet.Shapes.AddChart.Chart
        .ChartType = xlLine
        .SetSourceData Source:=Union(Range(Range("A2"), Cells(Rows.Count, 1).End(xlUp)), _
                      Range((Cells(2, i)), Cells(Rows.Count, i).End(xlUp)))
　　　　
        'グラフ位置
        .Parent.Top = Range("B" & ((i - 2) * 15 + 1)).Top
        .Parent.Left = Range("B" & ((i - 2) * 100 + 1)).Lef

                'データラベル追加
        If Sheets("linegraph_create").CheckBox1.Value = True Then
            .SetElement (msoElementDataLabelTop)
        End If
        '凡例追加
        If Sheets("linegraph_create").CheckBox2.Value = True Then
            .HasLegend = True
        End If
    End With   
Next i



MsgBox "完了しました"

End Sub





コード

Answer 1

とりあえず元データがあるシートを

    Dim dataSheet As Worksheet
    Set dataSheet = Sheets("linegraph_create")

とでもしておいて、以降に出てくるRange や Cells をひたすら
dataSheet.Range や dataSheet.Cells に変えてみるといいかもしれません。

Comments

[tamura0425]

ご指導ありがとうございました。

[tamura0425]

ご助力ありがとうございました。