Vasárnap, 09 október 2022
  1 Válaszok
  4.9K látogatás
0
Szavazatok
Kibont
3 oszlopos adataim vannak. az 1. oszlop a sorozat neve, a 2. oszlop az x-érték, a 3. oszlop az y-érték. Az adatok XY szóródási adatok. Egyesítsem az 1. oszlopot egyetlen cellába?

Ábrázolhatom ezeket az adatokat ugyanazon a diagramon, hogy több xy adatsorom legyen a Kutools használatával?
Kösz! Nemrég vásároltam meg a szoftvert, ezért szeretnék segítséget kérni.
0
Szavazatok
Kibont
Szia,

Létrehoztunk egy VBA kódot, kérjük, helyezze be egy modulba, és ellenőrizze, hogy erre van-e szüksége:
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

A fenti kód kimásolása és beillesztése után nyomja meg az F5 billentyűt a kód futtatásához. És felugrik egy párbeszédpanel, amely arra kéri, hogy válassza ki a három oszlopot.

Ha bármilyen kérdése van, ne habozzon feltenni.

Amanda
  • Oldal:
  • 1
Erre a bejegyzésre még nem válaszoltak.