VBA：グラフのシリーズを作成する

Question

私は2つの異なるシリーズを作成しようとしていますが、マクロを実行すると、2番目のシリーズは残念ながら最初のシリーズを上書きし続けます。最終的には、私のチャートには2番目のシリーズしかありません。誰も助けることができますか？

 With ChtObj 
    'Series LTU 
     Set Ser = .Chart.SeriesCollection.NewSeries  
     With Ser 
     .Name = "=" & Dataws.Cells(CurrentRow, 1).Address(False, False, xlA1, xlExternal) 
     .XValues = "=" & Dataws.Cells(CurrentRow, 3).Address(False, False, xlA1, xlExternal) 
     .Values = "=" & Dataws.Cells(CurrentRow, 4).Address(False, False, xlA1, xlExternal) 
     End With 
    'Series LTA 
     With Ser 
     .Name = "LTA_" & Dataws.Cells(CurrentRow, 1) 
     .XValues = "=" & Dataws.Cells(CurrentRow, 3).Address(False, False, xlA1, xlExternal) & "," & Dataws.Range(Dataws.Cells(CurrentRow, 14), Dataws.Cells(CurrentRow, 22)).Address(False, False, xlA1, xlExternal) 
     .Values = "=" & Dataws.Cells(CurrentRow, 4).Address(False, False, xlA1, xlExternal) & "," & Dataws.Range(Dataws.Cells(CurrentRow, 42), Dataws.Cells(CurrentRow, 50)).Address(False, False, xlA1, xlExternal) 
     End With 
    End With 

ありがとうございます！

Answer 1

問題は同じSerを使用しているため、これが置き換えられます。

With ChtObj 

    Set Ser = .Chart.SeriesCollection.NewSeries 

    With Ser 
    .Name = "=" & Dataws.Cells(CurrentRow, 1).Address(False, False, xlA1, xlExternal) 
    .XValues = "=" & Dataws.Cells(CurrentRow, 3).Address(False, False, xlA1, xlExternal) 
    .Values = "=" & Dataws.Cells(CurrentRow, 4).Address(False, False, xlA1, xlExternal) 
    End With 
'Series LTA 

    Set Ser = .Chart.SeriesCollection.NewSeries 
    With Ser 
    .Name = "LTA_" & Dataws.Cells(CurrentRow, 1) 
    .XValues = "=" & Dataws.Cells(CurrentRow, 3).Address(False, False, xlA1, xlExternal) & "," & Dataws.Range(Dataws.Cells(CurrentRow, 14), Dataws.Cells(CurrentRow, 22)).Address(False, False, xlA1, xlExternal) 
    .Values = "=" & Dataws.Cells(CurrentRow, 4).Address(False, False, xlA1, xlExternal) & "," & Dataws.Range(Dataws.Cells(CurrentRow, 42), Dataws.Cells(CurrentRow, 50)).Address(False, False, xlA1, xlExternal) 
    End With 
End With 

新しいシリーズを再度定義するか、Series2に別の名前を使用してみてください。