Zondag, oktober 09 2022
  1 Antwoorden
  4.5K bezoeken
Ik heb gegevens met 3 kolommen. kolom 1 is serienaam, kolom 2 is x-waarde, kolom 3 is y-waarde. Gegevens zijn XY-spreidingsgegevens. Moet ik kolom 1 samenvoegen tot een enkele cel?

Kan ik deze gegevens in dezelfde grafiek plotten, zodat ik meerdere xy-gegevensreeksen heb met Kutools?
Bedankt! Ik heb net de software gekocht, dus ik ben op zoek naar hulp.
1 jaar geleden
·
#3127
Hey daar!

We hebben een VBA-code gemaakt, plaats die in een module en controleer of dat is wat je nodig hebt:
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

Nadat u de bovenstaande code hebt gekopieerd en geplakt, drukt u op F5 om de code uit te voeren. En er verschijnt een dialoogvenster waarin u wordt gevraagd de drie kolommen te selecteren.

Als u vragen heeft, aarzel dan niet om mij deze te stellen.

Amanda
  • Pagina:
  • 1
Er zijn nog geen reacties op dit bericht geplaatst.