Excel'de grafik veya grafikten veri ayıklamak için?

VBA ile grafikten veri ayıklayın
Navigasyon--Otomatik metin (Genelde kullandığınız grafikleri Otomatik Metin bölmesine ekleyin.Ancak istediğiniz zaman eklemek için tek bir tıkla.) |

Excel / Office için Önerilen Verimlilik Araçları
Office Tab: Excel, Chrome ve Firefox ve Safari gibi diğer Office yazılımlarına sekmeli düzenleme getirin.30-gün Sınırsız Ücretsiz Deneme
Kutools for Excel: 300 güçlü özellikleri Excel'i çok kolay hale getirir ve hemen üretkenliği arttırır.60-gün Sınırsız Ücretsiz Deneme
VBA ile grafikten veri ayıklayın
1. Yeni bir çalışma sayfası oluşturmanız ve adınızı aşağıdaki gibi yeniden adlandırmanız gerekir: ChartData. Ekran görüntüsüne bakın:
Kutools for Excel, ile daha fazla 120 kullanışlı Excel işlevleri, çalışma verimliliğini artırır ve çalışma süresinden tasarruf sağlar. |
2. Ardından, verileri ayıklamak istediğiniz tabloyu seçin ve tuşuna basın. Alt + F11 tuşlarını aynı anda ve bir Uygulamalar için Microsoft Visual Basic pencere açılır.
3. tık Ekle > modül, sonra VBA kodunun altına yapıştırın modül pencere.
VBA: Grafiklerden veri ayıklayın.
Sub GetChartValues() 'Updateby20150203 Dim xNum As Integer Dim xSeries As Object xCount = 2 xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values) Application.Worksheets("ChartData").Cells(1, 1) = "X Values" With Application.Worksheets("ChartData") .Range(.Cells(2, 1), _ .Cells(xNum + 1, 1)) = _ Application.Transpose(ActiveChart.SeriesCollection(1).XValues) End With For Each xSeries In Application.ActiveChart.SeriesCollection Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name With Application.Worksheets("ChartData") .Range(.Cells(2, xCount), _ .Cells(xNum + 1, xCount)) = _ Application.WorksheetFunction.Transpose(xSeries.Values) End With xCount = xCount + 1 Next End Sub
4. Sonra tıklayın koşmak VBA çalıştırmak için düğmesini tıklatın. Ekran görüntüsüne bakın:
Ardından, verilerin çıkarıldığını görebilirsiniz. ChartData levha.

İhracat Aralığı Grafik olarak |
Kutools' İhracat Aralığı Grafik olarak bir seçim hücrelerini birden çok grafik biçimi olarak kaydetmek veya dışa aktarmaktır. |

Bahşiş:
1. Hücreleri istediğiniz gibi biçimlendirebilirsiniz.
2. Seçilen grafiğin verileri, varsayılan olarak ChartData sayfasının ilk hücresine çıkarılır.
![]() |
Önerilen Üretkenlik Araçları
Office Tab
Kullanışlı sekmeleri Excel, diğer Office yazılımlarına da tıpkı Chrome, Firefox ve yeni Internet Explorer gibi getirin.
Kutools for Excel
Şaşırtıcı! 5 dakika içinde üretkenliğinizi artırın. Herhangi bir özelliğe ihtiyacınız yoktur, her gün iki saat tasarruf edin!
300 Excel için Yeni Özellikler, Excel'i Çok Kolay ve Güçlü Yapın:
- Hücre / Satırları / Sütunları Veri Kaybetmeden Birleştirin.
- Birden Çok Levha ve Çalışma Kitabını Birleştirin ve Konsolide edin.
- Aralıkları Karşılaştırma, Birden Fazla Aralık Kopyalama, Metni Tarihe Dönüştürme, Birim ve Para Birimi Dönüştürme.
- Renklere Göre Sayma, Sayfalık Toplamlar, Gelişmiş Sıralama ve Süper Filtre,
- Daha Seç / Ekle / Sil / Metin / Biçim / Bağlantı / Açıklama / Çalışma Kitabı / Çalışma Sayfası Araçları ...