Sie müssen die Streuung mit mehreren Serien darstellen, wobei die erste Spalte den Seriennamen angibt

Hallo,

Wir haben einen VBA-Code erstellt, bitte fügen Sie diesen in ein Modul ein und prüfen Sie, ob Sie ihn benötigen:

Sub KutoolsChart()

'

' CSH

'

    Dim xRg As Range

    Dim i As Integer

    On Error Resume Next

    Set xRg = Application.InputBox(prompt:="Please select Range", Title:="Kutools for Excel", Type:=8)

    If TypeName(xRg) = "Nothing" Then Exit Sub

    If xRg.Columns.Count <> 3 Then

        MsgBox ("Reference is not Valid")

        Exit Sub

    End If

    ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select

    

    For i = 1 To xRg.Rows.Count

        ActiveChart.SeriesCollection.NewSeries

        ActiveChart.FullSeriesCollection(i).Name = xRg.Cells(i, 1).Value

        ActiveChart.FullSeriesCollection(i).XValues = xRg.Cells(i, 2)

        ActiveChart.FullSeriesCollection(i).Values = xRg.Cells(i, 3)

        ActiveChart.FullSeriesCollection(i).ApplyDataLabels

        ActiveChart.FullSeriesCollection(i).DataLabels.Select

        ActiveChart.FullSeriesCollection(i).DataLabels.ShowValue = False

        ActiveChart.FullSeriesCollection(i).HasLeaderLines = False

        ActiveChart.FullSeriesCollection(i).DataLabels.ShowSeriesName = True

    Next

End Sub

Nachdem Sie den obigen Code kopiert und eingefügt haben, drücken Sie F5, um den Code auszuführen. Und ein Dialogfeld wird angezeigt, in dem Sie aufgefordert werden, die drei Spalten auszuwählen.

Wenn Sie Fragen haben, zögern Sie bitte nicht, mich zu fragen.

Amandas