Cómo crear un pivote en VBA

de Microsoft Visual Basic (VBA) es un escueto y principios del lenguaje de programación desarrollado para ayudar a crear aplicaciones de escritorio, 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. El uso de un pequeño fragmento de código VBA, puede crear un pivote de una tabla de datos existentes con relativa facilidad.

Instrucciones

1 Iniciar la secuencia de comandos de VBA escribiendo lo siguiente:

Create_Pivot_Table_From_Cache ()

2 Especificar los métodos de pivote siguiendo con las followinf tres líneas de código VBA:

Dim OPC como PivotCache

Dim opt como tabla dinámica

OWS dévil como hoja de trabajo

3 Especificar las funciones de OPC, OPT, y OWS añadiendo las siguientes líneas de código:

OWS = ActiveSheet

OPC = ActiveWorkbook.PivotCaches.Create (xlDatabase, oWS.UsedRange)

OPT = oPC.CreatvePivotTable (OWS. [D20], "Pivote de caché", True)

4 Especifican cómo los campos deben pivotar, 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 columna de datos pueden diferir de los suyos.

oPT.AddFields (oPT.PivotFields ( "Precio") .name

oPT.PivotFields ( "Producto") .Nombre)

oPT.AddDataField (oPT.PivotFields ( "Tipo"), "Tipo de producto", xlSum)

5 Ejecutar la secuencia de comandos de VBA dentro de un programa compatible, como Excel, y ver la mesa giratoria generada.