Shairal sviluppa tabelle pivot su base giornaliera, utilizzando varie origini dati come elenchi di Excel, tabelle di Access e dati OLAP. Una delle cose più irritanti che ha a che fare è sopprimere la funzione di totale parziale automatico su ogni campo, uno alla volta. Ciò può richiedere molto tempo a seconda del numero di campi utilizzati. Shairal si chiedeva se fosse più semplice utilizzare una macro per sopprimere i subtotali per tutti i campi contemporaneamente.

La risposta è che sarebbe più facile usare una macro. (Questo è lo scopo delle macro: prendersi cura delle cose noiose di cui ci si stanca.) Piuttosto che reinventare la ruota, tuttavia, una buona soluzione è considerare il seguente codice, adattato dal sito Microsoft MVP Debra Daglisesh:

Sub NoSubtotals()

'turns off subtotals in pivot table     '.PivotFields could be changed to     '.RowFields or .ColumnFields

Dim pt As PivotTable     Dim pf As PivotField

On Error Resume Next     For Each pt In ActiveSheet.PivotTables         For Each pf In pt.PivotFields             'First, set index 1 (Automatic) to True,             'so all other values are set to False             pf.Subtotals(1) = True             pf.Subtotals(1) = False         Next pf     Next pt End Sub

Visualizza semplicemente la tabella pivot che desideri modificare e quindi esegui la macro.

I subtotali per tutti i campi nella tabella pivot vengono eliminati contemporaneamente. L’originale di questo codice è disponibile qui, sul sito di Debra:

http://www.contextures.com/xlPivot03.html#Subtotals

Il sito contiene anche altre buone informazioni per lavorare con le tabelle pivot.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (3103) si applica a Microsoft Excel 97, 2000, 2002 e 2003.