Excel'de bir grafik veri ayıklamak için makro

Makale çevirileri Makale çevirileri
Makale numarası: 300643 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makalenin Microsoft Excel 2000 sürümü için bkz. 213814.
Bir Microsoft Excel 98 ve bu önceki sürümü için makalesi için bkz: 137016.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Microsoft Excel'de verileri grafikten bile alabilirsiniz ne zaman bir dış çalışma sayfası veya çalışma kitabında veri içerir. Bu yararlıdır Burada grafik oluşturulan veya bağlı olan başka bir dosya için durumlar kullanılamıyor veya herhangi bir şekilde zarar görmüş. Bir grafik için kaynak veriler kayıp verileri hala grafik kendisini kullanarak alınabilir bir Microsoft Visual Basic for Applications makrosu.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar, örtülü veya garanti olmadan. Bu içerir, ancak bunlarla sınırlı değildir ticari olarak satılabilirlik veya belirli bir uygunluk zımni garantileri için Amaç. Bu makalede ile programlama hakkında bilgi sahibi olduğunuz varsayılmaktadır. gösterilen dili ve oluşturmak için kullanılan araçlar ve yordamlar hata ayıklamak için. Microsoft destek mühendisleri açıklanmasına yardımcı olabilir Belirli bir yordamın işlevselliğinin ancak bunlar değiştirmez örnekler, ek işlevsellik sağlamak veya karşılamak için bir yordam oluşturmak için belirli gereksinimleri.

Aşağıdaki makro örneği grafiğin yerleştirir. Etkin çalışma kitabındaki, "ChartData" adlı bir çalışma sayfasındaki veri kaynağı başına ilk sütun ve ilk satırı.
  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. Kitabınıza yeni bir çalışma sayfası ekler ve onu yeniden adlandırın "ChartData" (tırnak işaretleri olmadan).
  3. Ayıklamak istediğiniz grafiği seçin. temel alınan veri değerleri.

    NOT: Grafik ya da bir çalışma sayfasına veya ayrı bir gömülebilir Grafik sayfası.
  4. Çalıştır GetChartValues Makro.

    Grafik verileri yerleştirilir "ChartData" çalışma.

Kurtarılan veriler için grafik bağlamak için adımlar

Kurtarılan veriler ile etkileşimli olarak grafiğe sahip olmak için Grafik için yeni veri sayfasına bağlamak yerine bağlantılarını korumak gerekir eksik veya zarar görmüş çalışma.
  1. Grafiği seçin ve bir dizi sayfa adını bulmak için tıklatın. Grafik eksik veya zarar görmüş çalışma kitabındaki bağlandığı. Sayfa adı Formül çubuğunda SERİLER formülünü görünür.

    NOT: Sayfa adı içine çalışma kitabının adını izleyen "[Kitap1]" gibi köşeli ayraçlar ve ünlem önüne "!" (veya kesme işareti ve ünlem işareti "'!") Hücre başına gösterir başvuru. Sayfa adı yalnızca kapalı arasında karakter içerir. köşeli ayraç simgesi "]" ve ünlem (veya kesme işareti ve ünlem işareti). Hemen önce ise herhangi bir kesme işareti bırakın. ünlem işareti, kesme işareti son karakter olamaz çünkü bir Sayfa adı.
  2. Olarak adlandırılan yeni sayfanın sekmesini çift tıklatın. ChartData.
  3. 1. Adımdaki orijinal sayfa adı üzerine yazın Vurgulanan "ChartData" ve enter tuşuna basın. Bu ad ile aynı olmalıdır eksik veya zarar görmüş çalışma kitabındaki sayfa adı.
  4. Grafik ve verileri ile bu dosyayı kaydetmediyseniz Sayfa, dosyayı kaydedin.
  5. İçinde Excel 2003 ve Excel 2002'yi tıklatın. Bağlantılar üzerinde , Düzenle menüyü tıklatın ve sonra Kaynağı Değiştir.

    İçinde Excel 2007,'ı tıklatın Veri sekmesinde,'ı tıklatın Bağlantıları Düzenleiçinde Connenctions grubu tıklatın ve sonraKaynağı Değiştir.
  6. İçinde Kaynak dosyası kutusunda, değiştirmek için bağlantıyı seçin ve'ı tıklatın Kaynağı Değiştir.
  7. İçinde Bağlantıları Değiştir iletişim kutusunda, yeni kurtarılan verileri içeren dosyayı seçin ve Grafiği tıklatın ve sonra TAMAM.
  8. Aşağıdaki hata iletisini alırsanız
    Formül geçersiz bir dış başvuru içeren bir çalışma sayfası.
    büyük olasılıkla 3. adımda yazdığınız sayfa adı Orijinal ile aynı değildir. Adım 1'için geri dönün.
  9. , Kaynak dosyası Şimdi kutusu boş olabilir. Bu tüm bağlantılar için noktasını gösterir. Etkin dosya eksik veya bozuk dosya yerine. ' I tıklatın Kapat.
Grafik şimdi başvurur ve kurtarılan veriler ile etkileşim Etkin çalışma kitabındaki adlandırılmış sayfaya.

Özellikler

Makale numarası: 300643 - Last Review: 16 Ocak 2013 Çarşamba - Gözden geçirme: 6.0
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
Anahtar Kelimeler: 
kbdtacode kbhowto kbprogramming kbmt KB300643 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir: 300643

Geri Bildirim Ver

 

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