Kako pridobiti podatke iz grafikona ali grafa v Excelu?

V Excelu običajno uporabljamo grafikon za prikaz podatkov in trendov za bolj pregleden ogled, včasih pa je grafikon morda kopija in nimate prvotnih podatkov grafikona, kot je prikazano spodaj. V tem primeru boste morda želeli pridobiti podatke iz tega grafikona. Zdaj ta vadnica govori o pridobivanju podatkov iz grafikona ali grafa.
Izvlecite podatke iz grafikona z VBA

Izvlecite podatke iz grafikona z VBA

1. Ustvariti morate nov delovni list in ga preimenovati v ChartData. Oglejte si posnetek zaslona:

2. Nato izberite grafikon, iz katerega želite izvleči podatke, in pritisnite Alt + F11 tipke hkrati in a Microsoft Visual Basic za aplikacije okna pops.

3. klik Vstavi > Moduli, nato prilepite pod kodo VBA v pojavno okno Moduli okno.

VBA: Izvleček podatkov iz grafikona.

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. Nato kliknite Run gumb za zagon VBA. Oglejte si posnetek zaslona:

Nato lahko vidite, da so podatki pridobljeni v ChartData list.

Nasvet:

1. Celice lahko oblikujete po potrebi.

2. Podatki izbranega grafikona se privzeto ekstrahirajo v prvo celico lista ChartData.