Para dar formato a números en una tabla dinámica usando VBA en Excel, primero necesitas identificar el campo específico al que deseas aplicar el formato. Una vez lo hayas identificado, puedes usar el método `NumberFormat` de VBA para especificar el formato que deseas aplicar. A continuación, te indico un ejemplo básico de cómo podrías hacerlo:

Sub FormatoTablaDinamica()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pf As PivotField
    
    ' Establece la hoja de cálculo que contiene la tabla dinámica
    Set ws = ThisWorkbook.Worksheets("NombreDeLaHoja")

    ' Establece la tabla dinámica (usa el nombre de tu tabla dinámica o su índice)
    Set pt = ws.PivotTables("NombreDeLaTablaDinamica")

    ' Establece el campo al que deseas dar formato
    Set pf = pt.PivotFields("NombreDelCampo")

    ' Aplica el formato de número deseado (p.ej. formato de moneda)
    pf.NumberFormat = "$#,##0.00"

End Sub

Instrucciones para usar el código:

• Abrir el Editor de VBA:
• Presiona `ALT + F11` para abrir el Editor de VBA.
• Insertar un Módulo:
• En el menú `Insertar`, selecciona `Módulo` para crear un módulo nuevo.
• Copiar y pegar el código:
• Copia el código de arriba y pégalo en el módulo que acabas de crear.
• Modificar parámetros:
• Cambia `»NombreDeLaHoja»` al nombre de tu hoja de cálculo que contiene la tabla dinámica.
• Cambia `»NombreDeLaTablaDinamica»` al nombre de tu tabla dinámica.
• Cambia `»NombreDelCampo»` al nombre del campo de la tabla dinámica al que deseas dar formato.
• Ejecutar la macro:
• Cierra el Editor de VBA y regresa a Excel.
• Presiona `ALT + F8`, selecciona `FormatoTablaDinamica` y haz clic en `Ejecutar`.

Este macro cambiará el formato del campo especificado en la tabla dinámica al formato de número que elegiste. Puedes modificar el `NumberFormat` en el código para aplicar diferentes tipos de formateo según tus necesidades.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto