1
Iniciar la secuencia de comandos VBA escribiendo lo siguiente :
Create_Pivot_Table_From_Cache ()
2
Especificar los métodos para el pivote , siguiendo con el followinf tres líneas de código VBA :
Dim OPC como PivotCache
OPT As tabla dinámica
oWS Dim como hoja de trabajo
3
Especificar las funciones de la OPC , opt y oWS añadiendo las siguientes líneas de código:
OWS = ActiveSheet
OPC = ActiveWorkbook.PivotCaches.Create ( xlDatabase , oWS.UsedRange )
< p> Opt = oPC.CreatvePivotTable ( oWS. [ D20 ] , " Pivot de caché " , True)
4
Especificar cómo los campos deben pivote, o calcular los datos , mediante el uso de las siguientes líneas de código . Tenga en cuenta que en este ejemplo, los nombres de los campos de columnas de datos pueden ser diferentes a la suya.
OPT.AddFields
( oPT.PivotFields ( "Precio") . Nombre,
oPT.PivotFields
( "Producto" ) . Name)
oPT.AddDataField ( oPT.PivotFields ( "tipo ") , "Tipo de producto " , xlSum )
5
Ejecute el script de VBA dentro de un programa compatible, como Excel , y ver el generado pivotan mesa.