Visualizzazione del nome di una tabella pivot nella tabella pivot (Microsoft Excel)
David si chiede se esiste un modo per visualizzare il nome di una tabella pivot all’interno della tabella stessa.
La risposta breve è che non c’è modo di farlo automaticamente. La risposta più lunga è che puoi “barare” e forzare un nome nella tabella pivot. Ad esempio, puoi selezionare la cella dell’etichetta della riga nella tabella pivot e modificarla (F2), sostituendo tutto ciò che è presente con il nome che desideri digitare. Questo è tutt’altro che automatico e quando aggiorni la tabella pivot, dovrai ricordarti di modificare nuovamente la cella.
Un altro modo per forzare un nome nella tabella pivot consiste nell’utilizzare una macro. Probabilmente ci sono alcuni approcci che potresti adottare nella tua macro. Un approccio consiste nel creare una tabella dati su cui si baserà la tabella pivot. Assegna un’intestazione alla tabella dei dati, nella prima colonna. (Qualsiasi vecchio testo per l’intestazione andrà bene, poiché la macro lo sovrascriverà.)
Dopo aver creato la tabella pivot, eseguire la seguente macro. Determina il nome della tabella pivot, lo inserisce nell’intestazione della tabella dati, aggiorna la tabella pivot (in modo che il nome venga visualizzato lì), quindi aggiorna il nome del filtro del rapporto di tabella pivot in modo che sia uguale al nome della tabella pivot.
Sub GetPVName() Dim pvt As PivotTable Dim PVName As String ' Get the PivotTable name from the ActiveSheet ' If there are multiple PivotTables, this approach ' ensures the macro will work with the last PivotTable ' in the PivotTables collection For Each pvt In ActiveSheet.PivotTables PVName = pvt.Name Next pvt ' Put PivotTable name as a heading for the first ' column of the data table Range("Table1").Cells(0, 1) = PVName ' Refresh the PivotTable ActiveSheet.PivotTables(PVName).PivotCache.Refresh ' Set the PivotTable name in the report filter With ActiveSheet.PivotTables(PVName).PivotFields(PVName) .Orientation = xlPageField .Position = 1 End With End Sub
ExcelTips è la tua fonte di formazione economica su Microsoft Excel.
Questo suggerimento (3233) si applica a Microsoft Excel 2007, 2010, 2013 e 2016.