Este consejo permite a los usuarios de su informe elegir entre varios formatos de tabla dinámica usando botones de opción y luego actualiza la tabla dinámica automáticamente. (Resulta útil cuando los usuarios tienen preferencias de formato de informe sin tener que ir a la barra de herramientas de la tabla dinámica y elegir una cada vez)
Paso uno:
Coloque un botón de opción (o varios) en cualquier lugar de la hoja de trabajo del informe de la tabla dinámica y nómbrelos como "Formato de informe 1", "Formato de informe 2", etc.
Para hacerlo, vaya a "Ver> Barras de herramientas> Formularios", elija "Botón de opción" en la caja de herramientas y arrástrelo a su informe.
Segundo paso:
Cree la macro yendo a "Herramientas> Macro> Macros", escriba un nombre como "Formato2" y luego "Crear"
Escriba o corte y pegue el siguiente código VB. (Nota: asegúrese de que su tabla dinámica esté etiquetada con el nombre predeterminado de "PivotTable1" haciendo clic con el botón derecho en cualquier lugar de la tabla dinámica, seleccione "Opciones de tabla" y observe el campo "Nombre". De lo contrario, tendrá que reemplazar el nombre de la tabla dinámica en el código siguiente con el nombre de la tabla dinámica):
Sub Formato2 ()
Macro de formato 2
ActiveSheet.PivotTables ("PivotTable1"). PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables ("PivotTable1"). Formato xlReport6
Celdas Seleccionar
Con selección
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = Falso
.Orientación = 0
.AddIndent = Falso
.IndentLevel = 0
.ShrinkToFit = Falso
.ReadingOrder = xlContext
Terminar con
Con selección
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = Falso
.Orientación = 0
.AddIndent = Falso
.IndentLevel = 0
.ShrinkToFit = Falso
.ReadingOrder = xlContext
Terminar con
Celdas Seleccionar
Selección.Columnas.Ajuste
Rango ("A1"). Seleccionar
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~
Puede crear diferentes macros de formato utilizando este mismo código y la única línea que tiene que cambiar es el "Formato xlReport6". Hay alrededor de 15 formatos de informes para elegir. Simplemente cambie el "xlReport (número)" de 1 a 15.
El código anterior también ajusta automáticamente las columnas y centra el texto después de que se haya formateado el informe.
Paso tres:
Asigne la macro al botón de opción haciendo clic derecho en el botón de opción, elija "Asignar macro" y simplemente elija la macro que acaba de crear. Haga esto para cada uno de sus botones de opción
¡Eso es todo! Ahora, cuando un usuario hace clic en un botón de opción, la tabla dinámica se actualizará automáticamente al formato en función de la opción de formato que se utilizó en la macro. Pruebe varios estilos de informes para ver cuáles se adaptan a sus necesidades y luego asígnelos a sus macros y botones de opción.
¡Tus usuarios estarán agradecidos y muy impresionados!
¡Buena suerte!
~ CJ