Pivot tablodaki birden çok alan ayarı nasıl değiştirilir?
Bir çalışma sayfasında bir pivot tablo oluşturduğunuzda, alanları Değerler listedeki Özet Tablo Alan Listesiaynı şeyi alabilirsin saymak aşağıdaki ekran görüntüsü gibi işlev görür. Ama şimdi istiyorsun Toplam yerine geçecek fonksiyonun saymak Excel'de birden çok pivot tablo alanının hesaplamasını aynı anda nasıl değiştirebilirsin?
Pivot tablodaki alan ayarlarını manuel olarak tek tek değiştirin
Pivot tablodaki birden çok alan ayarını VBA kodu ile değiştirin
Pivot tablodaki alan ayarlarını manuel olarak tek tek değiştirin
Excel'de, işlevi tek tek değiştirerek alan ayarlarının hesaplamasını değiştirebilirsiniz. Değer Alanı Ayarları iletişim kutusu, lütfen şu şekilde yapın:
1. Pivot tablodaki özet işlevini değiştirmek istediğiniz Değerler alanında bir alan seçin ve seçmek için sağ tıklayın Değer Alanı Ayarları, ekran görüntüsüne bakın:
2. Sonra da Değer Alanı Ayarları iletişim kutusunda kullanmak istediğiniz hesaplama türünü seçin. Değeri Özetle sekmesi, ekran görüntüsüne bakın:
3. Ve sonra tıklayın OK Bu iletişim kutusunu kapatmak için Sayma işlevinizin Toplama işlevi olarak değiştirildiğini görebilirsiniz, ekran görüntüsüne bakın:
4. Diğer alanların hesaplama ayarlarını tek tek değiştirmek için yukarıdaki adımları tekrarlayın.
Not: Ayrıca bir alan hücresine sağ tıklayıp seçim yaparak alan ayarlarını değiştirebilirsiniz. Değerleri Özetle ve bağlam menülerinden ihtiyacınız olan bir hesaplama seçin.
Pivot tablodaki birden çok alan ayarını VBA kodu ile değiştirin
Yukarıdaki yöntem, değiştirilmesi gereken çok sayıda alan hesaplaması varsa, zaman alıcı ve sıkıcı olacaktır, burada, aynı anda birden fazla alan ayarını değiştirmek için size bir kod sunabilirim.
1. Pivot tablonuzdaki herhangi bir hücreyi tıklayın.
2. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.
3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Pivot tablodaki birden çok 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. Daha sonra tuşuna basın. F5 Bu kodu yürütmek için anahtar ve seçtiğiniz pivot tablodaki tüm alan ayarları aynı anda ihtiyaç hesaplamanıza dönüştürüldü, ekran görüntülerine bakın:
|
 |
 |
not: Yukarıdaki kodda, Sum işlevini istediğiniz gibi Ortalama, Maks, Min gibi diğer hesaplamalarla değiştirebilirsiniz. Bu komut dosyalarındaki Toplamı değiştirmeniz yeterlidir: Genel Alt SetDataFieldsToSum () ve .Fonksiyon = xlSum diğer işlevlere.
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!
