Dimanche, 09 Octobre 2022
  1 Réponses
  5K visites
0
Votes
annuler
J'ai des données avec 3 colonnes. la colonne 1 est le nom de la série, la colonne 2 est la valeur x, la colonne 3 est la valeur y. Les données sont des données de dispersion XY. Dois-je fusionner la colonne 1 en une seule cellule ?

Puis-je tracer ces données sur le même graphique afin d'avoir plusieurs séries de données xy à l'aide de Kutools?
Merci! Je viens d'acheter le logiciel donc je recherche de l'aide.
Il y a 1 année
·
#3127
0
Votes
annuler
Salut,

Nous avons créé un code VBA, veuillez l'insérer dans un module et vérifier si c'est ce dont vous avez besoin :
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

Après avoir copié et collé le code ci-dessus, appuyez sur F5 pour exécuter le code. Et une boîte de dialogue apparaîtra vous demandant de sélectionner les trois colonnes.

Si vous avez des questions, n'hésitez pas à me les poser.

Amanda
  • Page:
  • 1
Il n'y a pas encore de réponse faites pour ce poste.