Ik ben een grote fan van de Matrix-filmserie. Het is een geweldig stuk werk van zijn tijd en een van mijn favoriete sciencefictionfilmseries.
Als je Matrix hebt gezien, is het onmogelijk dat je de dalende codereeks niet zou onthouden.
Ik dacht eraan om dit in Excel te maken, maar iemand was me voor. Het is al gemaakt en is hier beschikbaar.
Nitin Mehta, die dit heeft gemaakt, gebruikte een aantal Excel-functies, voorwaardelijke opmaak en een schuifbalk om dit effect te creëren.
Ik heb het aangepast om de schuifbalk te verwijderen en heb in plaats daarvan een VBA-code gebruikt. Nu kun je eenvoudig op de afspeelknop klikken en de cijfers zouden vanzelf beginnen te vallen. Iets zoals hieronder weergegeven:
Matrix Falling Numbers-effect in Excel
Hier zijn de stappen om het matrix-vallende getallen-effect in Excel te creëren:
- Voer in de eerste rij in het bereik A1:AP1 willekeurige getallen in tussen 0 en 9. U kunt deze getallen handmatig invoeren of de functie RANDBETWEEN gebruiken. Vergeet niet om deze getallen om te zetten in waarden.
- Verklein de kolombreedte zodat deze in één scherm zichtbaar is.
- Voer in het bereik A2:AP32 de formule in: =INT(RAND()*10)
- Kopieer en plak de onderstaande code in een module in VBA
#If VBA7, vervolgens openbaar verklaren PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Voor 64-bits systemen #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Voor 32-bits systemen #End If Sub MatrixNumberRain () i = 1 Do While i <= 40 DoEvents Range ("AR1"). Waarde = ii = i + 1 Sleep 50 Loop End Sub
Deze bovenstaande code zou het nummer van 1 tot 4o in cel AR1 invoeren. De code Sleep 50 zou het invoeren van cijfers met 50 milliseconden vertragen. Als u deze code uitvoert, zou u kunnen zien dat de waarde in AR1 van 1 naar 40 gaat.
Nu moeten we drie voorwaardelijke opmaakregels specificeren om kleur aan deze getallen te geven.
Voorwaardelijke opmaakregel #1
- Selecteer het bereik A2:AP32, ga naar Home -> Conditionele opmaak -> Nieuwe regel
- Klik in het dialoogvenster Nieuwe opmaakregel op 'Een formule gebruiken om te bepalen welke cellen moeten worden opgemaakt' en voer de volgende formule in:
=MOD($AR$1,15)=MOD(RIJ()+A$1,15)
- Klik op de opmaakknop en stel de letterkleur in op wit
- Klik OK
Voorwaardelijke opmaakregel #2
- Ga met het bereik A2:AP32 geselecteerd naar Home -> Conditionele opmaak -> Regel beheren
- Klik in het dialoogvenster Beheer van voorwaardelijke opmaakregels op Nieuwe regel
- Klik in het dialoogvenster Nieuwe opmaakregel op 'Een formule gebruiken om te bepalen welke cellen moeten worden opgemaakt' en voer de volgende formule in:
=MOD($AR$1,15)=MOD(RIJ()+A$1+1,15) - Klik op de opmaakknop en stel de letterkleur in op lichtgroen
- Klik OK
Voorwaardelijke opmaakregel #3
- Ga met het bereik A2:AP32 geselecteerd naar Home -> Conditionele opmaak -> Regel beheren
- Klik in het dialoogvenster Beheer van voorwaardelijke opmaakregels op Nieuwe regel
- Klik in het dialoogvenster Nieuwe opmaakregel op 'Een formule gebruiken om te bepalen welke cellen moeten worden opgemaakt' en voer de volgende formule in:
=OF(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)) - Klik op de opmaakknop en stel de letterkleur in op lichtgroen.
- Klik OK.
Op basis van het rijnummer en de waarde in de eerste rij zou voorwaardelijke opmaak de tekst groen, lichtgroen of wit kleuren.
Selecteer nu het hele celbereik (A1:AP32) en maak de achtergrond zwart.
Voeg als laatste stap een vorm/knop in en wijs deze macro toe aan die vorm/knop.
Opmerking: Aangezien dit een VBA-code bevat, slaat u het bestand op met de extensie .xls of .xlsm.
Dat is het! Haal nu een kopje koffie voor jezelf, ga in de schaduw staan en geniet van de Matrix vallende getallen digitale regen 🙂
