Nou
 Emisiune

trebuie să reprezentați împrăștierea cu mai multe serii, prima coloană dând numele seriei

  Kutools pentru Excel
insizigie
  insizigie
  Duminică, 09 octombrie 2022
  1 Răspunsuri
  5K vizite
0
Voturi
Anula
Am date cu 3 coloane. coloana 1 este numele seriei, coloana 2 este valoarea x, coloana 3 este valoarea y. Datele sunt date de împrăștiere XY. Ar trebui să îmbin coloana 1 într-o singură celulă?

Pot reprezenta aceste date pe aceeași diagramă, astfel încât să am mai multe serii de date xy folosind Kutools?
Mulțumiri! Tocmai am achiziționat software-ul, așa că caut asistență.
0
Cele mai vechi primele  
Amanda Lee
Amanda Lee
1 ani în urmă
·
#3127
0
Voturi
Anula
Salut,

Am creat un cod VBA, introduceți-l într-un modul și verificați dacă acesta este ceea ce aveți nevoie:
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

După ce copiați și lipiți codul de mai sus, apăsați F5 pentru a rula codul. Și va apărea o casetă de dialog care vă va cere să selectați cele trei coloane.

Dacă aveți întrebări, vă rugăm să nu ezitați să mă întrebați.

Amanda
  • Pagina:
  • 1
Nu există răspunsuri făcute pentru acest post.