¿Cómo puedo crear tabla dinámica con VBA

? Crear tablas dinámicas en Excel utilizando Visual Basic para Aplicaciones ( VBA ), puede ahorrar tiempo , debido a su no tener que crear las tablas manualmente. VBA es un lenguaje de programación utilizado en aplicaciones de Microsoft Office para automatizar tareas rutinarias, como la creación de una tabla dinámica . No gaste su tiempo en crear tablas pivote manualmente si tiene muchas hojas de su libro , en su lugar crear un procedimiento Sub para crear de forma dinámica . Cosas que necesitará
Microsoft Office Excel
Ver Más instrucciones
1

lanzamiento de Microsoft Office Excel y escriba " Cliente" en " A1 ", " elemento" en "B1 , " y " Cantidad " en " C1 " . Tipo de " Jon " en " A2 ", " Jon " en " A3 ", " Clara " en " A4 ", " Clara " en " A5 ", y " Clara " en " A6 " . Tipo "soda " en " B2 ", " cerveza " en " B3 ", "soda " en " B4 ", "agua" en " B5 " y " cerveza " en " A6 " . Tipo " 2 " en " C2 ", " 5 " en " C3 ", " 10 " en " C4 ", " 12 " en " C5 " y " 15 " en " C6 ".
2 < p> Haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic " para iniciar el Editor de Visual Basic . Escriba el siguiente código para crear un nuevo sub procedimiento VBA :

CreatePivotTable Sub Private ()
3

Crear las variables que va a utilizar para crear la tabla dinámica mediante la adición de la siguiente código:

pt As tabla dinámica

wrkSht Dim como hoja de trabajo

pvtSht Dim como hoja de trabajo

PTCache As PivotCache

Dim PRANGE como gama

finalRow Dim As Long

finalCol Dim As Long
4

Definir las hojas de trabajo que va a utilizar :

Set wrkSht = Worksheets ( " Sheet1" )

Set pvtSht = Worksheets ( " Hoja2 ")
5

determinar la fila y número de columnas con los datos :

finalRow = wrkSht.Cells ( Application.Rows.Count , 1 ) . End ( xlUp ) . Fila

finalCol wrkSht.Cells = ( 1 , Application.Columns.Count ) . End ( xlToLeft ) . Columna
6

Define el rango para los datos:

Set PRANGE wrkSht.Cells = ( 1 , 1 ) Cambiar el tamaño ( finalRow , finalCol )

Establecer PTCache = ActiveWorkbook.PivotCaches.Add ( SourceType . : = xlDatabase , SourceData : = Prange )
7

Crear la tabla dinámica en " Hoja2 : "

Set pt = PTCache.createPivotTable ( TableDestination : pvtSht.Cells = ( 1 , 1 ) , _

TableName : = " SamplePivot " )

pt.ManualUpdate = True
8

Definir el origen de datos para la tabla pivote :

pt.AddFields RowFields : . . = array (" elemento" )

pt.PivotFields ( " Cantidad " )

Orientación = xlDataField

Función = xlSum

. Posición = 1

extremo con

pt.ManualUpdate = False
9

termine su sub escribiendo "End sub ​​" en la final de su procedimiento. Pulse la tecla "F5 " para ejecutar el procedimiento y crear la tabla dinámica utilizando VBA.