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 lista, lásd a képernyőképet:

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?