Makro untuk mengekstrak data dari bagan di Excel

Di Microsoft Excel, Anda dapat mengambil data dari tabel bahkan ketika data adalah di luar lembar kerja atau buku kerja. Hal ini berguna dalam situasi di mana tabel dibuat dari, atau terkait dengan file lain yang tidak tersedia atau rusak dalam beberapa cara. Ketika sumber data untuk tabel adalah hilang, data dapat masih diambil dari tabel itu sendiri, dengan menggunakan Microsoft Visual Basic untuk aplikasi makro.

Microsoft memberi contoh pemprograman untuk ilustrasi saja, tanpa garansi baik tersurat maupun tersirat. Ini termasuk, namun tidak terbatas untuk, jaminan tersirat mengenai keadaan yang dapat diperjualbelikan atau kesesuaian untuk tertentu tujuan. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan pemrograman bahasa yang ditunjukkan dan dengan alat-alat yang digunakan untuk membuat dan memperbaiki prosedur. Teknisi Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah ini contoh untuk menyediakan fungsionalitas tambahan atau membuat prosedur untuk memenuhi Anda persyaratan tertentu.

Berikut contoh makro tempat bagan 's sumber data dalam lembar kerja di buku kerja yang aktif, yang disebut "ChartData" awal dalam kolom pertama dan baris pertama.

1. Masukkan kode makro berikut dalam lembar modul:

   Sub GetChartValues()
      Dim NumberOfRows As Integer
      Dim X As Object
      Counter = 2
   
      ' Calculate the number of rows of data.
      NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)
   
      Worksheets("ChartData").Cells(1, 1) = "X Values"
   
      ' Write x-axis values to worksheet.
      With Worksheets("ChartData")
         .Range(.Cells(2, 1), _
         .Cells(NumberOfRows + 1, 1)) = _
         Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
      End With
   
      ' Loop through all series in the chart and write their values to
      ' the worksheet.
      For Each X In ActiveChart.SeriesCollection
         Worksheets("ChartData").Cells(1, Counter) = X.Name
   
         With Worksheets("ChartData")
            .Range(.Cells(2, Counter), _
            .Cells(NumberOfRows + 1, Counter)) = _
            Application.Transpose(X.Values)
         End With
   
         Counter = Counter + 1
      Next
   
   End Sub
   					

2. Sisipkan lembar kerja baru ke buku kerja Anda dan mengubah nama itu untuk "ChartData" (tanpa tanda kutip).
3. Pilih tabel dari mana Anda ingin ekstrak nilai data yang mendasarinya.
   
   CATATAN: Tabel dapat baik tertanam di lembar kerja atau terpisah bagan lembar.
4. Menjalankan GetChartValues makro.
   
   Data dari tabel ditempatkan di Lembar kerja "ChartData".

Langkah-langkah untuk Link bagan untuk Data dipulihkan

Untuk memiliki tabel menjadi interaktif dengan data dipulihkan, Anda perlu link tabel ke lembar data baru daripada mempertahankan link ke buku kerja-hilang atau rusak.

1. Pilih bagan, dan klik seri untuk menemukan nama lembar mana bagan terhubung di buku kerja yang rusak atau hilang. Nama lembar muncul di seri formula dalam bar rumus.
   
   CATATAN: Nama lembar dapat mengikuti nama buku kerja yang tertutup di square bracket seperti "[Book1]", dan mendahului seru "!" (atau tanda kutip dan seru "'!") yang menunjukkan awal sel referensi. Nama lembar mencakup hanya karakter antara tertutup braket persegi simbol "]" dan yang tanda seru (atau tanda kutip dan seru). Biarkan setiap tanda kutip jika segera sebelum seru menandai, karena apostrof tidak dapat karakter terakhir di nama lembar.
2. Klik dua kali tab lembar baru yang disebut ChartData.
3. Ketik nama lembar asli dari langkah 1 atas disorot "ChartData" dan tekan ENTER. Nama ini harus sama dengan lembar nama dari buku kerja yang rusak atau hilang.
4. Jika Anda tidak menyimpan file ini dengan grafik dan data lembar, Simpan file.
5. Dalam Excel 2003 atau Excel 2002, klik Tautan pada The Mengedit menu, dan kemudian klik Perubahan sumber.
   
   Dalam Excel 2007, klik Data tab, klik Mengedit linkdalam Connenctions kelompok, dan kemudian klikPerubahan sumber.
6. Dalam File sumber sandi, pilih link untuk mengubah, dan kemudian klik Perubahan sumber.
7. Dalam Perubahan link kotak dialog, pilih file baru dengan data dipulihkan dan bagan, dan kemudian klik Oke.
8. Jika Anda menerima pesan galat berikut
   Anda formula berisi referensi eksternal tidak sah lembar kerja.
   kemungkinan bahwa lembar nama yang Anda masukkan pada langkah 3 ini tidak sama dengan yang asli. Kembali ke langkah 1.
9. The File sumber kotak sekarang mungkin kosong. Hal ini menunjukkan bahwa semua link yang menunjuk ke berkas yang aktif daripada berkas hilang atau rusak. Klik Tutup.

Tabel sekarang referensi dan berinteraksi dengan data dipulihkan pada lembar berganti nama menjadi di buku kerja yang aktif.

Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use (http://go.microsoft.com/fwlink/?LinkId=151500) for other considerations.