Olen suuri Matrix -elokuvasarjan fani. Se on aikansa hämmästyttävä teos ja yksi suosikeistani scifi -elokuvasarjoista.
Jos olet nähnyt Matrixin, et voi muistaa putoavaa koodisekvenssiä.
Ajattelin luoda tämän Excelissä, mutta joku löi minut siihen. Se on jo luotu ja saatavilla täältä.
Tämän luonut Nitin Mehta käytti pari Excel -toimintoa, ehdollista muotoilua ja vierityspalkkia tämän tehosteen luomiseksi.
Olen muokannut sitä poistamaan vierityspalkin ja käyttänyt sen sijaan VBA -koodia. Nyt voit yksinkertaisesti napsauttaa toistopainiketta ja numerot alkavat laskea itsestään. Jotain alla olevan kuvan mukaisesti:
Matrix Falling Numbers -vaikutus Excelissä
Tässä on vaiheet matriisin putoavien numeroiden tehosteen luomiseksi Excelissä:
- Kirjoita alueen A1: AP1 ensimmäiselle riville satunnaisluvut välillä 0 - 9. Voit joko syöttää nämä numerot manuaalisesti RANDBETWEEN -toiminnon avulla. Muista muuntaa nämä luvut arvoiksi.
- Pienennä sarakkeen leveyttä niin, että se näkyy yhdellä näytöllä.
- Kirjoita alueelle A2: AP32 kaava: = INT (RAND ()*10)
- Kopioi ja liitä alla oleva koodi VBA: n moduuliin
#Jos VBA7 julkistaa sitten PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '64 -bittisille järjestelmille #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' 32 -bittisille järjestelmille #End If Sub MatrixNumberRain () i = 1 Do while i <= 40 DoEvents Range ("AR1"). Arvo = ii = i + 1 Sleep 50 Loop End Sub
Tämä yllä oleva koodi syöttää numeron 1-4o soluun AR1. Koodi Sleep 50 viivästyttäisi numeroiden syöttämistä 50 millisekuntia. Jos suoritat tämän koodin, näet AR1: n arvon 1-40.
Nyt meidän on määritettävä kolme ehdollista muotoilusääntöä antaaksemme väriä näille numeroille.
Ehdollinen muotoilusääntö #1
- Valitse alue A2: AP32, siirry kohtaan Etusivu -> Ehdollinen muotoilu -> Uusi sääntö
- Napsauta Uusi muotoilusääntö -valintaikkunassa Käytä kaavaa määritettävien solujen määrittämiseen ja kirjoita seuraava kaava:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1,15)
- Napsauta muotoilupainiketta ja aseta fontin väri valkoiseksi
- Napsauta OK
Ehdollinen muotoilusääntö #2
- Kun alue A2: AP32 on valittu, siirry kohtaan Etusivu -> Ehdollinen muotoilu -> Hallitse sääntöä
- Napsauta Ehdollisen muotoilun sääntöjen hallinta -valintaikkunassa Uusi sääntö
- Napsauta Uusi muotoilusääntö -valintaikkunassa Käytä kaavaa määritettävien solujen määrittämiseen ja kirjoita seuraava kaava:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1+1,15) - Napsauta muotoilupainiketta ja aseta fontin väri vaaleanvihreäksi
- Napsauta OK
Ehdollinen muotoilusääntö #3
- Kun alue A2: AP32 on valittu, siirry kohtaan Etusivu -> Ehdollinen muotoilu -> Hallitse sääntöä
- Napsauta Ehdollisen muotoilun sääntöjen hallinta -valintaikkunassa Uusi sääntö
- Napsauta Uusi muotoilusääntö -valintaikkunassa Käytä kaavaa määritettävien solujen määrittämiseen ja kirjoita seuraava kaava:
= TAI (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)) - Napsauta muoto -painiketta ja aseta fontin väri vaaleanvihreäksi.
- Napsauta OK.
Ensimmäisen rivin rivinumeron ja arvon perusteella ehdollinen muotoilu värittää tekstin vihreäksi, vaaleanvihreäksi tai valkoiseksi.
Valitse nyt koko solualue (A1: AP32) ja tee taustasta musta.
Viimeisenä vaiheena lisää muoto/painike ja määritä tämä makro kyseiselle muodolle/painikkeelle.
Merkintä: Koska tässä on VBA -koodi, tallenna tiedosto .xls- tai .xlsm -tunnisteella.
Se siitä! Hanki nyt itsellesi kuppi kahvia, seiso varjossa ja nauti Matrix -numeroiden digitaalisesta sateesta 🙂
