PivotTable’a birden fazla alan nasıl eklenir?
Özet Tablo oluştururken, genellikle alanları satır etiketleri veya değerler alanına tek tek sürükleriz. Uzun bir alan listemiz varsa birkaç tanesini satır etiketi olarak eklemek kolay olsa da geri kalanların tamamını Değerler alanına eklemek zaman alıcı olabilir. Kalan tüm alanları tek bir tıklamayla Değerler alanına eklemenin hızlı bir yolu var mı?
PivotTable'ün Değer Alanına VBA koduyla birden fazla alan ekleme
PivotTable'ün Değer Alanına VBA koduyla birden fazla alan ekleme
Excel, şu anda Alan Listesi panelindeki tüm alanları tek bir tıklamayla doğrudan Değerler alanına eklemenizi sağlayacak yerel bir özelliğe (örneğin “tümünü seç” onay kutusu gibi) sahip değildir. Ancak bu işlemi, basit bir VBA makrosuyla verimli şekilde gerçekleştirebilirsiniz. Bu yöntem, özellikle söz konusu işlemi sık sık tekrarlamanız veya çok sayıda veri alanıyla çalışmanız durumunda idealdir. Aşağıda, bu yöntemi uygulamanıza yardımcı olacak ayrıntılı adımlar ve dikkat edilmesi gereken önemli uyarılar yer almaktadır:
1. PivotTable'nizi oluşturduktan sonra, satır etiketi olarak kullanmak istediğiniz alanları alıştığınız sürükle-bırak yöntemiyle ekleyin. Özet değer olarak kullanmayı düşündüğünüz diğer alanları ise Rapor'a eklenecek alanları seçin bölümünde işaretlenmemiş bırakın. Referans için aşağıdaki ekran görüntüsüne bakın:
2. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications düzenleyici penceresini açın. Alternatif olarak, Excel Şeridi’nden Geliştirici > Visual Basic seçeneğine tıklayarak da erişebilirsiniz. Doğru çalışma kitabında olduğunuzdan emin olun.
3. VBA penceresinde, yeni bir modül oluşturmak için Ekle > Modül seçeneğine gidin. Ardından aşağıdaki VBA kodunu modül penceresine kopyalayıp yapıştırın.
VBA kodu: Etkin çalışma sayfasındaki PivotTable'nin Değer Alanına birden fazla alan ekleme
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. Ardından, makroyu çalıştırmak için F5 tuşuna basın veya VBA düzenleyici araç çubuğundaki Çalıştır düğmesine tıklayın. Makro, Geçerli Çalışma Sayfası’ndaki tüm PivotTable’leri işleyecektir: her tablo için zaten Satır Etiketleri veya Sütunlar olarak eklenmemiş olan tüm alanları doğrudan Değerler alanına ekleyecektir. Böylece mevcut her veri alanı, özetlenmiş bir değer olarak PivotTable’nizde görünecek ve kapsamlı analizlerinizi hızlandıracaktır. Referans için aşağıdaki ekran görüntüsüne bakın:
Not: Bu makro, çalıştırdığınızda etkin çalışma sayfasındaki tüm PivotTable’lere değişiklik uygular. Birden fazla PivotTable’ınız varsa ve yalnızca birini güncellemek istiyorsanız, ilgili PivotTable’ı geçici olarak ayrı bir sayfaya taşımayı düşünün. VBA’yı çalıştırmadan önce her zaman çalışmalarınızı kaydetmeyi unutmayın; çünkü makrolar geri alınamaz değişiklikler yapabilir. Ayrıca bu makro, sayısal özetlemeye uygun olmayabilecek alanlar da dahil olmak üzere kalan tüm alanları eklemeye çalışacaktır; bu da sayısal olmayan veriler içeren alanlarda özet hatalarına veya anlamsız sonuçlara neden olabilir.
İlgili makaleler:
Bir çalışma kitabındaki tüm PivotTable’leri nasıl listeleyebilirim?
Bir çalışma kitabında PivotTable olup olmadığını nasıl kontrol edebilirim?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar