Cómo crear una Pivot en VBA

de Microsoft Visual Basic (VBA ) es un lenguaje de programación muy básicos y principios desarrollados para ayudar a crear aplicaciones de escritorio , de facilitar la clasificación de datos y permitir la generación de informes basados ​​en los datos . Usted puede utilizar esto también utilizar VBA para crear una tabla dinámica para resumir los datos en conjunto con un programa de hoja de cálculo como Microsoft Excel. Utilizando un pequeño fragmento de código VBA , puede crear un pivote de una tabla de datos existente con relativa facilidad. Instrucciones
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.