將數據添加到圖表

Question

我想根據已加載到工作簿中的數量製作一系列動態圖表。我將數據加載到一張名爲「數據」的工作表中，並將圖表繪製在一張名爲「繪圖」的工作表中。我試着錄製一個宏，以更好地理解如何做到這一點，並最終得到了這樣的結果。我的問題是，我想「= Data！$ A $ 15」等是一個cell.value，所以我可以使用「我」來確定所需的系列數。我如何優雅地做到這一點（如下圖）。

Do Until i = LotAmount 
ActiveChart.SeriesCollection.NewSeries 
ActiveChart.FullSeriesCollection(i).Name = "=Data!$A$15" 
ActiveChart.FullSeriesCollection(i).XValues = "=Data!$B$7:$F$7" 
ActiveChart.FullSeriesCollection(i).Values = "=Data!$B$15:$F$15" 
i = i + 1 
Loop 

我希望你能幫助我:)

問候

朗尼

Answer 1

不知道什麼是你的行數，i之間的delvat值，但是你可以使用類似代碼如下：

With ActiveChart 
    Do Until i = LotAmount 
     .SeriesCollection.NewSeries 
     .SeriesCollection(i).Name = Sheets("Data").Range("A" & i) 
     .SeriesCollection(i).XValues = Sheets("Data").Range("B7:F7") 
     .SeriesCollection(i).Values = Sheets("Data").Range("B" & i & ":F" & i) 
     i = i + 1 
    Loop 
End With