Pivot tabloya birden çok alan nasıl eklenir?
Bir pivot tablo oluşturduğumuzda, alanları manuel olarak tek tek Satır Etiketlerine veya Değerlerine sürüklememiz gerekir. Uzun bir alan listemiz varsa hızlı bir şekilde birkaç satır etiketi ekleyebiliriz, ancak kalan alanlar Değer alanına eklenmelidir. Diğer tüm alanları pivot tablodaki tek tıklamayla Değer alanına eklememiz için herhangi bir hızlı yöntem var mı?
VBA kodu ile pivot tablonun Değer alanına birden çok alan ekleyin
VBA kodu ile pivot tablonun Değer alanına birden çok alan ekleyin
Maalesef, Pivot Tablo Alan Listesindeki tüm alanları tek bir tıklama ile hızlı bir şekilde kontrol etmemiz için bir onay kutusu yoktur, ancak aşağıdaki VBA kodu ile kalan alanları bir defada Değerler alanına eklemenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın:
1. Pivot tabloyu oluşturduktan sonra öncelikle ihtiyaç duyduğunuz satır etiketi alanlarını eklemeli ve değer alanlarını Rapora eklenecek alanları seçin liste, ekran görüntüsüne bakın: </ p>
2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.
3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Etkin çalışma sayfasındaki pivot tabloların Değer alanına birden çok alan ekleyin
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, kalan tüm alanlar aynı anda Değerler alanına eklenmiştir, ekran görüntüsüne bakın:
not: Bu VBA kodu, etkin çalışma sayfasının tüm pivot tablolarına uygulanır.
İlgili yazılar:
Bir çalışma kitabındaki tüm pivot tabloları nasıl listeleyebilirim?
Bir çalışma kitabında bir pivot tablonun olup olmadığını nasıl kontrol edebilirim?
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!