Hogyan lehet kinyerni az adatokat diagramokból vagy grafikonokból az Excel programban?

Az Excelben általában diagramot használunk az adatok és a trend egyértelműbb megjelenítéséhez, de néha talán a diagram másolat, és nem rendelkezik a diagram eredeti adataival, ahogy az alábbi képernyőképen látható. Ebben az esetben érdemes kivonni az adatokat ebből a diagramból. Ez az oktatóanyag diagramról vagy grafikonról történő adatkivonásról szól.
Adatok kivonása a diagramból a VBA segítségével

Adatok kivonása a diagramból a VBA segítségével

1. Létre kell hoznia egy új munkalapot, és át kell neveznie ChartData. Lásd a képernyőképet:

2. Ezután válassza ki a diagramot, amelyből adatokat szeretne kinyerni, majd nyomja meg a gombot Alt + F11 gombok egyszerre, és a Microsoft Visual Basic for Applications az ablak felpattan.

3. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá a felbukkanáshoz Modulok ablak.

VBA: Adatok kivonása a diagramból.

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. Ezután kattintson futás gombot a VBA futtatásához. Lásd a képernyőképet:

Ezután láthatja, hogy az adatokat kibontják-e ChartData lapot.

Tipp:

1. A cellákat szükség szerint formázhatja.

2. A kiválasztott diagram adatai alapértelmezés szerint a ChartData lap első cellájába kerülnek.