¿Cómo cambiar el diseño del informe de una tabla dinámica con VBA?

Contenido

0.1 Instrucciones:

1 Conoce nuestra tienda
- - 1.0.1 Ver más productos
2 Mejora tu nivel y logra tus objetivo
3 Ayúdanos a hacer crecer el proyecto
- 3.1 Relacionado

Para cambiar el diseño del informe de una tabla dinámica con VBA, puedes utilizar el objeto `PivotTable` en VBA para acceder a las propiedades que controlan el diseño de la tabla dinámica. A continuación, te proporciono un ejemplo de cómo lo puedes hacer:

Supongamos que tienes una hoja de cálculo con una tabla dinámica llamada «TablaDinámica1». Aquí tienes un ejemplo de código VBA que cambia el diseño del informe de esa tabla dinámica:

Sub CambiarDisenoInformeTablaDinamica()

    Dim pt As PivotTable
    Dim ws As Worksheet
    Dim workbook As Workbook
    
    ' Establecer la hoja de cálculo que contiene la tabla dinámica
    Set workbook = ThisWorkbook
    Set ws = workbook.Sheets("NombreDeTuHoja")
    
    ' Obtener la tabla dinámica
    Set pt = ws.PivotTables("TablaDinámica1")
    
    ' Cambiar el diseño del informe
    ' xlTabular (Diseño clásico), xlCompact (Diseño compacto), xlOutline (Diseño estructurado)
    pt.RowAxisLayout xlTabular
    
    ' Alternativamente, para un diseño compacto
    ' pt.RowAxisLayout xlCompact
    
    ' Cambiar otras configuraciones si lo deseas
    pt.ShowTableStyleRowStripes = True ' Mostrar líneas de filas
    pt.TableStyle2 = "PivotStyleLight16" ' Cambiar el estilo de la tabla
    
    ' Actualizar la tabla dinámica
    pt.RefreshTable

End Sub

Instrucciones:

Abrir el Editor de VBA: Presiona `ALT + F11` en Excel para abrir el Editor de VBA.
Insertar un Módulo: En el menú, selecciona `Insertar > Módulo` para crear un nuevo módulo.
Copiar el Código: Copia el código proporcionado arriba y pégalo en el módulo.
Modificar Nombres: Asegúrate de cambiar `»NombreDeTuHoja»` al nombre de la hoja donde se encuentra tu tabla dinámica, y `»TablaDinámica1″` al nombre real de tu tabla dinámica.
Ejecutar el Script: Presiona `F5` o ejecuta el script desde el menú `Ejecutar`.

Este código cambiará el diseño de la tabla dinámica a un diseño tabular. Puedes ajustar las propiedades según tus necesidades, como cambiar el estilo de la tabla o mostrar líneas de filas.

facebooklinkedin