Nowości
 Kwestia

trzeba wykreślić rozrzut z wieloma seriami z pierwszą kolumną podającą nazwę serii

  Kutools dla programu Excel
insyzygia
  insyzygia
  Niedziela, 09 Październik 2022
  1 Odpowiedzi
  5 tys. Wizyt
0
Głosów
odpiąć
Mam dane z 3 kolumnami. kolumna 1 to nazwa serii, kolumna 2 to wartość x, kolumna 3 to wartość y. Dane to dane rozproszone XY. Czy powinienem scalić kolumnę 1 z pojedynczą komórką?

Czy mogę wykreślić te dane na tym samym wykresie, aby mieć wiele serii danych xy za pomocą Kutools?
Dziękuję! Właśnie kupiłem oprogramowanie, więc szukam pomocy.
0
najstarsze  
Amanda Lee
Amanda Lee
1 lat temu
·
#3127
0
Głosów
odpiąć
Witam,

Stworzyliśmy kod VBA, wstaw go do modułu i sprawdź, czy tego potrzebujesz:
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

Po skopiowaniu i wklejeniu powyższego kodu naciśnij klawisz F5, aby uruchomić kod. Pojawi się okno dialogowe z prośbą o wybranie trzech kolumn.

Jeśli masz jakieś pytania, nie wahaj się zapytać mnie.

Amanda
  • Strony:
  • 1
Nie ma jeszcze odpowiedzi na ten post.