Excel'de grafikten veri ayıklamak için makro

Özet

Microsoft Excel'de, veriler bir dış çalışma sayfasında veya çalışma kitabında olsa bile grafikten veri alabilirsiniz. Bu, grafiğin kullanılamayan veya bir şekilde zarar görmüş başka bir dosyadan oluşturulduğu veya bağlandığı durumlarda yararlıdır. Bir grafiğe ait kaynak veriler kaybolduğunda, microsoft Visual Basic for Applications makro kullanılarak veriler yine de grafiğin kendisinden alınabilir.

Daha Fazla Bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da 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 örnek makro, grafiğin kaynak verilerini etkin çalışma kitabındaki "ChartData" adlı çalışma sayfasına yerleştirir ve ilk sütun ve ilk satırdan başlar.

1. 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. Çalışma kitabınıza yeni bir çalışma sayfası ekleyin ve bunu "ChartData" (tırnak işaretleri olmadan) olarak yeniden adlandırın.

3. Temel alınan veri değerlerini ayıklamak istediğiniz grafiği seçin.

   Not

   Grafik çalışma sayfasına veya ayrı bir grafik sayfasına eklenebilir.

4. GetChartValues makrosunu çalıştırın.

   Grafikteki veriler "ChartData" çalışma sayfasına yerleştirilir.

Grafiği Kurtarılan Verilere Bağlama Adımları

Grafiğin kurtarılan verilerle etkileşimli olmasını sağlamak için, eksik veya bozuk çalışma kitabı bağlantılarını korumak yerine grafiği yeni veri sayfasına bağlamanız gerekir.

1. Grafiği seçin ve bozuk veya eksik çalışma kitabında grafiğin bağlı olduğu sayfa adını bulmak için bir seriye tıklayın. Sayfa adı, formül çubuğundaki seri formülünde görünür.

   Not

   Sayfa adı, "[Kitap1]" gibi köşeli ayraç içine alınmış çalışma kitabı adını takip edebilir ve ünlem işaretinden önce "!" (veya kesme işareti ve ünlem işareti "'!") hücre başvurusunun başlangıcını gösterir. Sayfa adı yalnızca kapalı köşeli ayraç simgesi "]" ile ünlem işareti (veya kesme işareti ve ünlem işareti) arasındaki karakterleri içerir. Kesme işareti, ünlem işaretinden hemen önceyse herhangi bir kesme işaretini dışarıda bırakın çünkü kesme işareti, sayfa adındaki son karakter olamaz.

2. Yeni sayfanın ChartData adlı sekmesine çift tıklayın.

3. 1. adımdaki özgün sayfa adını vurgulanan "ChartData" üzerine yazın ve ENTER tuşuna basın. Bu ad, bozuk veya eksik çalışma kitabındaki sayfa adıyla aynı olmalıdır.

4. Bu dosyayı grafik ve veri sayfasıyla kaydetmediyseniz, dosyayı kaydedin.

5. Excel 2003 veya Excel 2002'de, Düzenle menüsünde Bağlantılar'a ve ardından Kaynağı Değiştir'e tıklayın.

   Excel 2007'de, Veri sekmesine tıklayın, Connenctions grubunda Bağlantıları Düzenle'ye ve ardından Kaynağı Değiştir'e tıklayın.

6. Kaynak Dosya kutusunda, değiştirecek bağlantıyı seçin ve ardından Kaynağı Değiştir'e tıklayın.

7. Bağlantıları Değiştir iletişim kutusunda, kurtarılan verileri ve grafiği içeren yeni dosyayı seçin ve ardından Tamam'a tıklayın.

8. Aşağıdaki hata iletisini alırsanız

   Formülünüzün çalışma sayfasına geçersiz dış başvurusu var.

   3. adımda yazdığınız sayfa adının özgün adla aynı olmaması olasıdır. 1. adıma Geri dön.

9. Kaynak Dosya kutusu artık boş olabilir. Bu, tüm bağlantıların eksik veya bozuk dosya yerine etkin dosyaya işaret ettiğini gösterir. Kapat'a tıklayın.

Grafik artık etkin çalışma kitabındaki yeniden adlandırılan sayfadaki kurtarılan verilere başvurur ve bunlarla etkileşim kurar.