Olen Matrixi filmisarja suur fänn. See on oma aja hämmastav teos ja üks mu lemmikuid ulmefilmisarju.
Kui olete Matrixit näinud, ei saa te kuidagi meelde jätta langevat koodijärjestust.
Mõtlesin selle Excelis luua, kuid keegi peksis mind selle eest. See on juba loodud ja saadaval siin.
Selle loonud Nitin Mehta kasutas selle efekti loomiseks paari Exceli funktsiooni, tingimuslikku vormindamist ja kerimisriba.
Olen seda kerimisriba eemaldamiseks muutnud ja selle asemel kasutanud VBA -koodi. Nüüd saate lihtsalt klõpsata esitusnupul ja numbrid hakkavad iseenesest langema. Midagi, nagu allpool näidatud:
Maatriksi langevate numbrite efekt Excelis
Siin on sammud Excelis maatriksi langevate numbrite efekti loomiseks:
- Vahemiku A1: AP1 esimesele reale sisestage juhuslikud numbrid vahemikus 0 kuni 9. Saate need numbrid käsitsi sisestada, kasutades funktsiooni RANDBETWEEN. Ärge unustage neid numbreid teisendada väärtusteks.
- Vähendage veeru laiust nii, et see oleks ühel ekraanil nähtav.
- Vahemikus A2: AP32 sisestage valem: = INT (RAND ()*10)
- Kopeerige ja kleepige allolev kood VBA moodulisse
#If VBA7 Seejärel kuulutage avalikult välja PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMillisekundid nii kaua) '64 -bitiste süsteemide jaoks #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' 32 -bitiste süsteemide jaoks #End If Sub MatrixNumberRain () i = 1 Do while i <= 40 DoEvents Range ("AR1"). Väärtus = ii = i + 1 Sleep 50 Loop End Sub
See ülaltoodud kood sisestaks lahtrisse AR1 numbri 1 kuni 4o. Kood Sleep 50 lükkab numbrite sisestamise edasi 50 millisekundiga. Kui käivitate selle koodi, näete AR1 väärtust vahemikus 1 kuni 40.
Nüüd peame neile numbritele värvi andmiseks määrama kolm tingimusliku vormindamise reeglit.
Tingimusliku vormindamise reegel nr 1
- Valige vahemik A2: AP32, minge avalehele -> Tingimuslik vormindamine -> Uus reegel
- Klõpsake dialoogiboksis Uus vormindamise reegel nuppu „Kasutage valemit vormindatavate lahtrite määramiseks” ja sisestage järgmine valem:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1,15)
- Klõpsake vormindamise nuppu ja määrake fondi värv valgeks
- Klõpsake nuppu OK
Tingimusliku vormindamise reegel #2
- Kui vahemik A2: AP32 on valitud, minge avalehele -> Tingimuslik vormindamine -> Halda reeglit
- Klõpsake dialoogiboksis Tingimusliku vormindamise reeglite haldur nuppu Uus reegel
- Klõpsake dialoogiboksis Uus vormindamise reegel nuppu „Kasutage valemit vormindatavate lahtrite määramiseks” ja sisestage järgmine valem:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1+1,15) - Klõpsake vormindamise nuppu ja määrake fondi värv heleroheliseks
- Klõpsake nuppu OK
Tingimusliku vormindamise reegel #3
- Kui vahemik A2: AP32 on valitud, minge avalehele -> Tingimuslik vormindamine -> Halda reeglit
- Klõpsake dialoogiboksis Tingimusliku vormindamise reeglite haldur nuppu Uus reegel
- Klõpsake dialoogiboksis Uus vormindusreegel nuppu „Kasutage valemit vormindatavate lahtrite määramiseks” ja sisestage järgmine valem:
= VÕI (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)) - Klõpsake vormindamise nuppu ja määrake fondi värv heleroheliseks.
- Klõpsake nuppu OK.
Esimese rea reanumbri ja väärtuse põhjal värviks tingimusvorming teksti roheliseks, heleroheliseks või valgeks.
Nüüd valige kogu lahtrite vahemik (A1: AP32) ja tehke taust mustaks.
Viimase sammuna sisestage kuju/nupp ja määrake see makro sellele kujule/nupule.
Märge: Kuna sellel on VBA -kood, salvestage fail laiendiga .xls või .xlsm.
See on kõik! Nüüd hankige endale tass kohvi, seiske varjus ja nautige Matrixi langevate numbrite digitaalset vihma 🙂
