Formula1 3D Menu Excel

🔝To change the language of this blog post, choose it from the Google box at the top left.

ACTUALIZACIÓN del 20 de noviembre: Descarga abajo la versión 1.15 con los datos de la última carrera de esta temporada en Emiratos Árabes Unidos.

Se me ha ocurrido adaptar una plantilla de la interesante página de ExcelVisual, con la autorización de su autor original (enlace a Twitter), para visualizar datos de la Formula1 con un Menú 3D que simula un efecto de gamificación al seleccionar un piloto de carreras.

En un artículo anterior presenté el Menú 3D en su versión original y le di todo el crédito a su autor:

Impresionante Excel Visual | #ExcelPedroWave

Ahora verás cómo he creado este nuevo Menú 3D de Formula1 en Excel, con el siguiente aspecto visual:

Vídeo del nuevo Menú 3D

El resultado se aprecia mejor en este vídeo con datos de la Formula1:

Características del nuevo Menú 3D

Para tratar de hacer que este Menú 3D sea más fácil de usar, he modificado las hojas originales:

1. Traduciendo todo al inglés. En la versión original había una mezcla de inglés y ruso.
2. Eliminando datos del Menú 3D de la hoja 'DASHBOARD' y conteniendo  únicamente objetos visuales, con lo que se ha separado la capa de presentación visual (frontend - interfaz de usuario) de la capa de acceso a datos (backend - procesamiento de datos).
3. Añadiendo un nuevo dato a la hoja 'DASHBOARD' para modificar la velocidad (Speed) de rotación del Menú 3D, de 1 (mínima) a 7 (máxima).
4. Consolidando todos los datos del Menú 3D en la hoja 'MENU', incluidos los que había en la hoja 'Processing'.
5. Protegiendo todas las hojas sin contraseña.
6. Eliminando el mapa de calor de USA, hecho con tantas formas como estados USA.
7. Añadiendo un gráfico de mapa coroplético, fácilmente programable para visualizar todos los países del mundo, aunque solamente está incluido en las versiones recientes de Excel 2019, Excel 2021 y Excel para Microsoft 365.
8. Usando la herramienta de cámara de Excel para incrustar los datos de los equipos y los pilotos de Formula1.
9. Insertando un gráfico de línea de tiempo (timeline chart) para visualizar los ganadores de las carreras de Formula1.
10. Creando unos cuantos nombres definidos para las celdas y los rangos de la hoja 'MENU':

Hojas del Menú 3D

He adaptado las hojas para visualizar datos de la Formula1.

Hoja 'DASHBOARD': Contiene todos los elementos visuales.

• FORMULA1 3D MENU: Con los 5 pilotos de Formula1 y la posibilidad de visualizarlos todos a la vez. Además con el nuevo cambio de velocidad: Speed, con 7 velocidades: de x1 a x7.

• TEAMS: Con 3 equipos de Formula1 mediante captura de cámara que, al ser muy lenta de refresco, obliga a ocultarla durante el efecto carrusel.

• DRIVERS: Con 5 pilotos de Formula1 mediante captura de cámara que, al ser muy lenta de refresco, obliga a ocultarla durante el efecto carrusel.

• COUNTRIES: Con los países de los pilotos mediante segmentación de datos de países y de grupos de países por: Driver; Team; Win1; Win2; Win3, con los países donde han ganado carreras los 3 primeros pilotos.

• MAP: Con un mapa coroplético automático, visualizando solo regiones con datos y mostrando todas las etiquetas.

• RACES: Con un gráfico de línea de tiempo con las carreras de Formula1 celebradas en 2022, pudiendo seleccionar por fecha de las carreras con una segmentación de datos.

Hoja 'MENU' con los datos del Menú 3D:

• Posición: myPosStart en la celda B2 y myPosEnd en la celda B3.
• My drive: valor del piloto seleccionado con myMenu en la celda B4.
• New: identifica al nuevo piloto con myMenuNew en la celda B5.
• Old:  identifica al viejo piloto con myMenuOld en la celda B11.
• Drivers: Los 5 pilotos en el rango B6:B10.
• Width: Columna C con el ancho de las imágenes de cada piloto cuando gira el Menú 3D.
• Height: Columna D con el alto de las imágenes de cada piloto cuando gira el Menú 3D.
• Keys: Columna E con las claves del movimiento de las imágenes cuando gira el Menú 3D.
• Opt Pos: Columna F con la posición de las 5 imágenes de los pilotos.
• P1 a P5: Posición de las imágenes en el rango F2:K6.
• L1 a L5: Bucles de las imágenes en el rango L2:P5.

Hoja 'MALL' con datos e imágenes de los 5 pilotos y sus equipos.

Hojas 'M1' a 'M5' con datos e imágenes de cada piloto y su equipo.

Hoja 'MAP' con la tabla de países filtrada por el piloto elegido, por ejemplo M1 para Carlos Sainz.

• Country: País.
• Group: con el grupo del país del piloto (Driver), del equipo (Team) y de los 3 primeros premios de las carreras (Win1, Win2, Win3).
• Driver: con la identificación de los pilotos de M1 a M5.

Hoja 'RACES' con las carreras filtradas por fecha y piloto.

• Date: Fecha de la carrera.
• Race: Ciudad del circuito de carreras.
• Winner: Posición en el pódium de los ganadores de cada carrera, debiendo editar un 3 para el primero; un 2 para el segundo y un 1 para el tercero.
• Driver: con la identificación de los pilotos de M1 a M5.
• Name: nombre del piloto.

Macros del nuevo Menú 3D

He intentado mejorar las macros VBA del modelo original de ExcelVisual:

1. Añadiendo indentación en las macros para que sean más fáciles de leer.
2. Añadiendo información de cada macro, como autor original y fecha de último cambio.
3. Simplificando las macros con nombres definidos y usando la instrucción With.
4. Referenciando rangos de la hoja 'MENU'.
5. Separando las macros del Menú 3D del resto de macros.
6. Retrasando la ejecución de los bucles durante el movimiento con efecto carrusel.

Las macros que mueven el Menú 3D y lo hacen interactivo son las siguientes en cada módulo:

Module1_Optmenu: con la macro que selecciona al piloto.

• Optmenu: Obtiene el piloto elegido con la propiedad Application.Caller, que devuelve el nombre del objeto seleccionado, en este caso la imagen de un piloto en el Menú 3D.

' ---------------------------------------------------------------------------------------------------------------------------------- ' VBA Project: Formula1 3D Menu Excel ' Module: Module1_Optmenu ' Author: lux, https://exceltable.com/en/templates/3d-menu-for-dashboard-in-excel ' Copyright: © 2022 by Pedro Wave, https://pedrowave.blogspot.com ' Last edit: 2022-05-30 by Pedro Wave ' Purpose: 3D Menu Option ' ---------------------------------------------------------------------------------------------------------------------------------- Option Explicit Sub Optmenu() ' ' 3D Menu Option ' Dim iMenu As Integer Dim arr As Variant Dim iValue As Integer iMenu = Right$(Application.Caller, 1) arr = Range("Range_PosEnd") iValue = arr(1, iMenu) iValue = iValue - IIf(iValue > 360, 360, 0) With Range("myPosEnd") If .Value = iValue Then Exit Sub With Sheets("DASHBOARD") .Shapes("Image Drivers").Visible = msoFalse .Shapes("Image Teams").Visible = msoFalse End With Range("myPosStart").Value = .Value .Value = arr(WorksheetFunction.Match(.Value, Range("Range_OptPos"), 0), iMenu) Call CircularMotionMenu .Value = .Value - IIf(.Value > 360, 360, 0) End With Range("myMenu").Value = iMenu Range("myMenuNew").Value = iMenu VisualF1 "M" & iMenu End Sub

Module2_CircularMotion: Con las macros que producen el efecto carrusel.

• CircularMotionMenu: Bucle para girar el Menú 3D en el sentido de las agujas del reloj.
• ChangeSpeed: Función para obtener el cambio de velocidades de rotación del carrusel.
• WaitDelay: Macro para retardar la ejecución del movimiento circular, cediendo la ejecución a otros procesos del sistema operativo mediante la función DoEvents.
• Incluye 3 constantes necesarias para el movimiento circular del Menú 3D.

' ---------------------------------------------------------------------------------------------------------------------------------- ' VBA Project: Formula1 3D Menu Excel ' Module: Module2_CircularMotion ' Author: lux, https://exceltable.com/en/templates/3d-menu-for-dashboard-in-excel ' Copyright: © 2022 by Pedro Wave, https://pedrowave.blogspot.com ' Last edit: 2022-06-05 by Pedro Wave ' Purpose: Circular Motion 3D Menu ' ---------------------------------------------------------------------------------------------------------------------------------- Option Explicit Public Const CTE_SCALEW As Single = 1.2 Public Const CTE_SCALEH As Single = 0.4 Private Const CTE_TEMPO As Integer = 5 Sub CircularMotionMenu() ' ' Circular Motion 3D Menu ' Dim carousel As ChartObject Dim arrSizes As Variant Dim arrLoop As Variant Dim iLoop As Integer Dim iPosStart As Integer Dim iPosEnd As Integer Dim iStart As Integer Dim iEnd As Integer Dim iKey As Integer Dim ii As Integer Dim li As Long Dim bSum As Boolean Dim sgSpeed As Single Set carousel = Sheets("DASHBOARD").ChartObjects("Carousel1") iPosStart = Range("myPosStart").Value iPosEnd = Range("myPosEnd").Value iStart = Int(iPosStart / CTE_TEMPO) iEnd = Int(iPosEnd / CTE_TEMPO) arrLoop = Range("Range_Loop") sgSpeed = ChangeSpeed For iLoop = iStart To iEnd WaitDelay sgSpeed carousel.Activate ActiveChart.PlotArea.Format.ThreeD.RotationX = -iLoop * CTE_TEMPO For ii = 1 To 5 With Sheets("DASHBOARD").Shapes("OptionGroup" & ii) .Left = ActiveChart.SeriesCollection(1).Points(ii).DataLabel.Left + carousel.Left .Top = ActiveChart.SeriesCollection(1).Points(ii).DataLabel.Top + carousel.Top Select Case ii Case 1, 2, 3 bSum = (iLoop < arrLoop(1, ii) Or iLoop > arrLoop(2, ii)) And (iLoop < arrLoop(3, ii) Or iLoop > arrLoop(4, ii)) Case 4, 5 bSum = Not ((iLoop < arrLoop(1, ii) Or iLoop > arrLoop(2, ii)) And (iLoop < arrLoop(3, ii) Or iLoop > arrLoop(4, ii))) End Select .Width = .Width + CTE_SCALEW * IIf(bSum, 1, -1) .Height = .Height + CTE_SCALEH * IIf(bSum, 1, -1) End With Next ii Next iLoop arrSizes = Range("Range_Sizes") iKey = (iPosEnd - IIf(iPosEnd > 360, 360, 0)) * 10 For ii = 1 To 5 With Sheets("DASHBOARD").Shapes("OptionGroup" & ii) li = WorksheetFunction.Match(iKey + ii, Range("Range_Keys"), 0) .Width = arrSizes(li, 1) + CTE_SCALEW .Height = arrSizes(li, 2) + CTE_SCALEH End With Next ii End Sub Function ChangeSpeed() As Single ' ' Change circular motion speed ' ChangeSpeed = (11 - Range("mySpeed").Value2) * 0.01 End Function Sub WaitDelay(sgSpeed As Single) ' ' Waiting with a delay ' Dim sgTimer As Single ' Set timer sgTimer = Timer + sgSpeed ' Loop with the delay Do ' Yield to other processes DoEvents DoEvents DoEvents Loop While Timer < sgTimer End Sub

Module3_Transformer: Con las macros que transforman el carrusel en todos los pilotos o en un piloto.

• TransformerMenu: Transforma el Menú 3D para visualizar a todos los pilotos.
• UntransformerMenu: Transforma el Menú 3D para visualizar a un único piloto.

' ---------------------------------------------------------------------------------------------------------------------------------- ' VBA Project: Formula1 3D Menu Excel ' Module: Module3_Transformer ' Author: lux, https://exceltable.com/en/templates/3d-menu-for-dashboard-in-excel ' Copyright: © 2022 by Pedro Wave, https://pedrowave.blogspot.com ' Last edit: 2022-06-05 by Pedro Wave ' Purpose: 3D Menu Transformer ' ---------------------------------------------------------------------------------------------------------------------------------- Option Explicit Sub TransformerMenu() ' ' 3D Menu Transformer ' Dim chCarousel As ChartObject Dim sgOptGroup As Integer Dim iScaleWH As Integer Dim ii As Integer Dim ij As Integer Dim iStart As Integer Dim sgSpeed As Single With Sheets("DASHBOARD") .Shapes("Image Drivers").Visible = msoFalse .Shapes("Image Teams").Visible = msoFalse Set chCarousel = .ChartObjects("Carousel1") Range("myMenuOld").Value = Range("myMenuNew").Value sgOptGroup = .Shapes("OptionGroup1").Width sgSpeed = ChangeSpeed For ii = 0 To 10 WaitDelay sgSpeed iScaleWH = ii * 5 For ij = 1 To 5 With .Shapes("OptionGroup" & ij) .Width = sgOptGroup * (100 - iScaleWH) / 100 .Left = .Left + iScaleWH / 10 End With Next ij Next ii .Shapes("SelectNum").Visible = msoFalse For ij = 1 To 5 .Shapes("OptionGroup" & ij).Visible = msoFalse Next ij UnprotectSheet .Name End With With Sheets("DASHBOARD").ChartObjects("Together") .Visible = msoTrue .Top = chCarousel.Top - 8 .Left = chCarousel.Left + 20 .Width = chCarousel.Width + 31 .Height = chCarousel.Height + 57 For ii = 0 To 20 WaitDelay sgSpeed iStart = 15 + ii * 4 .Height = .Height - 8 .Activate ActiveChart.PlotArea.Format.ThreeD.RotationY = iStart ActiveChart.PlotArea.Format.ThreeD.RotationX = -iStart ActiveChart.SeriesCollection(1).Explosion = 400 - (ii * 5 * 4) Next ii End With ProtectSheet "DASHBOARD" Range("myMenuNew").Value = "ALL" VisualF1 "MALL" End Sub Sub UntransformerMenu() ' ' 3D Menu Untransformer ' Dim chTogether As ChartObject Dim sgOptGroup As Single Dim iScaleWH As Integer Dim iKey As Integer Dim arr As Variant Dim ii As Integer Dim ij As Integer Dim li As Long Dim iStart As Integer Dim sNew As String Dim sgSpeed As Single arr = Range("Range_Sizes") With Sheets("DASHBOARD") .Shapes("Image Drivers").Visible = msoFalse .Shapes("Image Teams").Visible = msoFalse Set chTogether = .ChartObjects("Together") sgOptGroup = .Shapes("OptionGroup1").Width .Shapes("ALL").Visible = msoFalse .Shapes("SelectNum").Visible = msoTrue UnprotectSheet .Name sgSpeed = ChangeSpeed For ii = 0 To 20 WaitDelay sgSpeed iStart = 15 + ii * 4 chTogether.Height = chTogether.Height + 8 chTogether.Activate ActiveChart.PlotArea.Format.ThreeD.RotationY = 110 - iStart ActiveChart.PlotArea.Format.ThreeD.RotationX = iStart ActiveChart.SeriesCollection(1).Explosion = ii * 5 * 4 Next ii ProtectSheet .Name chTogether.Activate ActiveChart.PlotArea.Format.ThreeD.RotationX = 0 chTogether.Visible = msoFalse For ij = 1 To 5 .Shapes("OptionGroup" & ij).Visible = msoTrue Next ij For ii = 0 To 10 WaitDelay sgSpeed iScaleWH = ii * 5 For ij = 1 To 5 With .Shapes("OptionGroup" & ij) .Width = sgOptGroup * (100 + iScaleWH) / 100 .Left = .Left - iScaleWH / 10 End With Next ij Next ii iKey = Range("myPosEnd").Value * 10 For ij = 1 To 5 With .Shapes("OptionGroup" & ij) li = WorksheetFunction.Match(iKey + ij, Range("Range_Keys"), 0) .Width = arr(li, 1) + CTE_SCALEW .Height = arr(li, 2) + CTE_SCALEH End With Next ij End With sNew = Range("myMenuOld").Value Range("myMenuNew").Value = sNew VisualF1 "M" & sNew End Sub

Module4_Formula1: Con las macros que visualizan los datos de los pilotos de Formula1.

• VisualF1: Lanza las macros de los pilotos.
• ChangeCameras: Macro para cambiar las herramientas de cámara de Excel.
• ChangeMap: Macro para filtrar la tabla de países que se verán en el gráfico de mapa coroplético.
• ChangeRaces: Macro para filtrar el gráfico de línea de tiempo con las carreras de Formula1. Observa como consigo crear un pódium con los 3 pilotos ganadores de cada carrera. Los valores del campo Winner en la tabla son: 3, 2 y 1 para que en el gráfico tenga más altura el piloto ganador. Se convierten en los puestos 1, 2 y 3 gracias a un formato de celdas de número personalizado del tipo: [>2]1;[<2]3;0
• ProtectSheet: Macro para proteger una hoja.
• UnprotectSheet: Macro para desproteger una hoja.

' ---------------------------------------------------------------------------------------------------------------------------------- ' VBA Project: Formula1 3D Menu Excel ' Module: Module4_Formula1 ' Author: lux, https://exceltable.com/en/templates/3d-menu-for-dashboard-in-excel ' Copyright: © 2022 by Pedro Wave, https://pedrowave.blogspot.com ' Last edit: 2022-05-30 by Pedro Wave ' Purpose: Formula1 data visualization ' ---------------------------------------------------------------------------------------------------------------------------------- Option Explicit Sub VisualF1(sMenu As String) ' ' Formula1 data visualization ' sMenu: MALL, M1 to M5 ' Application.ScreenUpdating = False ChangeCameras sMenu ChangeMap sMenu ChangeRaces sMenu Range("mySpeed").Select Application.ScreenUpdating = True End Sub Sub ChangeCameras(sMenu As String) ' ' Change drivers and teams with the Excel camera tool ' With Sheets("DASHBOARD") If sMenu = "MALL" Then .Shapes("ALL").Visible = msoTrue End If With .Shapes("Image Drivers") .Visible = msoTrue .Select Selection.Formula = "='" & sMenu & "'!A1:E6" End With With .Shapes("Image Teams") .Visible = msoTrue .Select Selection.Formula = "='" & sMenu & "'!A8:E19" End With End With End Sub Sub ChangeMap(sMenu As String) ' ' Change map ' With Sheets("MAP") UnprotectSheet .Name With .ListObjects("TableMap").Range If sMenu = "MALL" Then .AutoFilter Field:=3 Else .AutoFilter Field:=3, Criteria1:=sMenu End If End With ProtectSheet .Name End With End Sub Sub ChangeRaces(sMenu As String) ' ' Change races winners ' Dim lFilas As Long lFilas = Application.WorksheetFunction.CountA(Range("RACES!A:A")) With Sheets("RACES") UnprotectSheet .Name With .ListObjects("TableRaces").Range If sMenu = "MALL" Then .AutoFilter Field:=4 Else .AutoFilter Field:=4, Criteria1:=sMenu End If End With ProtectSheet .Name End With With Sheets("DASHBOARD") UnprotectSheet .Name .ChartObjects("Graph Races").Activate On Error GoTo ERR1 ActiveChart.FullSeriesCollection(1).XValues = "=RACES!A2:B" & lFilas ActiveChart.FullSeriesCollection(1).ApplyDataLabels ActiveChart.FullSeriesCollection(1).DataLabels.Select With Selection.Format.TextFrame2.TextRange.Font.Fill .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorBackground1 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 .Solid End With ActiveChart.SeriesCollection(1).DataLabels.Format.TextFrame2.TextRange. _ InsertChartField msoChartFieldRange, "=RACES!E2:E" & lFilas, 0 Selection.ShowRange = True Selection.Separator = "" & Chr(13) & "" ActiveChart.FullSeriesCollection(1).DataLabels.NumberFormatLinked = 0 Selection.NumberFormat = "[>2]1;[<2]3;0" With ActiveChart.Axes(xlCategory) .Select If sMenu = "MALL" Then .TickLabelSpacing = 3 .TickMarkSpacing = 3 Else .TickLabelSpacing = 1 .TickMarkSpacing = 1 End If End With ERR1: ProtectSheet .Name End With End Sub Sub ProtectSheet(sSheet As String) ' ' Protect sheet ' With Sheets(sSheet) If sSheet = "DASHBOARD" Then .Protect DrawingObjects:=False, Contents:=True, Scenarios:=True Else .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True End If End With End Sub Sub UnprotectSheet(sSheet As String) ' ' Protect sheet ' Sheets(sSheet).Unprotect End Sub

Descarga del Menú 3D de Formula1

ACTUALIZADO: 2022-11-21 con la última carrera de esta temporada el 20 de noviembre en Emiratos Árabes Unidos.

Puedes descargar este nuevo Menú 3D con datos de 5 pilotos de Formula1 v1.14 desde estos enlaces:

• Microsoft OneDrive: Formula1 3D Menu Excel - PW1.xlsm

• Sites Google Drive: Formula1 3D Menu Excel - PW1.xlsm

Abre la plantilla con una versión de Excel de escritorio igual o superior a Excel 2019 y presiona el botón: Habilitar edición

Aparece RIESGO DE SEGURIDAD Microsoft ha bloqueado la ejecución de macros porque el origen de este archivo no es de confianza. Con un botón: Obtener más información

Para desbloquear el archivo se debe abrir el Explorador de archivos y hacer clic con el botón derecho del ratón sobre el archivo, seleccionando Propiedades.

Marcar la casilla: Desbloquear y hacer clic en el botón: Aplicar

Abrir el archivo de nuevo, apareciendo una ADVERTENCIA DE SEGURIDAD: Las macros se han deshabilitado. Presiona el botón: Habilitar contenido

Esta plantilla contiene macros y no está protegida, por lo que se pueden estudiar y analizar las fórmulas y el código VBA.

Si te gusta, gracias por tus comentarios y por compartir este artículo en tus redes de entusiastas de Excel.

Ejemplo de Gráfico Solar en Excel

Hasta ahora he escrito dos artículos sobre gráficos solares:

Gráfico Solar en Excel | #ExcelPedroWave

Cómo hacer un gráfico solar | #ExcelPedroWave

Por lo tanto este es el tercer artículo sobre gráficos solares, pues me habéis pedido algún ejemplo con datos de ventas, en lugar de datos PVPC que sólo sirven para representar la tarifa regulada en España.

En esta imagen de un nuevo gráfico solar se visualizan las ventas mensuales de 2021 de una empresa ficticia:

En este gráfico solar cada uno de los meses es un segmento de 30 grados y el valor de las ventas es la altura del segmento.

Está hecho con un par de tablas auxiliares, en lugar de usar complicados nombres definidos, como hice en el gráfico solar de los anteriores artículos. Por lo que es una versión simplificada y apta para usuarios de Excel que se manejen habitualmente con tablas y fórmulas.

Otros gráficos que visualizan ventas mensuales

En un gráfico circular se visualizan inadecuadamente los datos de ventas mensuales, pues los segmentos son de la misma altura y los grados del segmento son proporcionales al valor de las ventas, lo que hace que no se puedan comparar valores de meses distintos.

En un gráfico de anillo pasa lo mismo que en un gráfico circular, ¡no se aprecian las ventas!

Un gráfico de columnas visualiza correctamente las ventas mensuales, pues se puede comparar entre meses, aunque ¡está muy visto!

Un gráfico de barras es la representación visual más adecuada para comparar ventas mensuales, aunque,  ¡es el más usado! y por lo tanto ¡el más aburrido! 

¿Por qué vamos a representar siempre datos en barras o en columnas?

¡Cuando podemos visualizar los datos en un gráfico solar impactante y poco visto!

Descarga el nuevo gráfico solar

Puedes descargar este nuevo gráfico solar v3.0 desde estos enlaces:

• Microsoft OneDrive: Gráfico Solar Ventas - PW3.xlsm

• Sites Google Drive: Gráfico Solar Ventas - PW3.xlsm

Abre la plantilla con una versión de Excel de escritorio igual o superior a Excel 2010 y presiona el botón: Habilitar edición

Aparece una ADVERTENCIA DE SEGURIDAD: Las macros se han deshabilitado. Presiona el botón: Habilitar contenido

Esta plantilla contiene macros y no está protegida, por lo que se pueden estudiar y analizar las fórmulas y el código VBA del gráfico solar.

Cómo he hecho el nuevo gráfico solar

En la columna AC hay 12 unos, uno por cada mes del año.

En la celda AD2 se calcula el número de puntos de cada mes, con esta fórmula: =360/CONTAR(misRayos)

La tabla TablaSeriesValores, en el rango: $AE$1:$AH$361, contiene los cálculos que en el gráfico solar anterior se hacían misteriosamente con nombres definidos. Son 360 filas, una fila por cada grado del gráfico solar.

En la columna AE hay una lista de números del 0 al 359, que son los grados solares, con la fórmula: =FILA(AE1)-FILA($AE$1)

En la columna AF están los valores de la serie que visualiza los rayos del gráfico solar, con la fórmula:

=SI.ERROR(INDICE(misRayos;SI(RESIDUO([@360º];misPuntos)=0;NOD();ENTERO([@360º]/misPuntos)+1));0)

En la columna AG están los valores de la serie que visualiza el rayo seleccionado, o sea el mes seleccionado, con la fórmula: 

=SI(miFila=ENTERO([@360º]/misPuntos)+1;[@Valores];0)

En la columna AH están los valores de la serie que se usa como rayo separador de cada mes, con la fórmula: =SI(RESIDUO([@360º];misPuntos)=0;miEscala;0)

En el nuevo gráfico solar he incluido los otros 4 tipos de gráficos para compararlos:

Espero que viendo este gráfico solar se te ocurrirán ideas para usarlo en tus proyectos.

Impresionante Excel Visual

Presentación de ExcelVisual

La visualización de datos es la manera de presentar los datos a la audiencia. Por mucho que el análisis de los datos sea profundo y riguroso, y los cálculos sean precisos, rápidos y eficientes, un buen informe debe ser vistoso, efectivo e impactante, para que impresione, ¡y no sea aburrido!

Y es lo que me ha pasado, que me he quedado impresionado al conocer lo que se puede llegar a hacer con Excel, por lo que quiero compartir con vosotros unas cuantas visualizaciones impresionantes, que ni siquiera imaginaba que existieran.

Hace unos días me siguió en Twitter alguien desconocido para mí y, como soy curioso, ya solamente con su nombre me impactó: @excelvisualdata

¿A quién no le va a impactar una presentación visual como ésta?

Web de ExcelVisual

La página Web de ExcelVisual, en inglés, contiene cuadros de mando en Excel con un impresionante grado de visualización. No lo digo yo, lo dicen mis ojos, que no han visto nada parecido en Excel desde que me dedico a este mundillo. Pásate por su página Web y lo compruebas tu mismo:

Download free dashboard templates for reports in Excel (exceltable.com)

Aunque la página Web se llame exceltable.com (es el único pero que le pongo, se debería llamar excelvisual.com), es la página de ExcelVisual, desde donde se pueden descargar gratuitamente cuadros de mando para informes hechos totalmente en Excel, como estos excelentes ejemplos:

¡Hay tanto que aprender de páginas como ésta!

¡Con tal grado de sofisticación en la visualización de datos!

¡Y hay tan poco tiempo para analizar visualizaciones de datos tan complejas!

Si te ha impresionado tanto como a mí, puedes seguir a ExcelVisual en:

ExcelVisual (@excelvisualdata) / Twitter

Charts in Excel (@excel.visual) • Fotos y videos de Instagram

Excel Visual | Facebook

Excel Visual - Reddit

Excel Visual (pinterest.com)

Excel Visual - YouTube 

Menú 3D de ExcelVisual

Por algún sitio hay que empezar, y como me he quedado prendado del efecto carrusel, he comenzado a analizar este menú 3D, hecho totalmente en Excel:

