Makro untuk mengekstrak data dari bagan di Excel

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 300643 - Melihat produk di mana artikel ini berlaku.
Untuk versi Microsoft Excel 2000 artikel ini, Lihat 213814.
Microsoft Excel 98 dan versi ini Pasal, lihat 137016.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

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.

INFORMASI LEBIH LANJUT

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 for other considerations.

Properti

ID Artikel: 300643 - Kajian Terakhir: 24 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
Kata kunci: 
kbdtacode kbhowto kbprogramming kbmt KB300643 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:300643

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com