Come si fa ad aggiungere più campi a una tabella pivot?
Quando si crea una tabella pivot, di solito si trascinano i campi uno alla volta nell’area Etichette riga o Valori. Se l’elenco dei campi è lungo, aggiungerne alcuni come etichette di riga è semplice, ma inserire tutti gli altri nell’area Valori può richiedere molto tempo. Esiste un modo rapido per aggiungere tutti i campi rimanenti all’area Valori con un solo clic?
Aggiungi più campi all'area Valori di Tabella pivot con codice VBA
Aggiungi più campi all'area Valori di Tabella pivot con codice VBA
Attualmente Excel non offre una funzionalità nativa (ad esempio una casella di controllo «seleziona tutto») nel riquadro Elenco campi che consenta di aggiungere tutti i campi rimanenti direttamente all'area Valori con un solo clic. Tuttavia, è possibile ottenere questo risultato in modo efficiente utilizzando una semplice macro VBA. Questo approccio è particolarmente adatto se si deve ripetere frequentemente questa operazione o se si gestisce un numero elevato di campi dati. Di seguito sono riportati i passaggi dettagliati e le necessarie avvertenze per applicare questo metodo:
1. Dopo aver creato la tabella pivot, aggiunga i campi che desidera utilizzare come etichette di riga con il consueto metodo trascina-e-rilascia. Lasci non selezionati gli altri campi—quelli che intende riepilogare come valori—nella sezione Scegli i campi da aggiungere al rapporto del riquadro Elenco campi. Per riferimento, veda lo screenshot seguente:
2. Premere ALT + F11 per aprire la finestra dell’editor Microsoft Visual Basic, Applications. In alternativa, è possibile accedervi facendo clic su Sviluppo > Visual Basic dalla barra multifunzione di Excel. Assicurarsi di lavorare nella cartella di lavoro corretta.
3. Nella finestra di VBA, vai su Inserisci > Modulo per creare un nuovo modulo. Poi copia e incolla il seguente codice VBA nella finestra del modulo.
Codice VBA: Aggiungi più campi all'area Valori di Tabella 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. Successivamente, premere F5 per eseguire la macro oppure fare clic sul pulsante Esegui nella barra degli strumenti dell'editor VBA. La macro elaborerà tutte le tabelle pivot presenti nel foglio di lavoro corrente: per ciascuna, aggiungerà automaticamente all'area Valori tutti i campi non ancora utilizzati come etichette di riga o colonna. In questo modo, ogni campo dati disponibile verrà visualizzato come valore riepilogato nella tabella pivot, consentendo analisi complete in tempi rapidi. Per riferimento, veda lo screenshot seguente:
Nota: questa macro apporta modifiche a tutte le tabelle pivot presenti nel foglio di lavoro attivo al momento dell'esecuzione. Se sono presenti più tabelle pivot e si desidera aggiornarne solo una, si consiglia di spostare temporaneamente tale tabella pivot in un foglio separato. Prima di eseguire il codice VBA, ricordati sempre di salvare il tuo lavoro, poiché le macro possono apportare modifiche irreversibili. Inoltre, la macro tenterà di aggiungere tutti i campi rimanenti — inclusi quelli non adatti a un riepilogo numerico — il che potrebbe causare errori di riepilogo o risultati privi di significato per campi contenenti dati non numerici.
Articoli correlati:
Come elencare tutte le tabelle pivot presenti in una cartella di lavoro?
Come verificare se una tabella pivot è presente nella cartella di lavoro?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi