New
 Problema

è necessario tracciare la dispersione con più serie con la prima colonna che fornisce il nome della serie

  Kutools for Excel
insizigia
  insizigia
  Domenica, 09 ottobre 2022
  1 Risposte
  4.9K visite
0
voti
Disfare
Ho dati con 3 colonne. la colonna 1 è il nome della serie, la colonna 2 è il valore x, la colonna 3 è il valore y. I dati sono dati a dispersione XY. Devo unire la colonna 1 in una singola cella?

Posso tracciare questi dati sullo stesso grafico in modo da avere più serie di dati xy usando Kutools?
Grazie! Ho appena acquistato il software quindi cerco assistenza.
0
Prima i più vecchi  
Amanda Lee
Amanda Lee
1 anno fa
·
#3127
0
voti
Disfare
Hi there,

Abbiamo creato un codice VBA, inseriscilo in un modulo e controlla se è quello che ti serve:
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

Dopo aver copiato e incollato il codice sopra, premere F5 per eseguire il codice. E apparirà una finestra di dialogo che ti chiederà di selezionare le tre colonne.

Se avete domande, non esitate a chiedermelo.

Amanda
  • Pagina :
  • 1
Non ci sono ancora risposte per questo post.