Sunt un mare fan al seriei de filme Matrix. Este o lucrare uimitoare a timpului său și una dintre seriile mele preferate de filme de știință-ficțiune.
Dacă ați văzut Matrix, nu vă puteți aminti secvența de cod care se încadrează.
M-am gândit să creez acest lucru în Excel, dar cineva m-a învins. A fost deja creat și este disponibil aici.
Nitin Mehta, care a creat acest lucru, a folosit câteva funcții Excel, formatarea condiționată și o bară de derulare pentru a crea acest efect.
L-am modificat pentru a elimina bara de defilare și am folosit în schimb un cod VBA. Acum puteți pur și simplu să faceți clic pe butonul de redare și numerele ar începe să scadă de la sine. Ceva așa cum se arată mai jos:
Efectul Matrix Falling Numbers în Excel
Iată pașii pentru a crea efectul numerelor care scad în matrice în excel:
- În primul rând din intervalul A1: AP1, introduceți numere aleatoare cuprinse între 0 și 9. Puteți introduce manual aceste numere folosind funcția RANDBETWEEN. Nu uitați să convertiți aceste numere în valori.
- Reduceți lățimea coloanei astfel încât să fie vizibilă într-un singur ecran.
- În intervalul A2: AP32, introduceți formula: = INT (RAND () * 10)
- Copiați și lipiți codul de mai jos într-un modul din VBA
#If VBA7 Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Pentru sistemele pe 64 de biți #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' Pentru sistemele pe 32 de biți #End If Sub MatrixNumberRain () i = 1 Do While i <= 40 DoEvents Range ("AR1"). Valoare = ii = i + 1 Sleep 50 Loop End Sub
Acest cod de mai sus ar introduce numărul de la 1 la 4o în celula AR1. Codul Sleep 50 ar întârzia introducerea numerelor cu 50 de milisecunde. Dacă rulați acest cod, veți putea vedea valoarea din AR1 trecând de la 1 la 40.
Acum trebuie să specificăm trei reguli de formatare condiționate pentru a da culoare acestor numere.
Regula nr. 1 de formatare condiționată
- Selectați intervalul A2: AP32, accesați Acasă -> Formatare condiționată -> Regulă nouă
- În caseta de dialog Nouă regulă de formatare, faceți clic pe „Utilizați o formulă pentru a determina ce celule să formatați” și introduceți următoarea formulă:
= MOD ($ AR $ 1,15) = MOD (ROW () + A $ 1,15)
- Faceți clic pe butonul de formatare și setați culoarea fontului la alb
- Faceți clic pe OK
Regula nr. 2 de formatare condiționată
- Cu intervalul A2: AP32 selectat, accesați Acasă -> Formatare condiționată -> Gestionați regula
- În caseta de dialog Manager reguli de formatare condiționată, faceți clic pe Regula nouă
- În caseta de dialog Nouă regulă de formatare, faceți clic pe „Utilizați o formulă pentru a determina ce celule să formatați” și introduceți următoarea formulă:
= MOD ($ AR $ 1,15) = MOD (ROW () + A $ 1 + 1,15) - Faceți clic pe butonul Format și setați culoarea fontului la verde deschis
- Faceți clic pe OK
Regula nr. 3 de formatare condiționată
- Cu intervalul A2: AP32 selectat, accesați Acasă -> Formatare condiționată -> Gestionați regula
- În caseta de dialog Manager reguli de formatare condiționată, faceți clic pe Regula nouă
- În caseta de dialog Nouă regulă de formatare, faceți clic pe „Utilizați o formulă pentru a determina ce celule să formatați” și introduceți următoarea formulă:
= SAU (MOD ($ AR $ 1,15) = MOD (ROW () + A $ 1 + 2,15), MOD ($ AR $ 1,15) = MOD (ROW () + A $ 1 + 3,15), MOD ($ AR $ 1,15) = MOD (ROW () + A $ 1 + 4,15), MOD ($ AR $ 1,15) = MOD (ROW () + A $ 1 + 5,15)) - Faceți clic pe butonul Format și setați culoarea fontului la verde deschis.
- Faceți clic pe OK.
Pe baza numărului și valorii rândului din primul rând, formatarea condiționată ar colora textul verde, verde deschis sau alb.
Acum selectați întreaga gamă de celule (A1: AP32) și faceți fundalul negru.
Ca ultim pas, introduceți o formă / buton și atribuiți această macro acelei forme / buton.
Notă: Deoarece acesta conține un cod VBA, salvați fișierul cu extensia .xls sau .xlsm.
Asta e! Acum ia-ți o ceașcă de cafea, stai la umbră și bucură-te de ploaia digitală a numerelor care scad Matrix 🙂
