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.