¿Cómo configurar el diseño predeterminado para una tabla dinámica usando VBA?

Contenido

0.1 Paso a Paso:

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 configurar el diseño predeterminado de una tabla dinámica utilizando VBA en Excel, puedes utilizar el siguiente código como referencia. Este ejemplo ajusta el diseño a una «tabla» en lugar de «compacto» o «esquema», y activa algunos formatos básicos. Puedes ajustar estos valores según tus necesidades específicas.

Aquí tienes un ejemplo de cómo podrías hacerlo:

Sub ConfigurarDisenoTablaDinamica()
    Dim pt As PivotTable
    Dim ws As Worksheet
    
    ' Asegúrate de que la hoja de trabajo activa tenga una tabla dinámica
    Set ws = ActiveSheet
    
    ' Asegúrate de que la hoja de trabajo tiene al menos una tabla dinámica
    If ws.PivotTables.Count = 0 Then
        MsgBox "No hay tablas dinámicas en la hoja de trabajo activa."
        Exit Sub
    End If
    
    ' Trabajar con la primera tabla dinámica en la hoja de trabajo
    Set pt = ws.PivotTables(1)
    
    ' Cambiar el diseño a formato de tabla
    pt.RowAxisLayout xlTabularRow
    
    ' Desactivar sub-totales automáticos
    pt.RowGrand = False
    pt.ColumnGrand = False
    pt.Subtotals(1) = False
    
    ' Repetir etiquetas
    pt.RepeatAllLabels xlRepeatLabels
    
    ' Mostrar en formato compacto para ver la diferencia
    ' pt.InGridDropZones = True
    
    ' Mostrar valores en formato tabular
    pt.DisplayFieldCaptions = False
    
    ' Aplicar un estilo de formato deseado
    pt.TableStyle2 = "PivotStyleMedium9" ' Ajusta el estilo según tus necesidades
    
    MsgBox "¡El diseño de la tabla dinámica ha sido configurado!"
End Sub

Paso a Paso:

Abrir Editor de VBA: Pulsa `ALT` + `F11` para abrir el Editor de VBA en Excel.
Insertar un Módulo: En el menú de la izquierda, haz clic derecho en el proyecto de tu libro y selecciona `Insertar > Módulo`.
Pegar el Código: Copia y pega el código dentro del módulo.
Ejecutar el Código: Cierra el Editor de VBA y vuelve a Excel. Pulsa `ALT` + `F8`, selecciona `ConfigurarDisenoTablaDinamica` y haz clic en `Ejecutar`.

Este script configura una tabla dinámica seleccionada al diseño predeterminado especificado. Puedes ajustar más configuraciones según sea necesario agregando o modificando las propiedades del objeto `PivotTable`.

facebooklinkedin