¿Cómo mostrar totales generales en una tabla dinámica usando VBA?

Para mostrar totales generales en una tabla dinámica usando VBA en Excel, puedes configurar las propiedades de la tabla dinámica para habilitar los totales generales de filas y columnas. Aquí hay un ejemplo de cómo podrías hacerlo:

Sub AgregarTotalesGeneralesATablaDinamica()
    Dim pt As PivotTable
    Dim ws As Worksheet
    
    ' Cambia "Hoja1" y "TablaDinámica1" al nombre de tu hoja y tabla dinámica
    Set ws = ThisWorkbook.Worksheets("Hoja1")
    Set pt = ws.PivotTables("TablaDinámica1")
    
    ' Activa los totales generales para filas
    pt.RowGrand = True
    
    ' Activa los totales generales para columnas
    pt.ColumnGrand = True
    
    MsgBox "Totales generales activados para la tabla dinámica."
End Sub

Instrucciones:

Abre el Excel y presiona `ALT + F11` para abrir el Editor de VBA.
En el Editor de VBA, inserta un nuevo módulo desde `Insertar > Módulo`.
Copia y pega el código anterior en el módulo.
Ajusta los nombres del `Worksheet` y `PivotTable` en el código para que coincidan con los que tienes en tu archivo.
Ejecuta el macro presionando `F5` o desde `Ejecutar > Ejecutar Sub/Macro`.

Este código VBA activará los totales generales tanto para las filas como para las columnas de la tabla dinámica especificada. Ajusta el nombre de la hoja de trabajo y la tabla dinámica en el código según sea necesario. Si los totales generales ya están activados, este código no hará cambios visibles pero asegurará que dichos totales estén habilitados.