3

したがって、基本的に、この方法を使用してグラフを作成するには、最後の行を選択できる必要があります。

Sub createchart2()
    lastA = Range("A1").End(xlDown).Row
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range("Main!$A$3:$A$10")
End Sub

A10A列の最後の行を選択できるようにするための範囲が必要です。

4

1 に答える 1

3

これはあなたがしようとしていることですか？

Sub createchart2()
    Dim lastA As Long

    lastA = Range("A" & Rows.Count).End(xlUp).Row

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine

    ActiveChart.SetSourceData Source:=Range("Main!$A$3:$A$" & lastA)
End Sub
于 2012-05-29T03:33:22.483 に答える