Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako dodati več polj v pivot tabelo?

Ko ustvarimo vrtilno tabelo, jih moramo poljubno povleciti v oznake vrstice ali vrednosti ročno. Če imamo dolg seznam polj, lahko hitro dodamo nekaj vrstic vrstic, preostala polja pa dodamo na območje Vrednost. Ali obstajajo kakšni hitri načini, da dodamo vsa druga polja v območje Vrednost z enim klikom v pivot tabeli?

Dodajte več polj v polje Vrednost pivotne tabele s kodo VBA


puščica modra desno mehurček Dodajte več polj v polje Vrednost pivotne tabele s kodo VBA


Na žalost ni nobenega potrditvenega polja za hitro preverjanje vseh polj v seznamu polj Pivot Table Table, vendar z naslednjo kodo VBA vam lahko pomaga dodati preostala polja v območje Vrednosti hkrati. Prosimo, naredite naslednje:

1. Ko ustvarite pivot tabelo, morate najprej dodati polja vrstice oznak kot svojo potrebo in zapustiti polja z vrednostmi v Izberite polja, ki jih želite dodati poročilu seznam, si oglejte posnetek zaslona: </ p>

doc-add-multiple-fields-1

2. Drži dol ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic za aplikacije.

3. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Okno modula.

VBA koda: Dodajte več polj v območje vrednosti vrtilnih tabel v aktivnem delovnem listu

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. Nato pritisnite F5 ključno za zagon te kode, so bila vsa preostala polja hkrati dodana na območje Vrednosti, glejte sliko zaslona:

doc-add-multiple-fields-1

Opombe: Ta VBA koda se uporablja za vse vrtilne tabele aktivnega delovnega lista.


Sorodni članki:

Kako v seznam vseh vrtilnih tabel izdelati delovni zvezek?

Kako preveriti, ali obstaja vrtilna tabela v delovnem zvezku?



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Neville · 11 months ago
    Works like a charm. Thanks
  • To post as a guest, your comment is unpublished.
    Zeeshan · 1 years ago
    Hi.

    It gives me a compile error when I click on Run

    Please help
  • To post as a guest, your comment is unpublished.
    Shaun Sheys · 1 years ago
    Does "xlDataField" not work with PowerPivot? I've got the code below, which is used to add all measures to the pivot table. It works with "xlColumnField" and "xlRowField". Any ideas how to make this work?

    Sub AddAllFieldsValues()
    Dim pt As PivotTable
    Dim iCol As Long
    Dim iColEnd As Long

    Set pt = ActiveSheet.PivotTables(1)

    With pt

    iCol = 1
    iColEnd = .CubeFields.Count

    For iCol = 1 To iColEnd
    With .CubeFields(iCol)
    If .Orientation = xlHidden Then
    .Orientation = xlDataField
    End If
    End With
    Next iCol

    End With

    End Sub
  • To post as a guest, your comment is unpublished.
    Sajal · 1 years ago
    This is great! Thanks.
  • To post as a guest, your comment is unpublished.
    sourav · 1 years ago
    Its takiung value as count. how can i convert all count as Sum