Eliminare subtotali da tabella

Hai un problema con Excel?

Nuova discussione

Eliminare subtotali da tabella
di Utop (utente non iscritto) data: 04/05/2011
Salve a tutti...come da titolo vorrei sapere se conoscete un comando per non mostrare i subtotali di una tabella pivot. ho visto che è possibile farlo creando una matrice composta da elementi "false", tuttavia in questo caso dovrei sapere per ogni campo quanti subtotali sono stati generati. sto cercando una procedura più automatica che rimuove i subtotali di tutti i campi....esiste niente del genere??grazie in anticipo dell'aiuo
ActiveSheet.PivotTables(1).PivotFields(2). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False)
Eliminare subtotali da tabella
di Utop (utente non iscritto) data: 04/05/2011
Salve a tutti...come da titolo vorrei sapere se conoscete un comando per non mostrare i subtotali di una tabella pivot. ho visto che è possibile farlo creando una matrice composta da elementi "false", tuttavia in questo caso dovrei sapere per ogni campo quanti subtotali sono stati generati. sto cercando una procedura più automatica che rimuove i subtotali di tutti i campi....esiste niente del genere??grazie in anticipo dell'aiuo
ActiveSheet.PivotTables(1).PivotFields(2). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False)

Canc
di Isy (utente non iscritto) data: 04/05/2011
Ciao

' ricorda che devi lasciare almeno una selezione!

Sub ToglieSelezioni()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    With Worksheets("Rapporto").PivotTables(1).PivotFields(2)
        'On Error Resume Next
        For i = 1 To .PivotItems.Count - 1
            .PivotItems(i).Visible = False
        Next
    End With
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub

Vuoi Approfondire?