Nový
 Problém

potřeba vykreslit rozptyl s více řadami s prvním sloupcem uvádějícím název řady

  Kutools pro Excel
insyzygy
  insyzygy
  Neděle, 09, říjen 2022
  1 Odpovědi
  4.9 tis. Návštěv
0
Hlasy
Zrušit
Mám data se 3 sloupci. sloupec 1 je název série, sloupec 2 je hodnota x, sloupec 3 je hodnota y. Data jsou XY rozptylových dat. Mám sloučit sloupec 1 do jedné buňky?

Mohu tato data vykreslit na stejném grafu, abych měl pomocí Kutools více xy datových řad?
Dík! Právě jsem koupil software, takže hledám pomoc.
0
Nejdříve nejstarší Nejdříve  
Amanda Lee
Amanda Lee
Před rokem 1
·
#3127
0
Hlasy
Zrušit
Ahoj,

Vytvořili jsme kód VBA, vložte jej prosím do modulu a zkontrolujte, zda je to to, co potřebujete:
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 zkopírování a vložení výše uvedeného kódu spusťte kód stisknutím klávesy F5. A objeví se dialogové okno s výzvou k výběru tří sloupců.

Pokud máte nějaké dotazy, neváhejte se mě zeptat.

Amanda
  • Stránka:
  • 1
Na tento příspěvek zatím nebyly učiněny žádné odpovědi.