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

Cum se adaugă mai multe câmpuri în tabelul pivot?

Când creăm un tabel pivot, trebuie să tragem câmpurile manual în etichetele rândului sau valorile manual unul câte unul. Dacă avem o listă lungă de câmpuri, putem adăuga rapid câteva etichete de rând, dar câmpurile rămase ar trebui adăugate în zona Valoare. Există metode rapide pentru a adăuga toate celelalte câmpuri în zona Value cu un singur clic în tabelul pivot?

Adăugați mai multe câmpuri în zona Value a tabelului pivot cu codul VBA

Fila Office Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
  • Reutilizați orice: Adăugați cele mai utilizate sau complexe formule, diagrame și orice altceva la preferatele dvs. și reutilizați-le rapid în viitor.
  • Peste 20 de caracteristici text: Extrageți numărul din șirul de text; Extrageți sau eliminați o parte din texte; Conversia numerelor și valutelor în cuvinte în limba engleză.
  • Instrumente de îmbinare: Mai multe cărți de lucru și foi într-unul; Combinați mai multe celule / rânduri / coloane fără a pierde date; Combinați rândurile duplicate și suma.
  • Instrumente divizate: Împărțiți datele în mai multe foi bazate pe valoare; Un registru de lucru pentru mai multe fișiere Excel, PDF sau CSV; O coloană la mai multe coloane.
  • Lipiți săriți Rânduri ascunse / filtrate; Număr și sumă de Culoarea fundalului; Trimiteți e-mailuri personalizate către mai mulți destinatari în bloc.
  • Super Filtru: Creați scheme avansate de filtrare și aplicați oricăror foi; Sortează pe săptămână, zi, frecvență și multe altele; Filtru prin îndrăznețe, formule, comentarii ...
  • Peste 300 de caracteristici puternice; Funcționează cu Office 2007-2021 și 365; Suporta toate limbile; Implementare ușoară în întreprinderea sau organizația dvs.

săgeată albastru dreapta balon Adăugați mai multe câmpuri în zona Value a tabelului pivot cu codul VBA

Din păcate, nu există nici o casetă de selectare pentru a verifica rapid toate câmpurile din lista de câmpuri din tabelul pivot cu un singur clic, dar, cu următorul cod VBA, vă poate ajuta să adăugați câmpurile rămase în zona Valori simultan. Vă rugăm să faceți următoarele:

1. După crearea tabelului pivot, în primul rând, ar trebui să adăugați câmpurile de etichetă de rând ca nevoie și lăsând câmpurile de valoare în Alegeți câmpurile pe care să le adăugați la raport listă, vezi captura de ecran: </ p>

doc-add-mai multe-câmpuri-1

2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.

3. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: Adăugați mai multe câmpuri în zona Value a tabelelor pivot din foaia de lucru activă

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. Apoi apăsați F5 tasta pentru a rula acest cod, toate câmpurile rămase au fost adăugate în zona Valori în același timp, vezi captura de ecran:

doc-add-mai multe-câmpuri-1

notițe: Acest cod VBA este aplicat tuturor tabelelor pivot din foaia de lucru activă.


Legate de articole:

Cum se listează toate tabelele pivot care formează un registru de lucru?

Cum să verificați dacă există un tabel pivot într-un registru de lucru?


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab

 

