Hur lägger jag till flera fält i pivottabellen?
När vi skapar en pivottabell måste vi dra fälten manuellt till radetiketterna eller värdena en efter en. Om vi har en lång lista med fält kan vi snabbt lägga till några radetiketter, men de återstående fälten bör läggas till i området Värde. Finns det några snabba metoder för oss att lägga till alla andra fält i värdeområdet med ett klick i pivottabellen?
Lägg till flera fält i värdeområdet i pivottabellen med VBA-kod
Lägg till flera fält i värdeområdet i pivottabellen med VBA-kod
Tyvärr finns det ingen kryssruta för oss att snabbt markera alla fält i pivottabellens fältlista med ett klick, men med följande VBA-kod kan det hjälpa dig att lägga till de återstående fälten i området Värden på en gång. Gör så här:
1. När du har skapat pivottabellen bör du först lägga till radetikettfälten som du behöver och lämna värdefälten i Välj fält att lägga till i rapporten lista, se skärmdump: </ p>
2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.
3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: Lägg till flera fält i värdet i pivottabeller i det aktiva kalkylbladet
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. Tryck sedan på F5 nyckeln för att köra den här koden, alla återstående fält har lagts till i området Värden samtidigt, se skärmdump:
Anmärkningar: Denna VBA-kod tillämpas på alla pivottabeller i det aktiva kalkylbladet.
Relaterade artiklar:
Hur listar jag alla pivottabeller i en arbetsbok?
Hur kontrollerar jag om det finns en pivottabell i en arbetsbok?
Bästa kontorsproduktivitetsverktyg
Överlägsna dina Excel-kunskaper med Kutools for Excel, och upplev effektivitet som aldrig förr. Kutools for Excel Erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Office Tab Ger gränssnitt med flikar till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
