Jak extrahovat data z grafu nebo grafu v aplikaci Excel?
Extrahujte data z grafu pomocí VBA
Extrahujte data z grafu pomocí VBA
1. Musíte vytvořit nový list a přejmenovat jej jako Data grafu. Viz snímek obrazovky:
2. Poté vyberte graf, ze kterého chcete extrahovat data, a stiskněte Alt + F11 kláves současně a a Microsoft Visual Basic pro aplikace vyskočí okno.
3. cvaknutí Vložit > Modul, pak vložte pod kód VBA do praskání Modul okno.
VBA: Extrahujte data z grafu.
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. Pak klikněte na tlačítko Běh tlačítko pro spuštění VBA. Viz screenshot:
Pak můžete vidět, že jsou data extrahována do Data grafu list.
Tip:
1. Buňky můžete naformátovat podle potřeby.
2. Data vybraného grafu jsou ve výchozím nastavení extrahována do první buňky listu ChartData.
|
Tip: Pokud obvykle používáte v Excelu složité grafy, které budou při vytváření velmi problematické, zde s Automatický text nástroj Kutools pro Excel, stačí nejprve vytvořit grafy, poté je přidat do podokna Automatický text a poté je kdykoli znovu použít kdekoli, stačí pouze změnit odkazy tak, aby odpovídaly vaší skutečné potřebě. Kliknutím si jej zdarma stáhněte. |
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
