Nuevo
 Inconveniente

necesita trazar la dispersión con múltiples series con la primera columna dando el nombre de la serie

  Kutools for Excel
Insyzygy
  Insyzygy
  Domingo, octubre 09 2022
  1 Respuestas
  4.9K visitas
0
Votos
deshacer
Tengo datos con 3 columnas. la columna 1 es el nombre de la serie, la columna 2 es el valor x, la columna 3 es el valor y. Los datos son datos de dispersión XY. ¿Debo fusionar la columna 1 en una sola celda?

¿Puedo trazar estos datos en el mismo gráfico para tener múltiples series de datos xy usando Kutools?
¡Gracias! Acabo de comprar el software, así que estoy buscando ayuda.
0
Los más viejos primero  
Amanda Lee
Amanda Lee
Hace años 1
·
#3127
0
Votos
deshacer
Hola,

Hemos creado un código VBA, insértelo en un módulo y verifique si eso es lo que necesita:
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

Después de copiar y pegar el código anterior, presione F5 para ejecutar el código. Y aparecerá un cuadro de diálogo pidiéndole que seleccione las tres columnas.

Si tiene alguna pregunta, por favor no dude en preguntarme.

Amanda
  • De la página:
  • 1
Aún no hay respuestas para esta publicación.