Bagaimana cara mengekstrak data dari bagan atau grafik di Excel?
Ekstrak data dari grafik dengan VBA
Ekstrak data dari grafik dengan VBA
1. Anda perlu membuat lembar kerja baru dan menamainya sebagai Data Bagan. Lihat tangkapan layar:
2. Kemudian pilih grafik yang datanya ingin Anda ekstrak dan tekan Alt + F11 kunci secara bersamaan, dan a Microsoft Visual Basic untuk Aplikasi jendela muncul.
3. klik Menyisipkan > Modul, lalu tempel kode VBA di bawah ini ke popping Modul jendela.
VBA: Ekstrak data dari grafik.
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. Lalu klik Run tombol untuk menjalankan VBA. Lihat tangkapan layar:
Kemudian Anda dapat melihat data diekstrak ke Data Bagan lembar.
olymp trade indonesiaTip:
1. Anda dapat memformat sel sesuai kebutuhan.
2. Data dari bagan yang dipilih diekstraksi ke sel pertama dari lembar ChartData secara default.
|
olymp trade indonesiaTip: Jika Anda biasanya menggunakan bagan kompleks di Excel, yang akan merepotkan saat Anda membuatnya tepat waktu, di sini dengan Teks otomatis alat dari Kutools untuk Excel, Anda hanya perlu membuat bagan pertama kali, lalu menambahkan bagan di panel AutoText, lalu Anda dapat menggunakannya kembali di mana saja kapan saja, yang perlu Anda lakukan hanyalah mengubah referensi agar sesuai dengan kebutuhan Anda yang sebenarnya. Klik untuk unduh gratis sekarang. |
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
