Jeg er en stor fan af Matrix -filmserien. Det er et fantastisk stykke arbejde i sin tid og en af mine foretrukne science fiction -filmserier.
Hvis du har set Matrix, kan du på ingen måde huske den faldende kodesekvens.
Jeg tænkte på at oprette dette i Excel, men nogen slog mig til det. Det er allerede oprettet og er tilgængeligt her.
Nitin Mehta, der skabte dette, brugte et par Excel -funktioner, betinget formatering og en rullebjælke til at oprette denne effekt.
Jeg har ændret det for at fjerne rullepanelet og har brugt en VBA -kode i stedet. Nu kan du blot klikke på afspilningsknappen, og tallene begynder at falde af sig selv. Noget som vist herunder:
Matrix faldende tal effekt i Excel
Her er trinene til at oprette matrix -faldende tal -effekten i excel:
- I den første række i området A1: AP1 skal du indtaste tilfældige tal mellem 0 og 9. Du kan enten indtaste disse numre manuelt med funktionen RANDBETWEEN. Husk at konvertere disse tal til værdier.
- Reducer kolonnebredden, så den er synlig på en enkelt skærm.
- Indtast formlen i intervallet A2: AP32: = INT (RAND ()*10)
- Kopier og indsæt nedenstående kode i et modul i VBA
#Hvis VBA7 derefter offentliggør PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 64 Bit Systems #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' For 32 Bit Systems #End If Sub MatrixNumberRain () i = 1 Do While i <= 40 DoEvents Range ("AR1"). Value = ii = i + 1 Sleep 50 Loop End Sub
Denne kode ovenfor vil indtaste tallet fra 1 til 4o i celle AR1. Koden Sleep 50 ville forsinke indtastningen af tal med 50 millisekunder. Hvis du kører denne kode, vil du kunne se værdien i AR1 gå fra 1 til 40.
Nu skal vi angive tre betingede formateringsregler for at give farve til disse tal.
Betinget formateringsregel #1
- Vælg området A2: AP32, gå til Hjem -> Betinget formatering -> Ny regel
- I dialogboksen Ny formateringsregel skal du klikke på 'Brug en formel til at bestemme, hvilke celler der skal formateres', og indtast følgende formel:
= MOD ($ AR $ 1,15) = MOD (ROW ()+$ 1,15)
- Klik på knappen Format, og indstil skrifttypefarven til hvid
- Klik på OK
Betinget formateringsregel #2
- Med området A2: AP32 valgt, skal du gå til Hjem -> Betinget formatering -> Administrer regel
- I dialogboksen Manager for betinget formateringsregler skal du klikke på Ny regel
- I dialogboksen Ny formateringsregel skal du klikke på 'Brug en formel til at bestemme, hvilke celler der skal formateres', og indtast følgende formel:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1+1,15) - Klik på knappen Format, og indstil skrifttypefarven til lysegrøn
- Klik på OK
Betinget formateringsregel #3
- Med området A2: AP32 valgt, skal du gå til Hjem -> Betinget formatering -> Administrer regel
- I dialogboksen Manager for betinget formateringsregler skal du klikke på Ny regel
- I dialogboksen Ny formateringsregel skal du klikke på 'Brug en formel til at bestemme, hvilke celler der skal formateres', og indtast følgende formel:
= ELLER (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 på knappen Format, og indstil skrifttypefarven til lysegrøn.
- Klik på OK.
Baseret på rækkenummer og værdi i den første række vil betinget formatering farve teksten grøn, lysegrøn eller hvid.
Vælg nu hele celleområdet (A1: AP32), og gør baggrunden sort.
Som et sidste trin skal du indsætte en form/knap og tildele denne makro til den form/knap.
Bemærk: Da der er en VBA -kode i den, skal du gemme filen med .xls- eller .xlsm -udvidelse.
Det er det! Få dig nu en kop kaffe, stå i skyggen og nyd Matrix faldende numre digital regn 🙂
