Visual Basic para Aplicaciones - PivotItems en Tabla Dinamicas

Life is soft - evento anual de software empresarial
   
Vista:

PivotItems en Tabla Dinamicas

Publicado por Jose (4 intervenciones) el 06/06/2008 12:30:00
Hola,

Para una tabla dinámica en la que quiero calcular un dato mensual acumulado hago el siguiente filtrado de meses:

(ej; Abril)

With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("MES")

.PivotItems("0").Visible = True
.PivotItems("1").Visible = True
.PivotItems("2").Visible = True
.PivotItems("3").Visible = True
.PivotItems("4").Visible = True
.PivotItems("5").Visible = False
.PivotItems("6").Visible = False
.PivotItems("7").Visible = False
.PivotItems("8").Visible = False
.PivotItems("9").Visible = False
.PivotItems("10").Visible = False
.PivotItems("11").Visible = False
.PivotItems("12").Visible = False

End With

Con este código consigo obtener bien el resultado, pero como quiera que la Tabla Dinámica tiene como fuente de datos externos una tabla Access con millones de datos, hace que este proceso sea muy lento, ya que recalcula la Tabla Dinamica para cada PivotItem (12 veces). ¿Hay algún código que que fije todos los PivotItems que yo deseo al mismo tiempo?

Gracias

Jose
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder