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
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>
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:
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 hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos felületet hoz 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!
