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

Hogyan adhatunk több mezőt az elforduló táblához?

Pivot tábla létrehozásakor kézzel kell egyesével áthúzni a mezőket a Sorok címkéibe vagy értékeibe. Ha hosszú mezőlistánk van, gyorsan hozzáadhatunk néhány soros címkét, de a fennmaradó mezőket hozzá kell adni az Érték területhez. Van-e gyors módszer arra, hogy az összes többi mezőt egy kattintással hozzáadjuk az Érték mezőhöz a kimutatási táblázatban?

Adjon hozzá több mezőt a forgatótábla VBA kóddal ellátott Értékterületéhez

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
  • Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
  • Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
  • Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
  • Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
  • Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
  • Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.

nyíl kék jobb buborék Adjon hozzá több mezőt a forgatótábla VBA kóddal ellátott Értékterületéhez

Sajnos nincs olyan jelölőnégyzet, amely lehetővé tenné, hogy egy kattintással gyorsan ellenőrizhessük az összes mezőt a Pivot Table Field List-ban, de a következő VBA-kóddal segítséget nyújthat a fennmaradó mezők egyszeri hozzáadásához az Értékek területhez. Kérjük, tegye a következőket:

1. A pivot tábla létrehozása után először hozzá kell adnia a sorcímke mezőket szükség szerint, és az értékmezőket a Válassza ki a jelentéshez hozzáadni kívánt mezőket listát, lásd a képernyőképet: </ p>

doc-add-multiple-fields-1

2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: Több mező hozzáadása az aktív munkalap pivot-tábláinak Értékterületéhez

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, az összes többi mezőt egyszerre adták hozzá az Értékek területhez, lásd a képernyőképet:

doc-add-multiple-fields-1

Megjegyzések: Ezt a VBA kódot az aktív munkalap összes pivot táblájára alkalmazzák.


Kapcsolódó cikkek:

Hogyan sorolja fel az összes forgatótáblát egy munkafüzetből?

Hogyan ellenőrizhető, hogy létezik-e forgatótábla egy munkafüzetben?


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja

 

A megjegyzések rendezése szerint
Hozzászólások (23)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon szép és hasznos makró. A mezőim felét azonban már hozzáadtam az értékekhez, és amikor ezt a makrót futtattam, újra hozzáadta ugyanazokat a mezőket. Van ötleted miért?
A weboldal moderátora ezt a megjegyzést minimalizálta
Azta. Nagyon jól működik. Nagyon köszönöm! Mindazonáltal csodálkozom, hogy a Microsoft nem rendelkezik beépített funkcióval egy meglehetősen egyszerű feladathoz...
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez fantasztikus. Módosítható-e a makró úgy, hogy az értékek helyett az összeset hozzáadja a sorcímkékhez?
A weboldal moderátora ezt a megjegyzést minimalizálta
Van rá mód, hogy ezt csak a kizárt mezőkre futtassuk úgy, hogy a futtatás során ne kerüljenek ismétlődő mezőkbe? azaz. "Mező" és "Mező_2"
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]Van mód arra, hogy ezt csak a kizárt mezőkre lehessen futtatni, hogy a futtatás során ne duplikáljak a mezőket? azaz. "Mező" és "Mező_2"Shaun által[/quote] Igen – két példa Használja ezt az összes többi bejelöletlen elem hozzáadásához a ROWS-hoz Sub AddAllFieldsRow() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt = iCol =End 1 .PivotFields.Count for iCol = 1 - iColEnd With .PivotFields(iCol) Ha .Orientation = 0 Akkor .Orientation = xlRowField End If End With Next iCol End With End Sub Használja ezt, hogy hozzáadjon egy fennmaradó nem bejelölt elemet a VALUEsFields AddV 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 then .sP(OtField)sP. .Orientation = xlDataField End If End With Next iCol End With End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Van rá mód, hogy csak néhány extra mezőt adjunk hozzá, nem a fennmaradó mezőket vagy az összeset, hanem csak néhányat, amelyek még nincsenek bejelölve? :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Igen, hogy visszhangozzuk a markust, lehetséges-e úgy szerkeszteni a kódot, hogy csak azokat a nem bejelölt mezőket adjuk hozzá, amelyeknek biztosan van mezőcímkéje (például egy if include függvénynél)? Például van egy kérdésem, amely valójában 50 igen/nem értékek téma szerint, és szeretném ezeket mind áthelyezni az értékek mezőbe. Mindegyik ugyanazzal a kérdéscímkével kezdődik: q9_[specifikus kérdéstéma].
A weboldal moderátora ezt a megjegyzést minimalizálta
Van egyébként, ha az alapfájlból szeretnénk néhány kiválasztott oszlopot hozzáadni az összes helyett?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ennek figyelembe vett értéke számít. hogyan konvertálhatom az összes számot összegként
A weboldal moderátora ezt a megjegyzést minimalizálta
Kattinthat a mezőjére (azon a területen, ahová a mezőket húzza: oszlopcímkék, sorcímkék stb.), majd kattintson az "Értékmező beállítása" gombra, ekkor megjelenik egy legördülő lista, ahol kiválaszthatja az "Összeg" opciót!
A     El
A weboldal moderátora ezt a megjegyzést minimalizálta
VBA-kód: Több mezőbeállítás módosítása a kimutató táblázatban
https://www.extendoffice.com/documents/excel/2354-excel-pivot-table-change-multiple-field-settings.html
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez remek! Kösz.
A weboldal moderátora ezt a megjegyzést minimalizálta
Az "xlDataField" nem működik a PowerPivottal? Az alábbi kódot kaptam, amellyel az összes mértéket hozzáadhatom a pivot táblához. Működik az "xlColumnField" és az "xlRowField" paraméterekkel. Van valami ötletetek, hogyan lehetne ezt működésre bírni?

