Excel'de bir grafikten veya çizimden veri nasıl çıkarılır?
Excel'deki grafikler, verileri ve trendleri daha etkileyici bir şekilde görselleştirmek için yaygın olarak kullanılır. Ancak aşağıdaki örnekte görüldüğü gibi, bazen yalnızca grafiğe sahip olabilir, ancak orijinal verilere erişiminiz olmayabilir. Böyle durumlarda, grafiğin içinden veriyi çıkarmak kritik öneme sahip olabilir. Bu eğitim, Excel’de VBA kodu kullanarak bir grafikten veya çizimden veri çıkarmanın adım adım yolunu açıklar.
Grafikten VBA ile veri çıkarın
1. "ChartData" adında yeni bir çalışma sayfası oluşturmanız gerekiyor. Ekran görüntüsüne göz atın:
2. Verisini çıkarmak istediğiniz grafiği seçin. "Microsoft Visual Basic for Applications" penceresini açmak için aynı anda "Alt" + "F11" tuşlarına basın.
3. "Ekle" > "Modül" seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu Modül penceresine yapıştırın.
Sub GetChartValues()
'Updateby20220510
Dim xNum As Integer
Dim xSeries As Object
On Error Resume Next
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. Ardından VBA'yı çalıştırmak için "Çalıştır" düğmesine tıklayın. Ekran görüntüsüne göz atın:
Daha sonra verinin "ChartData" sayfasına aktarıldığını görebilirsiniz.
İpucu:
1. Hücreleri ihtiyacınıza göre özelleştirebilirsiniz.
2. Varsayılan olarak, seçilen grafiğin verileri ChartData sayfasının ilk hücresinden itibaren alınır.
İpucu: Excel’de karmaşık grafiklerle sık sık uğraşıyorsanız, her seferinde yeniden oluşturmak gerçekten can sıkıcı olabilir. “Kutools for Excel” eklentisinin “Otomatik Metin” özelliğini kullanarak bu süreci çok daha kolay hale getirebilirsiniz. Grafikleri bir kez oluşturun, Otomatik Metin bölmesine ekleyin ve istediğiniz zaman, istediğiniz yerde tekrar kullanın. Tek yapmanız gereken, ihtiyaçlarınıza uygun hale getirmek için referansları güncellemektir.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin |
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar