Soy un gran admirador de la serie de películas Matrix. Es una obra increíble de su tiempo y una de mis series de películas de ciencia ficción favoritas.
Si ha visto Matrix, no hay forma de que no recuerde la secuencia del código descendente.
Pensé en crear esto en Excel, pero alguien se me adelantó. Ya ha sido creado y está disponible aquí.
Nitin Mehta, quien creó esto, usó un par de funciones de Excel, formato condicional y una barra de desplazamiento para crear este efecto.
Lo modifiqué para eliminar la barra de desplazamiento y en su lugar usé un código VBA. Ahora puede simplemente hacer clic en el botón de reproducción y los números comenzarán a caer por sí mismos. Algo como se muestra a continuación:
Efecto Matrix Falling Numbers en Excel
Estos son los pasos para crear el efecto de números descendentes de la matriz en Excel:
- En la primera fila en el rango A1: AP1, ingrese números aleatorios entre 0 y 9. Puede ingresar manualmente estos números o usar la función RANDBETWEEN. Recuerde convertir estos números en valores.
- Reduzca el ancho de la columna para que sea visible en una sola pantalla.
- En el rango A2: AP32, ingrese la fórmula: = INT (RAND () * 10)
- Copie y pegue el siguiente código en un módulo en VBA
#Si VBA7 Entonces Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Para sistemas de 64 bits #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' Para sistemas de 32 bits #End If Sub MatrixNumberRain () i = 1 Do while i <= 40 DoEvents Range ("AR1"). Valor = ii = i + 1 Sleep 50 Loop End Sub
Este código anterior ingresaría el número de 1 a 4o en la celda AR1. El código Sleep 50 retrasaría la introducción de números en 50 milisegundos. Si ejecuta este código, podrá ver que el valor en AR1 va de 1 a 40.
Ahora necesitamos especificar tres reglas de formato condicional para dar color a estos números.
Regla de formato condicional n. ° 1
- Seleccione el rango A2: AP32, vaya a Inicio -> Formato condicional -> Nueva regla
- En el cuadro de diálogo Nueva regla de formato, haga clic en "Usar una fórmula para determinar qué celdas formatear" e ingrese la siguiente fórmula:
= MOD ($ AR $ 1,15) = MOD (FILA () + A $ 1,15)
- Haga clic en el botón de formato y establezca el color de la fuente en blanco
- Haga clic en Aceptar
Regla de formato condicional n. ° 2
- Con el rango A2: AP32 seleccionado, vaya a Inicio -> Formato condicional -> Administrar regla
- En el cuadro de diálogo Administrador de reglas de formato condicional, haga clic en Nueva regla
- En el cuadro de diálogo Nueva regla de formato, haga clic en "Usar una fórmula para determinar qué celdas formatear" e ingrese la siguiente fórmula:
= MOD ($ AR $ 1,15) = MOD (FILA () + A $ 1 + 1,15) - Haga clic en el botón de formato y configure el color de la fuente en verde claro
- Haga clic en Aceptar
Regla de formato condicional n. ° 3
- Con el rango A2: AP32 seleccionado, vaya a Inicio -> Formato condicional -> Administrar regla
- En el cuadro de diálogo Administrador de reglas de formato condicional, haga clic en Nueva regla
- En el cuadro de diálogo Nueva regla de formato, haga clic en "Usar una fórmula para determinar qué celdas formatear" e ingrese la siguiente fórmula:
= O (MOD ($ AR $ 1,15) = MOD (FILA () + A $ 1 + 2,15), MOD ($ AR $ 1,15) = MOD (FILA () + A $ 1 + 3,15), MOD ($ AR $ 1,15) = MOD (FILA () + A $ 1 + 4,15), MOD ($ AR $ 1,15) = MOD (FILA () + A $ 1 + 5,15)) - Haga clic en el botón de formato y establezca el color de la fuente en verde claro.
- Haga clic en Aceptar.
Según el número de fila y el valor de la primera fila, el formato condicional colorearía el texto en verde, verde claro o blanco.
Ahora seleccione todo el rango de celdas (A1: AP32) y haga que el fondo sea negro.
Como paso final, inserte una forma / botón y asigne esta macro a esa forma / botón.
Nota: Dado que tiene un código VBA, guarde el archivo con la extensión .xls o .xlsm.
¡Eso es! Ahora, tómate una taza de café, ponte a la sombra y disfruta de la lluvia digital de números cayendo de Matrix 🙂
