Hvordan udpakkes data fra diagram eller graf i Excel?
Uddrag data fra diagram med VBA
Uddrag data fra diagram med VBA
1. Du skal oprette et nyt regneark og omdøbe det som Diagramdata. Se skærmbillede:
2. Vælg derefter det diagram, du vil udtrække data fra, og tryk på Alt + F11 taster samtidigt, og a Microsoft Visual Basic til applikationer vinduet popper.
3. klik indsatte > Moduler, og indsæt derefter under VBA-koden for at poppe Moduler vindue.
VBA: Uddrag data fra diagrammet.
Sub GetChartValues()
'Updateby20220510
Dim xNum As Integer
Dim xSeries As Object
On Error Resume Next
xCount = 2
xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values)
Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
With Application.Worksheets("ChartData")
.Range(.Cells(2, 1), _
.Cells(xNum + 1, 1)) = _
Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
End With
For Each xSeries In Application.ActiveChart.SeriesCollection
Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
With Application.Worksheets("ChartData")
.Range(.Cells(2, xCount), _
.Cells(xNum + 1, xCount)) = _
Application.WorksheetFunction.Transpose(xSeries.Values)
End With
xCount = xCount + 1
Next
End Sub
4. Klik derefter på Kør knappen for at køre VBA. Se skærmbillede:
Derefter kan du se, at dataene ekstraheres til Diagramdata ark.
Tip:
1. Du kan formatere cellerne efter behov.
2. Dataene for det valgte diagram ekstraheres som standard til den første celle i ChartData-arket.
Tip: Hvis du normalt bruger komplekse diagrammer i Excel, hvilket vil være besværligt, når du opretter dem meget tid, her med Automatisk tekst værktøj til Kutools til Excel, skal du bare oprette diagrammerne første gang og derefter tilføje diagrammerne i AutoText-ruden, så kan du genbruge dem hvor som helst når som helst, hvad du kun behøver at gøre er at ændre referencerne for at matche dit reelle behov. Klik for gratis download det nu. |
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!