これは私のコードでエクセル

Question

でマクロを持つ複数のデータ系列をploting：X値が列「I」である

Dim i As Integer 
Dim names1 As String 
Dim names2 As String 
Dim names3 As String 


ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select 
For i = 1 To 1 

    names1 = Cells(2, i + 1).Address 
    names2 = Range(Cells(3, i), Cells(85, i)).Address 
    names3 = Range(Cells(3, i + 1), Cells(85, i + 1)).Address 

    ActiveChart.SeriesCollection.NewSeries 
    ActiveChart.FullSeriesCollection(1).Name = "=Sheet3!" & names1 
    ActiveChart.FullSeriesCollection(1).XValues = "=Sheet3!" & names2 
    ActiveChart.FullSeriesCollection(1).Values = "=Sheet3!" & names3 

Next i 

は、Yの値は、今私はすべての中で考える 欄に「I + 1」であり、ループすると、既存のプロットが削除され、新しいプロットが描画されます。お互いにプロットを積み重ねるために何を追加するのですか？

Answer 1

（コードのコメント内の説明）以下のコードを試してみてください。

Option Explicit 

Sub PlotMultiSeries() 

Dim i   As Long 
Dim names1  As String 
Dim names2  As String 
Dim names3  As String 
Dim MyCht  As Shape 
Dim Ser   As Series 

' axccording to your code, you are using "Sheet3" , fully qualify all your Ranges and Cells 
With Worksheets("Sheet3") 

    ' set the created Chart to a Shape variable 
    Set MyCht = .Shapes.AddChart2(Style:=240, XlChartType:=xlXYScatterSmooth) 

    For i = 1 To 1 ' your i loop is from 1 To 1 ??? 
     names1 = .Cells(2, i + 1).Address(False, False, xlA1, True) 
     names2 = .Range(.Cells(3, i), .Cells(85, i)).Address(False, False, xlA1, True) 
     names3 = .Range(.Cells(3, i + 1), .Cells(85, i + 1)).Address(False, False, xlA1, True) 

     With MyCht 
      ' add a new series 
      Set Ser = .Chart.SeriesCollection.NewSeries 
      ' define new Series properties 
      With Ser 
       .Name = "=" & names1 
       .XValues = "=" & names2 
       .Values = "=" & names3 
      End With 
     End With 
    Next i 
End With