Novo
 rezultat

je treba narisati razpršenost z več serijami, pri čemer je v prvem stolpcu navedeno ime serije

  Kutools za Excel
insyzygy
  insyzygy
  Nedelja, 09 oktober 2022
  1 odgovori
  4.7 tisoč obiskov
0
Glasov
Razveljavi
Imam podatke s 3 stolpci. stolpec 1 je ime serije, stolpec 2 je vrednost x, stolpec 3 je vrednost y. Podatki so razpršeni podatki XY. Ali naj stolpec 1 združim z eno celico?

Ali lahko te podatke narišem na istem grafikonu, tako da imam več serij podatkov xy z uporabo Kutools?
hvala Pravkar sem kupil programsko opremo, zato iščem pomoč.
0
Najprej najstarejše Najprej  
Amanda Lee
Amanda Lee
1 letom
·
#3127
0
Glasov
Razveljavi
Zdravo,

Ustvarili smo kodo VBA, vstavite jo v modul in preverite, ali je to tisto, kar potrebujete:
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

Ko kopirate in prilepite zgornjo kodo, pritisnite F5, da zaženete kodo. Pojavilo se bo pogovorno okno, v katerem boste morali izbrati tri stolpce.

Če imate kakršna koli vprašanja, me ne oklevajte vprašati.

Amanda
  • Stran:
  • 1
Za to objavo še ni odgovorov.