Pivot tabloda birden fazla alan ayarını nasıl değiştirebilirim?
Bir çalışma sayfasında pivot tablo oluşturduktan sonra, PivotTable Alan Listesi'ndeki Değerler listesine alanları sürükledikten sonra aşağıdaki ekran görüntüsünde gösterildiği gibi tüm alanlar için aynı Sayma fonksiyonunu alabilirsiniz. Ancak şimdi, Toplam fonksiyonunun Sayma fonksiyonunun yerini almasını istiyorsunuz. Excel'de birden fazla pivot tablo alanının hesaplamasını nasıl değiştirebilirsiniz?
Pivot tablodaki alan ayarlarını tek tek elle değiştirin
VBA kodu ile pivot tabloda birden fazla alan ayarını değiştirin
Pivot tablodaki alan ayarlarını tek tek elle değiştirin
Excel'de, Değer Alanı Ayarları iletişim kutusundaki fonksiyonları tek tek değiştirerek alan ayarlarının hesaplamasını değiştirebilirsiniz, lütfen şu şekilde yapın:
1. Pivot tabloda özetleme fonksiyonunu değiştirmek istediğiniz Değerler alanındaki bir alanı seçin ve sağ tıklayarak Değer Alanı Ayarları'nı seçin, ekran görüntüsüne bakın:
2. Ardından Değer Alanı Ayarları iletişim kutusunda, Özetleme Değerleri Tarafından sekmesi altında kullanmak istediğiniz hesaplama türünü seçin, ekran görüntüsüne bakın:
3. Ardından bu iletişim kutusunu kapatmak için Tamam'a tıklayın ve Sayma fonksiyonunun Toplam fonksiyonuna dönüştürüldüğünü görebilirsiniz, ekran görüntüsüne bakın:
4. Diğer alanların hesaplama ayarlarını değiştirmek için yukarıdaki adımları tekrarlayın.
Not: Ayrıca bir alan hücresine sağ tıklayarak ve Değerleri Özetle menüsünden ihtiyacınız olan bir hesaplama seçerek alan ayarlarını değiştirebilirsiniz.
VBA kodu ile pivot tabloda birden fazla alan ayarını değiştirin
Yukarıdaki yöntem, çok sayıda alan hesaplaması değiştirilmesi gerekiyorsa zaman alıcı ve yorucu olabilir. Burada, birden fazla alan ayarını aynı anda değiştirmenize yardımcı olacak bir kod tanıtacağım.
1. Pivot tablonuzdaki herhangi bir hücreye tıklayın.
2. ALT + F11 tuşlarına basılı tutun ve Microsoft Visual Basic for Applications penceresi açılacaktır.
3. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Pivot tabloda birden fazla alan ayarını değiştirin
Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
.ManualUpdate = True
For Each xPF In .DataFields
With xPF
.Function = xlSum
.NumberFormat = "#,##0"
End With
Next
.ManualUpdate = False
End With
End Sub
4. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve seçtiğiniz pivot tablodaki tüm alan ayarları anında ihtiyaç duyduğunuz hesaplamaya dönüştürülecektir, ekran görüntülerine bakın:
|
 |
 |
Not: Yukarıdaki kodda, Toplam fonksiyonunu Ortalama, Maksimum, Minimum gibi başka bir hesaplamayla değiştirebilirsiniz. Sadece şu betiklerdeki Toplam fonksiyonunu değiştirmeniz gerekir: Public Sub SetDataFieldsToSum() ve .Function = xlSum.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin