Cookies palīdzēs mums sasniegt mūsu pakalpojumus. Izmantojot mūsu pakalpojumus, jūs piekrītat mūsu sīkdatņu izmantošanu.
Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā Excel sistēmā iegūt diagrammas vai diagrammas datus?

doc-extract-chart-data-1
Programmā Excel parasti tiek izmantota diagramma, kurā var redzēt datus un tendences skaidrākai apskatei, taču reizēm var būt, ka diagramma ir kopija, un jums nav sākotnējie diagrammas dati, kā parādīts attēlā. Šajā gadījumā jūs varat iegūt datus no šīs diagrammas. Tagad šī apmācība ir par datu ieguvi no diagrammas vai diagrammas.
Izvilk datus no diagrammas ar VBA

NavigācijaAutoText (automātiski pievienojiet parasti lietotās diagrammas AutoText panelī. vienu reizi noklikšķiniet, lai to ievietotu, kad nepieciešams.)

Excel papildināt instrumentus, lai ievietotu ūdenskrituma diagrammu jebkurā laikā

bultiņa zils labais burbulis Izvilk datus no diagrammas ar VBA


1. Jums ir nepieciešams izveidot jaunu darblapu un pārdēvēt to kā ChartData. Skatīt ekrānuzņēmumu:

Kutools Excel, ar vairāk nekā 120 ērtas Excel funkcijas, uzlabot darba efektivitāti un ietaupīt darba laiku.

doc-extract-chart-data-5

2. Pēc tam atlasiet diagrammu, no kuras vēlaties iegūt datus, un nospiediet Alt + F11 atslēgas vienlaicīgi, un a Microsoft Visual Basic for Applications loga pops.

3. klikšķis ielaidums > Moduļi, pēc tam ielīmējiet zemāk VBA kodu uz popping Moduļi logs.

VBA: ekstrakts datus no diagrammas.

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. Pēc tam noklikšķiniet uz skrējiens pogu, lai palaistu VBA. Skatīt ekrānuzņēmumu:

doc-extract-chart-data-2

Tad jūs varat redzēt datus, kas iegūti, lai ChartData lapas.

doc-extract-chart-data-3

Eksporta diapazons kā grafiskais

Kutools' Eksporta diapazons kā grafiskais mērķis ir saglabāt vai eksportēt atlases šūnas kā vairākus grafiskos formātus.
doc eksporta diapazons kā attēls

Padoms:

1. Šūnas varat formatēt pēc nepieciešamības.

doc-extract-chart-data-4

2. Atlasītās diagrammas dati tiek noklusēti ChartData lapas pirmā šūnā.

pievērsiet uzmanību1Ja jūs interesē šis papildinājums, lejupielādējiet 60 dienu bezmaksas izmēģinājumu.


Ieteicamie produktivitātes rīki

Cilnē Office

zelta zvaigzne1 Novietojiet parocīgas cilnes Excel un citai Office programmatūrai, tāpat kā Chrome, Firefox un jaunā Internet Explorer.

Kutools Excel

zelta zvaigzne1 Pārsteidzošs! Palieliniet savu produktivitāti 5 minūtēs. Nepieciešamas īpašas prasmes, izņemot katru dienu divas stundas!

zelta zvaigzne1 300 jaunas funkcijas Excel, Make Excel daudz viegli un jaudīgu:

  • Apvienot šūnu / rindas / kolonnas, nezaudējot datus.
  • Apvienot un konsolidēt vairākas lapas un darbgrāmatas.
  • Salīdziniet diapazonus, kopējiet vairākus diapazonus, pārveidojiet tekstu uz datumu, vienību un valūtas konvertēšanu.
  • Count by Colors, Paging Starpsvars, Advanced Kārtot un Super Filter,
  • Vairāk Izvēlēties / Ievietot / Dzēst / Teksts / Format / Saite / Komentārs / Darbgrāmatas / Darblapas Rīki ...

Kutools ekrānuzņēmums 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!