DONUT PROJECT 2015 - Excel - Remove Calculated Pivot Fields - Removendo Campos Calculados da Tabela Dinâmica

Sub RemoveCalculatedField() ' Remove a calculated field from a pivot table

Dim pvt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem

 

'Set Variable to Desired Pivot Table
Set pvt = ActiveSheet.PivotTables("PivotTable1")
'Set Variable Equal to Desired Calculated Data Field

 

For Each pf In pvt.DataFields

If pf.SourceName = "Inflation" Then Exit For

Next 

'Hide/Remove the Calculated Field
pf.DataRange.Cells(1, 1).PivotItem.Visible = False

End Sub

 Série de Livros nut Project 

  

Veja outros códigos:

  

 

 

 

 Série VBA Outlook: 

  

  

  

 Série DONUT PROJECT 2024 

  

  

  

  

 Série DONUT PROJECT 2021 

  

  

  

 Série DONUT PROJECT 2018 

  

   

  

  

 

 Série DONUT PROJECT 2015 

  

    

   

  

   

  

   

  

 

 Série DONUT PROJECT 2014 

   

   

  

  

    

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com