Excel'de bir grafik arasýnda veri ayýklamak için makro

Microsoft Excel'de verileri dýþ çalýþma sayfasý veya çalýþma kitabýnda olduðunda bile bir grafikten veri alabilirsiniz. Burada grafiði oluþturulan veya, baþka bir dosya kullanýlamýyor veya herhangi bir þekilde zarar gördü baðlantýlý durumlarda yararlýdýr. Bir grafik için kaynak veriler kaybolur, veriler yine de, grafikten Applications makro için bir Microsoft Visual Basic kullanarak alýnabilir.

Microsoft, programlama örneklerini yalnýzca gösterim amacýyla saðlar; örtülü veya açýk garanti vermez. Buna satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri de dahildir, ancak bunlarla sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve yordamlarý oluþturmak ve hata ayýklamak amacýyla kullanýlan araçlarý kullanmayý bildiðinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir, ancak gereksinimlerinizi karþýlamaya yönelik olarak ek iþlevsellik saðlamak veya yordamlar geliþtirmek amacýyla bu örnekleri deðiþtirmezler.

Aþaðýdaki makro örneði, etkin çalýþma kitabýndaki "ChartData" adlý bir çalýþma sayfasýndaki grafiðin kaynak verilerini yerleþtirir ilk sütun ve ilk satýr baþýna.

1. Bir modül sayfasýna aþaðýdaki makro kodunu girin:

   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. Bilgisayarýnýzýn bir çalýþma kitabýna yeni bir çalýþma sayfasý ekler ve "ChartData için" (týrnak iþaretleri olmadan) adlandýrýn.
3. Temel veri deðerleri ayýklamak istediðiniz grafiði seçin.
   
   Not: grafik, ya da bir çalýþma sayfasýna veya ayrý bir grafik sayfasý katýþtýrýlabilir.
4. GetChartValues makroyu çalýþtýrýn.
   
   Grafik verileri "ChartData" çalýþma sayfasýnda yer alýr.

Kurtarýlan veriler için grafiðe baðlantý için gereken adýmlarý

Kurtarýlan verilerle etkileþimli grafik için grafiði, yeni veri sayfasýna baðlamak yerine, eksik veya zarar görmüþ çalýþma kitabýndaki baðlantýlarý korumak gerekir.

1. Grafiði seçin ve eksik veya zarar görmüþ çalýþma kitabýnda grafiðin baðlý olduðu <a1>Sayfa</a1> adýný bulmak için bir veri serisini týklatýn. Formül çubuðunda seriler formülünü sayfa adý görüntülenir.
   
   Not: sayfa adý çalýþma kitabýnýn adý, "[Kitap1]" gibi köþeli ayraç içine izleyin ve ünlem önüne "!" (kesme iþareti veya ünlem iþareti "'!") bir hücre baþvurusu baþlangýcýný gösterir. Sayfa adý yalnýzca kapalý köþeli ayraç simgesi arasýnda karakter içerir "]" ünlem iþareti (veya kesme iþareti ve ünlem iþareti). Ünlem iþareti hemen önce ise, kesme iþareti bir sayfa adý son karakter olabilir, çünkü dýþýnda herhangi bir kesme iþareti býrakýn.
2. ChartData adlý yeni bir sayfanýn sekmesini çift týklatýn.
3. Vurgulanan "ChartData" üzerinden adým 1'deki özgün sayfa adýný yazýn ve ENTER tuþuna basýn. Bu ad, zarar görmüþ veya kaybolmuþ bir çalýþma kitabýndan sayfa adýyla ayný olmalýdýr.
4. Bu dosya ile verileri ve grafik sayfasýný kaydettiyseniz, dosyayý kaydedin.
5. Excel 2003 veya Excel 2002'de, Düzen menüsünden Baðlantýlar ' ý týklatýn ve sonra da Kaynaðý Deðiþtir'i týklatýn.
   
   Excel 2007'de, veri sekmesini týklatýn, sonra da Connenctions grubunda Baðlantýlarý Düzenle'yi týklatýn ve sonra da Kaynaðý Deðiþtir'i týklatýn.
6. Kaynak dosyasýný) kutusunda, deðiþtirmek için baðlantýyý seçin ve sonra da Kaynaðý Deðiþtir'i týklatýn.
7. Deðiþtir baðlantýlar iletiþim kutusunda, yeni kurtarýlan verileri ve grafik içeren dosyayý seçin ve Tamam ' ý týklatýn.
8. Aþaðýdaki hata iletisini alýrsanýz
   Formül, bir çalýþma sayfasýna geçersiz bir dýþ baþvuru içeriyor.
   3. adýmda yazdýðýnýz sayfa adýný özgün adýyla ayný olmadýðýný olasýdýr. Adým 1'ne geri dönün.
9. Kaynak dosya kutusunu þimdi boþ olabilir. Bu, tüm baðlantýlarý eksik veya bozuk dosya yerine etkin dosyayý iþaret gösterir. Kapat ' ý týklatýn.

Þimdi baþvurur ve grafik kurtarýlan etkin çalýþma kitabýndaki adlandýrýlmýþ sayfasýndaki verilerle etkileþime girer.