Note: The other languages of the website are Google-translated. Back to English

Cum se extrag date din diagramă sau grafic în Excel?

doc-extract-diagram-date-1
În Excel, de obicei folosim grafic pentru a afișa date și tendințe pentru o vizualizare mai clară, dar uneori, poate graficul este o copie și nu aveți datele originale ale graficului așa cum este prezentat mai jos. În acest caz, poate doriți să extrageți datele din această diagramă. Acum, acest tutorial vorbește despre extragerea datelor dintr-un grafic sau grafic.
Extrageți date din grafic cu VBA

săgeată albastru dreapta balon Extrageți date din grafic cu VBA

1. Trebuie să creați o nouă foaie de lucru și să o redenumiți ca ChartData. Vedeți captura de ecran:

doc-extract-diagram-date-5

2. Apoi selectați diagrama din care doriți să extrageți date și apăsați Alt + F11 tastele simultan și a Microsoft Visual Basic pentru aplicații apare fereastra.

3. clic Insera > Module, apoi lipiți mai jos codul VBA în popping Module fereastră.

VBA: extrageți date din grafic.

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. Apoi apasa Alerga pentru a rula VBA. Vedeți captura de ecran:

doc-extract-diagram-date-2

Apoi, puteți vedea cum sunt extrase datele ChartData foaie.
doc-extract-diagram-date-3

Sfat:

1. Puteți formata celulele după cum aveți nevoie.

doc-extract-diagram-date-4

2. Datele graficului selectat sunt extrase în prima celulă a foii ChartData în mod implicit.


Sfat: Dacă utilizați de obicei diagrame complexe în Excel, ceea ce va fi supărător pe măsură ce le creați foarte mult timp, aici cu Text automat instrument de Kutools pentru Excel, trebuie doar să creați diagrame pentru prima dată, apoi să adăugați diagrame în panoul Text automat, apoi le puteți reutiliza oriunde, oricând, ceea ce trebuie doar să faceți este să modificați referințele pentru a se potrivi cu nevoia dvs. reală.  Faceți clic pentru descărcare gratuită acum.
doc formatare condiționată diagramă de bare stivuite 12


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (18)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună ziua, se pare că întâlnesc o eroare Run-tome „-2147467259 (80004005)” Metoda „XValues” a obiectului „serie eșuată”
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc. Acest lucru a fost cu adevărat util!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Comandă uimitoare, mulțumesc mult! L-am folosit cu o diagramă pivot și funcționează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
îmi oferă valorile pe care le-am creat grafic cu nu toate valorile din interval
Acest comentariu a fost redus la minimum de moderatorul de pe site
Foarte util si perfect
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu am reușit să obțin prețurile unui grafic de fond pe mac excel 2011 . Eroare de timp de rulare „91” variabila obiect sau variabila bloc nu este setată . Nu știu cum să depanez. Apreciez orice ajutor.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru nu pare să funcționeze pentru un grafic de dispersie, deoarece extrage doar un set de date „x”. Cum îl pot modifica pentru a extrage toate seturile de date „x”?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Îmi pare rău că nu am găsit soluția la asta.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am încercat și cu un grafic de dispersie, dar am obținut doar o singură linie de valoare.


Am nevoie de atât de multe pentru a găsi o modalitate de a extrage date din graficele scatterplot.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Primesc o eroare de mai jos în timp ce rulez acea comandă.
această eroare vine în acea comandă care începe de la xnum = UBound(......) etc

Eroare de rulare „91”
variabila obiect sau cu variabila bloc nesetata
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, tarshul, trebuie să creați o nouă foaie de lucru numită ChartData înainte de a rula codul, datele vor fi plasate în noua foaie de lucru ChartData.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna Sunny,
Am creat deja o nouă foaie de lucru așa cum ați spus, dar încă primesc aceeași eroare.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am încercat mai sus și scrie „Eroare de compilare: Metoda sau Membrul de date nu a fost găsit”
Acest comentariu a fost redus la minimum de moderatorul de pe site
mong mọi người giúp đỡ làm cách nào để lấy số liệu từ biểu đồ này với ạ!
Acest comentariu a fost redus la minimum de moderatorul de pe site
dând eroare și spuneți să setați variabile bloc și variabile obiect
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, am actualizat VBA, îl puteți încerca din nou.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Foarte util! Mulţumesc mult!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Uimitor...
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL