Cookies membantu kami menyampaikan perkhidmatan kami. Dengan menggunakan perkhidmatan kami, anda bersetuju dengan penggunaan cookies.
Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar
x

or

Bagaimana untuk mengambil data dari carta atau graf dalam Excel?

doc-extract-chart-data-1
Dalam Excel, kami biasanya menggunakan carta untuk menunjukkan data dan arah aliran untuk melihat dengan lebih jelas, tetapi kadang kala, carta mungkin salinan dan anda tidak mempunyai data asal carta seperti gambar di bawah yang ditunjukkan. Dalam kes ini, anda mungkin mahu mengeluarkan data dari carta ini. Sekarang tutorial ini bercakap mengenai data mengekstrak dari carta atau grafik.
Ekstrak data dari carta dengan VBA

Navigasi -AutoTeks (tambah carta biasanya digunakan untuk pane.Tekuk AutoTeks dengan satu klik untuk memasukkannya apabila anda perlukan.)

excel menambah alat untuk memasukkan carta air terjun pada bila-bila masa

anak panah gelembung kanan biru Ekstrak data dari carta dengan VBA


1. Anda perlu membuat lembaran kerja baru dan menamakannya sebagai ChartData. Lihat tangkapan skrin:

Kutools untuk Excel, dengan lebih daripada 120 fungsi Excel yang berguna, meningkatkan kecekapan kerja dan menjimatkan masa bekerja.

doc-extract-chart-data-5

2. Kemudian pilih carta yang anda mahu untuk mengekstrak data dari dan tekan Alt + F11 kunci secara serentak, dan a Microsoft Visual Basic untuk Aplikasi tingkap timbul.

3. klik Memasukkan > Modul, kemudian tampal di bawah kod VBA untuk muncul Modul tingkap.

VBA: Ekstrak data dari carta.

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. Kemudian klik Main butang untuk menjalankan VBA. Lihat tangkapan skrin:

doc-extract-chart-data-2

Kemudian anda dapat melihat data diekstrak ke ChartData lembaran.

doc-extract-chart-data-3

Julat Eksport sebagai Grafik

Kutools' Julat Eksport sebagai Grafik bertujuan untuk menyimpan atau mengeksport sel seleksi sebagai format grafik berganda.
julat eksport doc sebagai gambar

Petua:

1. Anda boleh memformatkan sel seperti yang anda perlukan.

doc-extract-chart-data-4

2. Data carta terpilih diekstrak ke sel pertama lembaran ChartData secara lalai.

perhatikan1Sekiranya anda berminat dengan tambahan ini, muat turun percubaan percuma 60-hari.


Alat Produktiviti yang Disyorkan

Tab Pejabat

bintang emas1 Bawa tab berguna kepada Excel dan perisian Office lain, seperti Chrome, Firefox dan Internet Explorer baru.

Kutools untuk Excel

bintang emas1 Hebat! Tingkatkan produktiviti anda dalam minit 5. Tidak memerlukan kemahiran khas, kecuali dua jam setiap hari!

bintang emas1 Ciri-ciri Baru 300 untuk Excel, Buat Excel Banyak Mudah dan Berkuasa:

  • Merge Cell / Rows / Columns tanpa Kehilangan Data.
  • Menggabungkan dan Menyusun Lembaran Berbilang dan Buku Kerja.
  • Bandingkan Ranges, Salin Pelbagai Rang Undang-Undang, Tukar Teks hingga Tarikh, Penukaran Unit dan Mata Wang.
  • Count by Colors, Subtotal Paging, Urutkan Advanced dan Super Filter,
  • More Select / Insert / Delete / Text / Format / Link / Comment / Workbooks / Worksheets Tools ...

Skrin skrin Kutools untuk 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!