Slapukai padeda mums pristatyti mūsų paslaugomis. Naudodamiesi mūsų paslaugomis, jūs sutinkate su mūsų slapukų naudojimą.
Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip išskleisti duomenis iš diagramos ar diagramos "Excel"?

doc-extract-chart-data-1
"Excel" sistemoje paprastai naudojame diagramą, rodančią duomenis ir tendencijas, kad galėtume aiškiau peržiūrėti, bet kartais, galbūt diagramoje yra kopija ir neturite originalių diagramos duomenų, kaip parodyta paveikslėlyje. Tokiu atveju galbūt norėsite ištraukti duomenis iš šios diagramos. Dabar šiame vadove kalbama apie duomenų ištraukimą iš diagramos ar diagramos.
Ištraukite duomenis iš diagramos su VBA

NavigacijaAutoText (pridėkite paprastai naudojamas diagramas AutoText srityje. Tada spustelėkite vieną kartą, jei norite jį įterpti.)

"excel" pridėti įrankius, skirtus įkelti krioklio juostą bet kuriuo metu

rodyklė mėlyna dešinė burbulas Ištraukite duomenis iš diagramos su VBA


1. Jums reikia sukurti naują darbalapį ir pervardyti jį kaip ChartData. Žr. Ekrano kopiją:

Kutools for Excel, su daugiau nei 120 patogios "Excel" funkcijos didinti darbo efektyvumą ir taupyti darbo laiką.

doc-extract-chart-data-5

2. Tada pasirinkite diagramą, iš kurios norite išgauti duomenis, ir paspauskite Alt + F11 raktus vienu metu ir a "Microsoft Visual Basic for Applications" langas pasirodo.

3. spragtelėjimas įsiuvas > Moduliai, tada įklijuokite žemiau VBA kodą Moduliai langas.

VBA: ištraukti duomenis iš diagramos.

Sub GetChartValues()
	'Updateby20150203
	Dim xNum As Integer
	Dim xSeries As Object
	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. Tada spustelėkite paleisti mygtukas paleisti VBA. Žr. Ekrano kopiją:

doc-extract-chart-data-2

Tada galite matyti, kad duomenys yra išgaunami į ChartData lapas.

doc-extract-chart-data-3

Eksporto diapazonas kaip grafinis

Kutools' Eksporto diapazonas kaip grafinis siekiama išsaugoti arba eksportuoti atrankos langelius kaip kelis grafinius formatus.
doc eksporto diapazonas kaip nuotrauka

Patarimas:

1. Galite formatuoti ląsteles, kaip jums reikia.

doc-extract-chart-data-4

2. Pasirinktos diagramos duomenys iš karto gaunami į pirmąją lapo "ChartData" langelį.

atkreipkite dėmesį1Jei jus domina ši papildoma informacija, atsisiųskite 60 dienų nemokamą bandomąją versiją.


Rekomenduojami įrankiai našumui

Office Tab

aukso žvaigždutė1 Pateikite patogius skirtukus "Excel" ir kitai "Office" programinei įrangai, kaip ir "Chrome", "Firefox" ir "Internet Explorer".

Kutools for Excel

aukso žvaigždutė1 Nuostabi! Padidinkite savo našumą per 5 min. Nereikia jokių specialių įgūdžių, išskyrus dvi valandas kiekvieną dieną!

aukso žvaigždutė1 "300" naujos funkcijos "Excel", "Excel" daug lengvumo ir galingumo:

  • Sujungti elementus / eilutes / stulpelius neprarandant duomenų.
  • Suderinkite ir susinenkite kelis lapus ir darbaknygius.
  • Palyginkite diapazonus, nukopijuokite keletą diapazonų, konvertuokite tekstą į datą, vienetą ir valiutos konvertavimą.
  • Skaičiuojamas pagal spalvas, tarpinių pranešimų vidurkis, išplėstinis rūšiavimas ir super filtras,
  • Daugiau Pasirinkite / Įterpti / Ištrinti / Tekstas / Formatas / Nuoroda / Komentaras / Darbaknygiai / Užduotys Įrankiai ...

Kutools ekrano kopija Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Astro · 1 years ago
    This doesn't appear to work for a scatter plot as it only extracts one set of "x" data. How can I amend it to extract all "x" data sets?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Sorry I did not found the solution about that.
      • To post as a guest, your comment is unpublished.
        Carlos · 1 years ago
        i've tried with a scatter plot graph as well, but only get one line of valor.


        i need so much to find a way to extract data from scatterplot graphs.
  • To post as a guest, your comment is unpublished.
    Ian · 1 years ago
    I failed to get the prices of a fund chart on my mac excel 2011 . Run time error '91' object variable or block variable not set . Don't know how to debug . Appreciate any help .
  • To post as a guest, your comment is unpublished.
    jignesh · 1 years ago
    Very useful and perfect
  • To post as a guest, your comment is unpublished.
    Berk · 1 years ago
    gives me values that i created chart with not all the values in range
  • To post as a guest, your comment is unpublished.
    Leo · 2 years ago
    Amazing command, thanks a lot!

    I used it with a pivot chart and it works!