Comentarii (23)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Macro foarte frumos și util. Cu toate acestea, am adăugat deja jumătate din câmpurile mele în Valori și când am rulat această macrocomandă, a adăugat din nou aceleași câmpuri. Ai idee de ce?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Wow. Functioneaza foarte foarte bine. Mulţumesc mult! Cu toate acestea, sunt oarecum uimit că Microsoft nu avea o funcție încorporată pentru o sarcină destul de simplă...
Acest comentariu a fost redus la minimum de moderatorul de pe site
Asta este fantastic. Poate fi modificată macrocomandă pentru a adăuga toate la Etichetele rândurilor în loc de Valori?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o modalitate de a rula acest lucru numai pentru câmpurile excluse, astfel încât atunci când îl rulez să nu ajung cu câmpuri duplicate? adică. „Câmp” și „Câmp_2”
Acest comentariu a fost redus la minimum de moderatorul de pe site
[quote]Există o modalitate de a rula acest lucru numai pentru câmpurile excluse, astfel încât atunci când îl rulez să nu ajung cu câmpuri duplicate? adică. „Câmp” și „Câmp_2”De Shaun[/quote] Da-două exemple Utilizați aceasta pentru a adăuga toate elementele rămase nebifate la RÂNDURI Sub AddAllFieldsRow() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iCol = 1 iColEnd = .PivotFields.Count For iCol = 1 To iColEnd With .PivotFields(iCol) If .Orientation = 0 Then .Orientation = xlRowField End If End With Next iCol End With End Sub Utilizați aceasta pentru a adăuga elementele rămase nebifate la VALUES SubValullFields(Els) Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) Cu pt iCol = 1 iColEnd = .PivotFields.Count For iCol = 1 To iColEnd With .PivotFields(ThenOrientation) = 0 If .iCol .Orientation = xlDataField End If End With Next iCol End With End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o modalitate de a adăuga doar câteva câmpuri suplimentare, nu cele rămase sau toate, ci doar o pereche de câmpuri care nu sunt deja bifate? :)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Da, pentru a ecou markus, există o modalitate de a edita codul pentru a adăuga doar câmpuri nebifate care au cu siguranță etichete de câmp (cum ar fi o funcție if contains)? De exemplu, am o întrebare care este de fapt 50 de valori da/nu pe subiect și aș dori să le mut pe toate în câmpul de valori. Toate încep cu aceeași etichetă de întrebare q9_[subiect specific de întrebare].
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există oricum dacă vrem să adăugăm câteva coloane selectate din fișierul de bază în loc de toate.?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Valoarea lui takiung ca număr. cum pot converti toate numerele ca Sumă
Acest comentariu a fost redus la minimum de moderatorul de pe site
Puteți face clic pe câmpul dvs. (în zona în care vă trageți câmpurile în: etichete de coloane, etichete de rând etc.), apoi faceți clic pe "Setare câmp de valoare", apoi veți obține o listă derulantă de unde puteți alege "Suma"!
A     El
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cod VBA: modificați setările câmpului multiplu în tabelul pivot
https://www.extendoffice.com/documents/excel/2354-excel-pivot-table-change-multiple-field-settings.html
Acest comentariu a fost redus la minimum de moderatorul de pe site
Asta e super! Mulțumiri.
Acest comentariu a fost redus la minimum de moderatorul de pe site
„xlDataField” nu funcționează cu PowerPivot? Am codul de mai jos, care este folosit pentru a adăuga toate măsurile la tabelul pivot. Funcționează cu „xlColumnField” și „xlRowField”. Aveți idei despre cum să funcționeze?

Sub AddAllFieldsValues()
Dim pt ca tabel pivot
Dim iCol As Long
Dim iColEnd As Long

Set pt = ActiveSheet.PivotTables(1)

Cu pct

iCol = 1
iColEnd = .CubeFields.Count

Pentru iCol = 1 To iColEnd
Cu .CubeFields(iCol)
Dacă .Orientare = xlHidden Atunci
.Orientare = xlDataField
Final, dacă
Se termina cu
Următorul iCol

Se termina cu

End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună.

Îmi dă o eroare de compilare când dau clic pe Run

Te rog ajuta-ma
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează ca un farmec. Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc, m-a ajutat foarte mult
Acest comentariu a fost redus la minimum de moderatorul de pe site
MULȚUMESC FOARTE MULT!!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Notă: mesajul de eroare al lui Che:




Sub AddAllFieldsValues()




„Actualizare 20141112



Vag
pt Ca tabel pivot





Dim I As
Lung





Pentru fiecare
pt În ActiveSheet.PivotTables





Pentru
I = 1 To pt.PivotFields.Count





Se termina cu







Pagina Următoare →



Pagina Următoare →




End Sub










Notă: Che încearcă să adauge următoarele
câmpuri/instantaneu- „Suma ALTE diferențe, Suma 4096
Diferență” peste 80 de câmpuri care urmează să fie
adăugat







ALTE Diferență



4096 Diferența



4016 Diferența
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dacă „Valorile sunt
„0” sau „Null” cum să eliminați valorile rândurilor din afișare

(ex. Suma de 2743 Diferență)





Pivotați „Rândurile”
Pivot „Valori”





Etichete de rând





NP9 - Total necheltuit
Credite





Suma ALTE Diferente 1,045,355,165.31




Suma de 3200 Diferență
0.00




Suma de 0108 Diferență
12,873,630.29



Suma de 4586 Diferență
(33,024,706.93)



Suma de 0148 Diferență
(72,046,783.14)



Suma de 0129 Diferență
(5,583,891.98)



Suma de 4598 Diferență
(929,574.56)



Suma de 2743 Diferență



Suma de 4041 Diferență
0.00



Suma de 2799 Diferență
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o modalitate de a edita macrocomandă care ar trimite câmpurile în eticheta rândurilor în loc de valori?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Задача же не всегда стоит в получении списка, хочется допустим поправить названия тазвания тастовыния тазник списка. Можете реализовать?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, există vreo modalitate de a adăuga numai coloanele neselectate? Mulțumiri. 
Acest comentariu a fost redus la minimum de moderatorul de pe site
Rulez acest cod. Cât timp durează finalizarea? Au trecut 45 de minute, încă mai rulează. Vă rog să mă ajutați. Apropo, totalul coloanelor mele de câmp sunt 3600.
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL