Excel'de grafikten veya grafikten veri nasıl çıkarılır?
VBA ile grafikten verileri çıkarın
VBA ile grafikten verileri çıkarın
1. Yeni bir çalışma sayfası oluşturmanız ve bunu şu şekilde yeniden adlandırmanız gerekir: Grafik Verileri. Ekran görüntüsüne bakın:
2. Ardından, veri çıkarmak istediğiniz tabloyu seçin ve Alt + F11 aynı anda tuşlar ve Uygulamalar için Microsoft Visual Basic pencere açılır.
3. tık Ekle > modül, ardından popping'e VBA kodunun altına yapıştırın modül pencere.
VBA: Grafikten verileri çıkarı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. Sonra tıklayın koşmak VBA'yı çalıştırmak için düğmesine basın. Ekran görüntüsüne bakın:
Ardından verilerin çıkarıldığını görebilirsiniz. Grafik Verileri levha.
Bahşiş:
1. Hücreleri ihtiyaç duyduğunuz şekilde biçimlendirebilirsiniz.
2. Seçilen grafiğin verileri, varsayılan olarak ChartData sayfasının ilk hücresine çıkarılır.
Bahşiş: Excel'de genellikle karmaşık grafikler kullanıyorsanız, bu grafikleri çok zaman oluşturduğunuzda sorun yaratacaktır. Otomatik metin aracı Kutools for Excel, sadece grafikleri ilk kez oluşturmanız, ardından grafikleri Otomatik Metin bölmesine eklemeniz gerekir, ardından bunları istediğiniz zaman istediğiniz yerde yeniden kullanabilirsiniz, yapmanız gereken tek şey referansları gerçek ihtiyacınıza göre değiştirmektir. Şimdi ücretsiz indirmek için tıklayın. |
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!