Al AddAllFieldsValues()
Dim pt mint pivottable
Dim iCol As Long
Dim iColEnd As Long

Set pt = ActiveSheet.PivotTables (1)

pt-vel

iCol = 1
iColEnd = .CubeFields.Count

iCol esetén = 1 - iColEnd
.CubeFields(iCol) segítségével
Ha .Orientation = xlHidden Akkor
.Orientation = xlDataField
Ha véget
Vége
Következő iCol

Vége

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia.

Fordítási hibát jelez, ha a Futtatás gombra kattintok

Kérem, segítsen
A weboldal moderátora ezt a megjegyzést minimalizálta
Úgy működik, mint a karikacsapás. Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm, sokat segített
A weboldal moderátora ezt a megjegyzést minimalizálta
NAGYON SZÉPEN KÖSZÖNÖM!!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Megjegyzés: Che hibaüzenete:




Al AddAllFieldsValues()




„Frissítés: 20141112



Homályos
pt PivotTable-ként





Dim I As
Hosszú





Az egyes
pt Az ActiveSheet.PivotTables-ben





A
I = 1 - pt.PivotFields.Count





Vége







Következő



Következő




End Sub










Megjegyzés: Che a következőket próbálja hozzáadni
mezők/pillanatkép- "EGYÉB különbség összege, 4096 összege
Különbség" több mint 80 mezőt kell
hozzáadott







EGYÉB Különbség



4096 Különbség



4016 Különbség
A weboldal moderátora ezt a megjegyzést minimalizálta
Ha az „Értékek
"0" vagy "Null" a sorértékek letiltása a megjelenítésből

(pl. 2743 különbség összege)





Pivot "Sorok"
Pivot "Értékek"





sorcímkék





NP9 – Összesen fel nem használt
Előirányzatok





EGYÉB különbség összege 1,045,355,165.31 XNUMX XNUMX XNUMX




3200 különbség összege
0.00




0108 különbség összege
12,873,630.29



4586 különbség összege
(33,024,706.93)



0148 különbség összege
(72,046,783.14)



0129 különbség összege
(5,583,891.98)



4598 különbség összege
(929,574.56)



2743 különbség összege



4041 különbség összege
0.00



2799 különbség összege
A weboldal moderátora ezt a megjegyzést minimalizálta
Van olyan mód a makró szerkesztésére, amely a mezőket a sorok címkéjébe küldi az értékek helyett?
A weboldal moderátora ezt a megjegyzést minimalizálta
Задача же не всегда стоит в получении списка, хочется допустим поправить названия таблиц илнныковххчеников. Можете реализовать?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, van mód arra, hogy csak a ki nem jelölt oszlopokat adjuk hozzá? Kösz. 
A weboldal moderátora ezt a megjegyzést minimalizálta
Ezt a kódot futtatom. Mennyi idő alatt készül el? Most 45 perce, és még mindig működik. Kérlek segíts. Egyébként az összes mező oszlopom 3600.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi