Question

我正在尝试根据我加载到工作簿中的数量制作一系列动态图表。我将数据加载到一个名为Data的表中，然后将图表绘制在一个名为Plots的表中。我尝试录制一个宏来更好地理解如何做到这一点，并最终得到这样的东西。我的问题是，我希望＆＃34; =数据！$ A $ 15＆＃34;等等是一个cell.value，以便我可以使用＆＃34; i＆＃34;确定所需的系列数量。我如何优雅地做到这一点（如下表）。

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

将数据添加到图表

1 个答案: