Nya
 Fråga

måste rita spridning med flera serier med den första kolumnen som ger seriens namn

  Kutools för Excel
insyzygi
  insyzygi
  Söndag, 09 oktober 2022
  1 svar
  4.9K besök
0
Röster
Ångra
Jag har data med 3 kolumner. kolumn 1 är serienamn, kolumn 2 är x-värde, kolumn 3 är y-värde. Data är XY-spridningsdata. Ska jag slå samman kolumn 1 till en enda cell?

Kan jag plotta dessa data på samma diagram så att jag har flera xy-dataserier med Kutools?
Tack! Jag har precis köpt programvaran så jag letar efter hjälp.
0
äldsta först  
Amanda Lee
Amanda Lee
1 år sedan
·
#3127
0
Röster
Ångra
Hej där,

Vi har skapat en VBA-kod, vänligen infoga den i en modul och kontrollera om det är vad du behöver:
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

När du har kopierat och klistrat in koden ovan trycker du på F5 för att köra koden. Och en dialogruta dyker upp som ber dig att välja de tre kolumnerna.

Om du har några frågor, tveka inte att fråga mig.

Amanda
  • Sida:
  • 1
Det finns inga svar på det här inlägget än.