Novo
 Questão

precisa plotar a dispersão com várias séries com a primeira coluna dando o nome da série

  Kutools for Excel
insizígia
  insizígia
  Domingo, 09 2022 outubro
  1 Respostas
  4.9 mil visitas
0
Votos
desfazer
Eu tenho dados com 3 colunas. a coluna 1 é o nome da série, a coluna 2 é o valor x, a coluna 3 é o valor y. Os dados são dados de dispersão XY. Devo mesclar a coluna 1 em uma única célula?

Posso plotar esses dados no mesmo gráfico para ter várias séries de dados xy usando Kutools?
Obrigado! Acabei de comprar o software e estou procurando ajuda.
0
Mais velhos primeiro  
Amanda Lee
Amanda Lee
1 ano atrás
·
#3127
0
Votos
desfazer
Oi lá,

Criamos um código VBA, insira-o em um módulo e verifique se é isso que você precisa:
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

Depois de copiar e colar o código acima, pressione F5 para executar o código. E uma caixa de diálogo aparecerá pedindo que você selecione as três colunas.

Se você tiver alguma dúvida, por favor, não hesite em me perguntar.

Amanda
  • Página :
  • 1
Ainda não há respostas para esta postagem.