3D menu for dashboard analysis with data visualization in Excel (exceltable.com)

El menú 3D añade una muestra de gamificación en Excel, que es tan impactante visualmente que impresiona verlo en movimiento.

En este ejemplo de tablero, en el plano central superior, hay un menú 3D que desempeña el papel de un elemento de gamificación.

Cuando se hace clic en cualquier elemento del menú, se realiza la animación de rotación de la rueda del menú 3D, con un efecto carrusel. Los datos del tablero se actualizan de acuerdo con el gestor de ventas seleccionado. Los indicadores se filtran exclusivamente para el gestor seleccionado.

Si se hace clic en el dial de los números, en el centro del menú 3D, la animación transformará todos los puntos en un solo botón grande: ALL

Como resultado, todos los filtros se restablecen y la información en el tablero se actualiza nuevamente para mostrar los indicadores de desempeño general de la empresa.

Descarga del menú 3D

Me descargué ese ejemplo desde la página Web de ExcelVisual y, al probarlo en Excel para Microsoft 365, comprobé que era imposible ver el efecto carrusel, debido a la velocidad de proceso de Excel. Inmediatamente cambiaba al seleccionar un gestor en el menú 3D.

Por lo que he tenido que añadir algún retardo en las macros, necesario para visualizar el movimiento del menú 3D, con código que incluye la función Timer.

Public Const dbDelay As Double = 0.01 myTimer = Timer + dbDelay ' Set timer Do While Timer < myTimer DoEvents ' Yield to other processes Loop

También he consolidado en una única macro: Optmenu, las 5 macros que se ejecutan al hacer clic en uno de los 5 gestores de ventas. Gracias a la propiedad: Application.Caller, puedo saber qué gestor ha sido pulsado para iniciar el efecto carrusel.

Puedes descargar este menú 3D gamificado desde estos enlaces:

• Microsoft OneDrive: 3d-menu-for-dashboard-in-excel - PW1.xlsm

• Sites Google Drive: 3d-menu-for-dashboard-in-excel - PW1.xlsm

Abre la plantilla con una versión de Excel de escritorio igual o superior a Excel 2010 y presiona el botón: Habilitar edición

Aparece una ADVERTENCIA DE SEGURIDAD: Las macros se han deshabilitado. Presiona el botón: Habilitar contenido

Esta plantilla contiene macros y no está protegida, por lo que se pueden estudiar y analizar las fórmulas y el código VBA.

Conclusiones de ExcelVisual

Como se puede ver en este ejemplo, sin un menú 3D y elementos de gamificación este tablero sería muy aburrido, frío y monótono a pesar de la presencia de visualización.

No te limites solo a cálculos fríos, trata de agregar estética visual con elementos de procesos de juego, para que sea agradable trabajar en Excel.

Eso sí, si descargas este ejemplo, te dará cuenta de lo tremendamente complejo que es crear menús 3D en Excel, y conseguir visualizar un efecto carrusel a modo de gamificación en Excel. El autor de ExcelVisual se merece todos mis respetos y lo he incluido en mi lista de Favoritos.

Y es lo que trataré de hacer en mis próximos artículos, añadir efectos visuales impactantes, con ejemplos extraídos de ExcelVisual...

Este es el primer ejemplo con un Menú 3D que visualiza 5 pilotos de Formula1:

Formula1 3D Menu Excel | #ExcelPedroWave

Cómo hacer un gráfico solar

En el artículo anterior presenté un gráfico solar simulado en la nube. En este artículo explico cómo hacerlo paso a paso.

Con unos cuantos nombres definidos se crean las series del gráfico combinado con:

• 2 gráficos radiales rellenos para los rayos solares. 
• 3 gráficos de anillo para las etiquetas.

Y también podrás descargar un gráfico solar como el de esta imagen:

Descargar este gráfico solar

Puedes descargar este gráfico solar v2.0 desde estos enlaces:

• Microsoft OneDrive: PVPC Proyección Solar - PW2.xlsm

• Sites Google Drive: PVPC Proyección Solar - PW2.xlsm

Abre la plantilla con una versión de Excel de escritorio igual o superior a Excel 2013 y presiona el botón: Habilitar edición

Aparece una ADVERTENCIA DE SEGURIDAD: Las macros se han deshabilitado. Presiona el botón: Habilitar contenido

Esta plantilla contiene macros y no está protegida, por lo que se pueden estudiar y analizar las fórmulas y el código VBA y el gráfico solar.

IMPORTANTE: Gracias a un par de macros, se copia automáticamente la curva horaria PVPC de un día cualquiera desde el archivo de mi artículo anterior, que debes colocar en el mismo directorio que el gráfico solar. Puedes descargarlo desde aquí:

Gráficos PVPC Electricidad España | #ExcelPedroWave

Cómo hacer un gráfico solar

Lo principal es crear unos cuantos nombres definidos, a partir de la tabla con los datos, con los que se crean las series agregándolas al gráfico, para que tenga la apariencia de un gráfico de proyección solar con los rayos del tamaño de cada valor de la serie.

Para este ejercicio usaremos los datos de las tarifas PVPC de un día, obtenidas de la plantilla del enlace a mi anterior artículo, que he incluido un poco más arriba.

Estos son los pasos a seguir:

1) Abrimos un libro en blanco.

2) Nombramos una hoja vacía con el nombre: Solar

3) Seleccionamos en la cinta de opciones: Vista y en Mostrar, desmarcamos: Líneas de cuadrícula

4) Creamos una tabla, con datos copiados de la plantilla PVPC, en el rango A1:E25, y la llamamos: TablaSolar

5) Cambiamos la cabecera de la columna "PVPC €/MWh" por: Valor

6) Editamos el formato de celdas, con los valores del rango D2:D25, como números sin decimales.

7) Seleccionamos en la cinta de opciones: Fórmulas > Administrador de nombres

8) Creamos 4 nombres definidos con estas fórmulas:

• miFila: =CELDA("row")-FILA(Solar!$A$1)
• misRayos: =TablaSolar[Valor]
• miValorMáx: =SUBTOTALES(104;misRayos)
• miValorMín: =SUBTOTALES(105;misRayos)

9) Creamos 3 reglas de formato condicional en el rango A2:E25 de la tabla:

• La regla superior para marcar la hora seleccionada, en color escarlata: RGB(227, 0, 50) y con la fórmula:  =FILA(A2)-FILA($A$1)=miFila

• La regla para marcar el valor mínimo, en color rojo claro: RGB(218, 150, 148) y con la fórmula:  =$D2=miValorMín

• La regla para marcar el valor máximo, en color rojo: RGB(255, 0, 0) y con la fórmula:  =$D2=miValorMáx

El resultado en el Administrador de reglas de formato condicionales será así:

10) Probamos a seleccionar una celda de la fila 13 y presionamos la tecla F9, con lo que se marcará esa fila como en esta imagen:

11) Este es el paso más IMPORTANTE:

Creamos unos cuantos nombres definidos seleccionando desde la cinta de opciones: Fórmulas > Administrador de nombres, y presionando el botón: Nuevo..., cada vez que se vaya a crear uno de los nombres definidos.

ADVERTENCIA: Es muy importante el orden de creación de los siguientes nombres definidos, pues los unos dependen de los otros:

1. miEscala: =REDONDEAR(1,15*miValorMáx;0)
2. misFilas: =SUBTOTALES(102;misRayos)
3. matrizFilas: =FILA(INDIRECTO("Solar!1:" & misFilas))
4. misZonas: =matrizFilas-matrizFilas+1
5. matrizGrados: =360*(matrizFilas-1)/misFilas
6. matriz360Grados: =FILA(INDIRECTO("Solar!1:360"))-1
7. matrizFilasTrans: =TRANSPONER(matrizFilas)
8. matriz360Rayos: =COINCIDIR(matriz360Grados;matrizGrados;1)
9. matriz360Rayo: =COINCIDIR(matriz360Grados;matrizGrados;0)
10. matrizMiRayo: =(matriz360Rayos=miFila)*matriz360Rayos*ESERROR(matriz360Rayo)
11. matrizRayo: =MMULT(--(matrizMiRayo=matrizFilasTrans);misRayos)
12. matrizRayos: =MMULT(--(matriz360Rayos=matrizFilasTrans);misRayos)*ESERROR(matriz360Rayo)

   El resultado será esta lista de nombres definidos:

12) Seleccionamos la tabla e insertamos un gráfico radial relleno desde la cinta de opciones: Insertar > Todos los gráficos > Radial > Radial relleno

En este gráfico se aprecian los valores PVPC como líneas quebradas, que es lo que queremos tratar de evitar, pues cada hora de este gráfico no vale lo mismo:

13) Seleccionamos en la cinta de opciones: Diseño de gráfico > Seleccionar datos, quitando las dos series referidas a períodos y dejando únicamente la serie: Valor

14) Modificamos los Valores de la serie: =Solar!matrizRayos, con este nombre definido anteriormente. Es una matriz de 360 filas, con 24 grupos de valores, uno para cada hora, de 15 filas cada grupo, siendo la primera fila un cero, para separar grupos, y las siguientes 14 filas el valor PVPC de esa hora.

15) Eliminamos todo lo que no sea el gráfico y su título, incluso el borde...

¡Y se obra el milagro! ¡Ya es un gráfico solar!

¡En el que cada una de las 24 horas mantienen su valor!

16) Cambiamos el nombre de la serie por: ="Rayos", y en Categoría borramos el rango de rótulos del eje.

17) Agregamos una nueva serie con el nombre: ="Rayo" y los Valores de la serie: =Solar!matrizRayo. No confundirlo con el nombre definido para la serie anterior, éste nombre definido se refiere a un rayo en singular y el otro eran rayos en plural. Es una matriz de 360 filas con todos los valores a cero, excepto las 14 filas de la hora seleccionada, con su valor PVPC.

18) Seleccionamos una celda de la tabla y presionamos la tecla F9. Ahora tenemos en el gráfico 24 rayos, con otro color para el rayo de la fila seleccionada.

¡ESTUPENDO! ¡Aunque aún falta crear 3 anillos con los valores!

19) Creamos tres series: ="Etiqueta Interna", ="Etiqueta Central" y ="Etiqueta Externa", con los mismos valores para las tres series: Solar!MisZonas

20) Hacemos clic con el botón derecho del ratón encima de una serie cualquiera y seleccionamos: Cambiar tipo de gráfico de series...

21) Cambiamos la combinación personalizada de las 3 series de etiquetas a gráficos del tipo anillo, pasando automáticamente al eje secundario esos 3 gráficos, y presionamos el botón: Aceptar

22) Modificamos el color de relleno de los 3 anillos a verde muy claro.

23) Agregamos etiquetas de datos a esos 3 anillos, marcando únicamente: Valor de las celdas. El rango será diferente para cada anillo en: Seleccionar rango...

• Anillo Exterior: =Solar!$B$2:$B$25 
• Anillo Central: =Solar!$E$2:$E$25
• Anillo Interior: =Solar!$D$2:$D$25

24) Cambiamos el tamaño y la negrita de las etiquetas como más nos plazca.

25) Cambiamos el color de los marcadores al gusto del usuario y veremos algo así:

26) Pon un título al gráfico. Si has seguido los pasos anteriores...

¡¡¡ Ya has creado un gráfico solar !!!

27) Usa tus propios datos y tu inspiración para hacer otros gráficos solares geniales, que asombrarán a tus compañeros de trabajo y a tus jefes...

Videotutorial Gráfico solar (1 de 2)

En este primer videotutorial explico cómo se me ha ocurrido la idea de crear un gráfico solar simulado con un par de gráficos radiales rellenos y unos cuantos nombres definidos para darles valor a las series del gráfico.

Videotutorial Gráfico solar (2 de 2)

En este segundo videotutorial explico cómo hacer un gráfico solar paso a paso.

Gráfico solar dinámico

Con unas pocas macros VBA he automatizado el gráfico solar, para que cargue los datos desde la plantilla con los datos PVPC de mi artículo anterior, y para que actualice la hora de la fila seleccionada en la tabla.

El evento Worksheet_SelectionChange de la hoja 'Solar' lanza la macro: CambiarEscala, para cambiar la escala máxima del eje del gráfico solar.

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' ' Evento cambia selección en la hoja ' CambiarEscala Target End Sub

En el módulo MóduloCargarPVPC está la macro para cargar los valores PVPC de un día desde el archivo de mi artículo anterior, siempre que se guarde en el mismo directorio aunque esté cerrado. Se lanza haciendo clic sobre el gráfico solar.

Sub CargarPVPC() ' ' Carga PVPC ' Const sOrigen As String = "PVPC Electricidad - PW1.xlsm" Dim Ruta As String Dim wbLibroOrigen As Workbook Dim wsHojaOrigen As Worksheet Dim objTablaOrigen As ListObject Dim wbLibroDestino As Workbook Dim wsHojaDestino As Worksheet Dim objTablaDestino As ListObject Dim arrTabla() As Variant Application.ScreenUpdating = False Ruta = ThisWorkbook.Path & "\" & sOrigen ' Origen Set wbLibroOrigen = Workbooks.Open(Ruta) Set wsHojaOrigen = wbLibroOrigen.Worksheets("PVPC AUX") Set objTablaOrigen = wsHojaOrigen.ListObjects("TablaPVPC") arrTabla = objTablaOrigen.DataBodyRange.Value ' Destino Set wbLibroDestino = Workbooks(ThisWorkbook.Name) Set wsHojaDestino = wbLibroDestino.Worksheets("Solar") Set objTablaDestino = wsHojaDestino.ListObjects("TablaSolar") objTablaDestino.DataBodyRange.Value = arrTabla Application.DisplayAlerts = False Windows(sOrigen).Close Application.DisplayAlerts = True CambiarEscala ActiveCell Application.ScreenUpdating = True End Sub

La macro CambiarEscala hace lo que dice su nombre y recalcula todo el libro, lo mismo que hace pulsando manualmente la tecla F9.

Sub CambiarEscala(rCelda As Range) ' ' Cambia escala del gráfico solar ' ActiveSheet.ChartObjects("Grafico Solar").Activate ActiveChart.Axes(xlValue).MaximumScale = [MiEscala] Application.EnableEvents = False rCelda.Select Application.EnableEvents = True Calculate End Sub

Enlaces de interés

Para hacer este gráfico solar me he inspirado en unas páginas de Excel con excelentes ejemplos de gráficos curiosos de Frankens Team, que recomiendo a cualquier entusiasta de Excel:

E90E50charts - Excel Charts Gallery (google.com)

Huge challenge #3 - Infographic chart with Excel - E90E50fx (google.com)

De esta última página he sacado la idea de cómo programar las fórmulas de los nombres definidos para conseguir crear un gráfico solar simulado. En estas páginas hay muchos ejemplos excelentes de gráficos infográficos descargables, hechos totalmente en Excel.

Es una de mis páginas favoritas para estudiar, analizar, aprender y releer nuevos trucos de Excel.

Gráfico Solar en Excel

Mi gráfico solar simulado en Excel

Ya tengo hecho un gráfico de proyección solar ¡¡¡ simulado !!! ☀️

En Excel se puede crear un gráfico de proyección solar con varios niveles de jerarquía, para mostrar cómo se relacionan los anillos exteriores con los interiores. Un gráfico de proyección solar sin datos jerárquicos (con un solo nivel de categorías) es similar a un gráfico de anillos.

Ver este enlace: Crear un gráfico de estallido solar en Office (microsoft.com)

¡Pero ojo!

¡Ese tipo de gráficos tienen de proyección solar lo mismo que mi sombrilla! 🏖️

Para simular un gráfico de proyección solar ¡mucho más real! he usado gráficos radiales rellenos como el de la imagen de abajo, con datos PVPC obtenidos de la plantilla de mi artículo anterior:

Gráficos PVPC Electricidad España | #ExcelPedroWave

Al seleccionar una fila de la tabla PVPC cambia el color de esa hora en el gráfico.

¿Quieres aprender a programar un gráfico como éste?

¡Atento al próximo artículo!

Hablaré de lo importante que es crear matrices dinámicas con nombres definidos para crear gráficos impresionantes...

Para abrir boca, vete leyendo esta página de Microsoft Excel:

Directrices y ejemplos de fórmulas de matriz (microsoft.com)

Gráfico solar en la nube

Este gráfico es un adelanto del gráfico que podrás descargar en un nuevo artículo que publicaré la semana que viene.

Juega con este gráfico solar, modificando los datos de las columnas A a E, en la nube de OneDrive.

Es una proyección solar simplificada a 4 rayos por cada zona horaria con un valor fijo, para que Excel en la nube pueda procesarlos.

Si se proyectan 14 rayos, como en la imagen de más arriba, se queda recalculando indefinidamente, cosa que no pasa en Excel para escritorio, como comprobarás en el siguiente artículo que he publicado, desde donde podrás descargar el gráfico solar y aprender a hacerlo por ti mismo:

Gráficos PVPC Electricidad España | #ExcelPedroWave