Come aggiungere più campi a una tabella pivot?

Quando creiamo una tabella pivot, dobbiamo trascinare i campi manualmente uno per uno nell'area Etichette di riga o Valori. Se abbiamo un elenco lungo di campi, possiamo aggiungere rapidamente alcune etichette di riga, ma i campi rimanenti devono essere aggiunti all'area Valori. Esistono metodi rapidi per aggiungere tutti gli altri campi all'area Valori con un solo clic nella tabella pivot?

Aggiungi più campi all'area Valori della tabella pivot con il codice VBA

Aggiungi più campi all'area Valori della tabella pivot con il codice VBA

Sfortunatamente, non esiste una casella di controllo che ci permetta di selezionare rapidamente tutti i campi nell'Elenco campi della tabella pivot con un solo clic, ma, con il seguente codice VBA, è possibile aggiungere contemporaneamente i campi rimanenti all'area Valori. Si prega di procedere come segue:

1. Dopo aver creato la tabella pivot, innanzitutto, dovresti aggiungere i campi delle etichette di riga secondo necessità, lasciando i campi dei valori nell'elenco Scegli campi da aggiungere al report, vedi screenshot:

2. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

3. Clicca su Inserisci > Modulo e incolla il seguente codice nella finestra Modulo.

Codice VBA: Aggiungi più campi all'area Valori delle tabelle pivot nel foglio di lavoro attivo

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. Quindi premi il tasto F5 per eseguire questo codice, tutti i campi rimanenti verranno aggiunti all'area Valori contemporaneamente, vedi screenshot:

Nota: Questo codice VBA si applica a tutte le tabelle pivot del foglio di lavoro attivo.

Articoli correlati:

Come elencare tutte le tabelle pivot in una cartella di lavoro?

Come verificare se esiste una tabella pivot in una cartella di lavoro?