Question

我正在尝试创建一个宏，每次用户输入新数据时都会自动将一个系列添加到图表中（我将把它合并到另一个宏中）。我希望Series值引用另一个工作表中的最后一行数据。我有一个工作宏，它引用另一个工作表中的固定单元格，但不太确定如何将单元格（Lr，“B”）合并到另一个工作表中。

我想它应该是一个快速修复，但似乎无法实现它。

我能够让它引用同一张表中的最后一行，但不能引用另一张表中的最后一行。

Sub addSrs()

Application.ScreenUpdating = False

Sheets("User Interface").Select
Dim Lr As Integer
Lr = Range("A" & Rows.Count).End(xlUp).Row 'Searching last row in column A

Worksheets("User Interface").ChartObjects(1).Activate

With ActiveChart.SeriesCollection.NewSeries
    .Name = ActiveSheet.Cells(Lr, "A")
    .Values = ActiveSheet.Cells(Lr, "B")
    .XValues = ActiveSheet.Cells(Lr, "C")
End With

End Sub

到目前为止我所拥有的：

Sub addSrs1()

Application.ScreenUpdating = False

'*******Commented out as does not have use yet...*******
'Sheets("Location Coordinates").Select
'Dim Lr As Integer
'Lr = Range("B" & Rows.Count).End(xlUp).Row
'*******Commented out as does not have use yet...*******

Sheets("User Interface").Select

ActiveSheet.ChartObjects("Chart 11").Activate
    With ActiveChart.SeriesCollection.NewSeries
        .Name = "='Location Coordinates'!$B$21"
        .Values = "='Location Coordinates'!$K$21"
        .XValues = "='Location Coordinates'!$J$21"
    End With
End Sub

有什么建议吗？

由于

添加最后一行数据的系列

0 个答案: