Aš esu didelis „Matrix“ filmų serijos gerbėjas. Tai nuostabus savo laiko kūrinys ir vienas iš mano mėgstamiausių mokslinės fantastikos filmų serialų.
Jei matėte „Matrix“, jokiu būdu neprisimenate krentančios kodo sekos.
Aš galvojau tai sukurti „Excel“, bet kažkas mane įveikė. Jis jau sukurtas ir pasiekiamas čia.
Tai sukūręs Nitinas Mehta panaudojo keletą „Excel“ funkcijų, sąlyginį formatavimą ir slinkties juostą, kad sukurtų šį efektą.
Aš jį pakeičiau, kad pašalinčiau slinkties juostą ir vietoj to naudojau VBA kodą. Dabar galite tiesiog spustelėti paleidimo mygtuką ir skaičiai pradės mažėti savaime. Kažkas, kaip parodyta žemiau:
Matricos krintančių skaičių efektas „Excel“
Štai žingsniai, kaip sukurti matricos kritimo skaičių efektą „Excel“:
- Pirmoje diapazono A1: AP1 eilutėje įveskite atsitiktinius skaičius nuo 0 iki 9. Šiuos skaičius galite įvesti rankiniu būdu, naudodami funkciją RANDBETWEEN. Nepamirškite šių skaičių paversti vertėmis.
- Sumažinkite stulpelio plotį, kad jis būtų matomas viename ekrane.
- Diapazone A2: AP32 įveskite formulę: = INT (RAND ()*10)
- Nukopijuokite ir įklijuokite žemiau esantį kodą į modulį VBA
#Jei VBA7 tada viešai paskelbia „PtrSafe Sub Sleep Lib“ „kernel32“ (ByVal dwMilliseconds as Long) '64 bitų sistemoms #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' 32 bitų sistemoms #End If Sub MatrixNumberRain () i = 1 Daryti, kol i <= 40 „DoEvents“ diapazonas („AR1“). Vertė = ii = i + 1 „Sleep 50 Loop End Sub“
Šis aukščiau pateiktas kodas įvestų skaičių nuo 1 iki 4o langelyje AR1. Kodas „Sleep 50“ atidėtų skaičių įvedimą 50 milisekundžių. Jei paleisite šį kodą, pamatysite, kad AR1 vertė yra nuo 1 iki 40.
Dabar turime nurodyti tris sąlyginio formatavimo taisykles, kad šie skaičiai būtų spalvoti.
Sąlyginio formatavimo taisyklė #1
- Pasirinkite diapazoną A2: AP32, eikite į Pagrindinis -> Sąlyginis formatavimas -> Nauja taisyklė
- Dialogo lange Nauja formatavimo taisyklė spustelėkite „Naudokite formulę, kad nustatytumėte, kurias langelius formatuoti“, ir įveskite šią formulę:
= MOD ($ 1,15 $) = MOD (ROW ()+A $ 1,15)
- Spustelėkite formatavimo mygtuką ir nustatykite šrifto spalvą į baltą
- Spustelėkite Gerai
Sąlyginio formatavimo taisyklė #2
- Pasirinkę diapazoną A2: AP32, eikite į Pagrindinis -> Sąlyginis formatavimas -> Tvarkyti taisyklę
- Dialogo lange Sąlyginio formatavimo taisyklių tvarkytuvė spustelėkite Nauja taisyklė
- Dialogo lange Nauja formatavimo taisyklė spustelėkite „Naudokite formulę, kad nustatytumėte, kurias langelius formatuoti“, ir įveskite šią formulę:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1+1,15) - Spustelėkite formatavimo mygtuką ir nustatykite šviesiai žalią šrifto spalvą
- Spustelėkite Gerai
Sąlyginio formatavimo taisyklė #3
- Pasirinkę diapazoną A2: AP32, eikite į Pagrindinis -> Sąlyginis formatavimas -> Tvarkyti taisyklę
- Dialogo lange Sąlyginio formatavimo taisyklių tvarkytuvė spustelėkite Nauja taisyklė
- Dialogo lange Nauja formatavimo taisyklė spustelėkite „Naudokite formulę, kad nustatytumėte, kurias langelius formatuoti“, ir įveskite šią formulę:
= ARBA (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)) - Spustelėkite formatavimo mygtuką ir nustatykite šviesiai žalią šrifto spalvą.
- Spustelėkite Gerai.
Atsižvelgiant į eilutės numerį ir reikšmę pirmoje eilutėje, sąlyginis formatavimas tekstą nuspalvintų žalia, šviesiai žalia arba balta spalva.
Dabar pasirinkite visą langelių diapazoną (A1: AP32) ir padarykite foną juodą.
Paskutiniame etape įterpkite figūrą/mygtuką ir priskirkite šią makrokomandą šiai formai/mygtukui.
Pastaba: Kadangi jame yra VBA kodas, išsaugokite failą su plėtiniu .xls arba .xlsm.
Viskas! Dabar atsineškite puodelį kavos, stovėkite pavėsyje ir mėgaukitės „Matrix“ krintančiais skaičiais skaitmeniniu lietumi 🙂
