Note: The other languages of the website are Google-translated. Back to English

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

Office Sekmesi Office'te Sekmeli Düzenleme ve Göz Atmayı Etkinleştirin ve İşinizi Çok Daha Kolay Hale Getirin ...
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
  • Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
  • 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
  • Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
  • Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
  • Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
  • Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
  • 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.

ok mavi sağ balon 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>

doc-add-çoklu-alanlar-1

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:

doc-add-çoklu-alanlar-1

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 Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı

 

Yorumları sıralama ölçütü
Yorumlar (23)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Gerçekten güzel ve kullanışlı bir makro. Ancak Değerler'e alanlarımın yarısını zaten eklemiştim ve bu makroyu çalıştırdığımda aynı alanları tekrar ekledi. Neden herhangi bir fikrin var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Vay. Çok çok iyi çalışıyor. Çok teşekkürler! Bununla birlikte, Microsoft'un oldukça basit bir görev için yerleşik bir özelliğe sahip olmamasına biraz şaşırdım ...
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu fantastik. Makro, Değerler yerine Satır Etiketlerine tümünü eklemek için değiştirilebilir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu yalnızca hariç tutulan alanlar için çalıştırmanın bir yolu var mı, böylece çalıştırdığımda yinelenen alanlarla karşılaşmam? yani. "Alan" ve "Alan_2"
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]Bunu yalnızca hariç tutulan alanlar için çalıştırmanın bir yolu var mı, böylece çalıştırdığımda yinelenen alanlarla karşılaşmaz mıyım? yani. "Alan" ve "Alan_2"Shaun tarafından[/quote] Evet- iki örnek Kalan tüm denetlenmemiş öğeleri ROWS Sub AddAllFieldsRow() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) ile pt iCol = 1 iColEnd = .PivotFields.Count iCol için = 1 iColEnd'e .PivotFields(iCol) ile .Orientation = 0 ise .Orientation = xlRowField End Sonraki iCol End With End Sub ile Biterse VALUES Sub AddAllFieldsValues ​​öğesine kalan denetlenmemiş öğeleri eklemek için bunu kullanın PivotTable Olarak Dim iCol Uzun Dim iColEnd Uzun Set pt = ActiveSheet.PivotTables(1) pt ile iCol = 1 iColEnd = .PivotFields.Count For iCol = 1 iColEnd'e .PivotField ile ) IfotFields.Orient(iCol) .Orientation = xlDataField End If End With Next iCol End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sadece bazı ekstra alanları eklemenin bir yolu var mı, kalanları veya hepsini değil, sadece kontrol edilmemiş olan bir çifti? :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Evet, işaretlemeyi yankılamak için, kodu yalnızca kesinlikle alan etiketlerine sahip olan denetlenmemiş alanlar eklemek için düzenlemenin bir yolu var mı (eğer içeriyorsa işlevinde olduğu gibi)? Örneğin, konuya göre aslında 50 evet/hayır değeri olan bir sorum var ve bunların hepsini değerler alanına taşımak istiyorum. Hepsi aynı soru etiketi q9_[belirli soru konusu] ile başlar.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yine de, tümü yerine temel dosyadan seçilen bazı sütunları eklemek istersek var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sayı olarak alma değeri. tüm sayımı Sum olarak nasıl dönüştürebilirim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Alanınıza tıklayabilirsiniz (alanlarınızı sütun etiketleri, satır etiketleri vb. içine sürüklediğiniz alanda) ardından "Değer alanı ayarı"na tıklayabilirsiniz, ardından "Topla"yı seçebileceğiniz bir açılır liste göreceksiniz!
A     El
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika! Teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
"xlDataField" PowerPivot ile çalışmıyor mu? Pivot tabloya tüm ölçüleri eklemek için kullanılan aşağıdaki kodu aldım. "xlColumnField" ve "xlRowField" ile çalışır. Bu işin nasıl yapılacağı hakkında bir fikriniz var mı?

Alt AddAllFieldsValues()
PivotTable olarak Dim pt
Dim iCol Kadar Uzun
Dim iColSon Kadar Uzun

Set pt = ActiveSheet.PivotTables (1)

pt ile

iKol = 1
iColEnd = .CubeFields.Count

iCol için = 1'den iColEnd'e
.CubeFields(iCol) ile
.Orientation = xlHidden ise
.Oryantasyon = xlDataField
Eğer son
İle bitmek
Sonraki iCol

İle bitmek

End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba.

Çalıştır'a tıkladığımda derleme hatası veriyor

Lütfen yardım et
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tıkır tıkır çalışıyor. teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler, bana çok yardımcı oldu
Bu yorum sitedeki moderatör tarafından en aza indirildi
ÇOK TEŞEKKÜR EDERİM!!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Not: Che'nin hata mesajı:




Alt AddAllFieldsValues()




'20141112 güncellemesi



Sönük
pt Özet Tablo Olarak





Dim ben gibi
Uzun





Her biri için
pt ActiveSheet.PivotTable'larda





İçin
I = 1 için pt.PivotFields.Count





İle bitmek







Sonraki



Sonraki




End Sub










Not: Che aşağıdakileri eklemeye çalışıyor
alanlar/anlık görüntü- "DİĞER Farkın Toplamı, 4096 Toplamı
Fark" 80'den fazla alan olacak
katma







DİĞER Fark



4096 Fark



4016 Fark
Bu yorum sitedeki moderatör tarafından en aza indirildi
Eğer "Değerler
"0" veya "Null", Satır Değerlerinin Görüntülenmesinden nasıl kaldırılır

(ör. 2743 Farkın Toplamı)





Pivot "Satırlar"
Pivot "Değerler"





Satır Etiketleri





NP9 - Toplam Harcanmayan
Ödenekler





DİĞER Fark Toplamı 1,045,355,165.31




3200 Fark Toplamı
0.00




0108 Fark Toplamı
12,873,630.29



4586 Fark Toplamı
(33,024,706.93)



0148 Fark Toplamı
(72,046,783.14)



0129 Fark Toplamı
(5,583,891.98)



4598 Fark Toplamı
(929,574.56)



2743 Fark Toplamı



4041 Fark Toplamı
0.00



2799 Fark Toplamı
Bu yorum sitedeki moderatör tarafından en aza indirildi
Değerler yerine alanları satır etiketine gönderecek makroyu düzenlemenin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Задача же не всегда стоит в получении списка, хочется допустим поправить названия таблиц или иковданиц или истониска Можете реализовать?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, yalnızca seçili olmayan sütunları eklemenin bir yolu var mı? Teşekkürler. 
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kodu çalıştırıyorum. Tamamlanması ne kadar zaman alır? Şimdi 45 dakika oldu, hala çalışıyor. Lütfen bana yardım et. Bu arada, toplam alan sütunlarım 3600.
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır