Ny
 Issue

skal plotte scatter med flere serier med første kolonne, der giver seriens navn

  Kutools til Excel
insyzygi
  insyzygi
  Søndag 09 oktober 2022
  1 Svar
  5K besøg
0
Stemmer
Fortryd
Jeg har data med 3 kolonner. kolonne 1 er serienavn, kolonne 2 er x-værdi, kolonne 3 er y-værdi. Data er XY-spredningsdata. Skal jeg flette kolonne 1 til en enkelt celle?

Kan jeg plotte disse data på samme diagram, så jeg har flere xy-dataserier ved hjælp af Kutools?
Tak! Jeg har lige købt softwaren, så jeg leder efter hjælp.
0
Ældste først  
Amanda Lee
Amanda Lee
1 år siden
·
#3127
0
Stemmer
Fortryd
Hej der,

Vi har oprettet en VBA-kode, indsæt den i et modul og tjek om det er det du har brug for:
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 kopieret og indsat koden ovenfor, skal du trykke på F5 for at køre koden. Og en dialogboks vil poppe op, der beder dig om at vælge de tre kolonner.

Hvis du har spørgsmål, så tøv ikke med at spørge mig.

Amanda
  • Side:
  • 1
Der er endnu ingen svar på dette indlæg.