Sem velik oboževalec serije Matrix. To je neverjetno delo svojega časa in ena mojih najljubših serij znanstvenofantastičnih filmov.
Če ste videli Matrix, se nikakor ne bi spomnili padajočega kodnega zaporedja.
Mislil sem ustvariti to v Excelu, vendar me je nekdo premagal. Ustvarjen je že in je na voljo tukaj.
Nitin Mehta, ki je to ustvaril, je za ustvarjanje tega učinka uporabil nekaj Excelovih funkcij, pogojno oblikovanje in drsnik.
Spremenil sem ga tako, da odstranim drsnik in namesto tega uporabil kodo VBA. Zdaj lahko preprosto kliknete gumb za predvajanje in številke bodo začele padati same od sebe. Nekaj, kot je prikazano spodaj:
Učinek padajočih številk matrike v Excelu
Tu so koraki za ustvarjanje učinka matričnih padajočih števil v Excelu:
- V prvo vrstico v razponu A1: AP1 vnesite naključne številke med 0 in 9. Te številke lahko vnesete ročno z uporabo funkcije RANDBETWEEN. Ne pozabite pretvoriti teh številk v vrednosti.
- Zmanjšajte širino stolpca, da bo viden na enem zaslonu.
- V obseg A2: AP32 vnesite formulo: = INT (RAND ()*10)
- Kopirajte in prilepite spodnjo kodo v modul v VBA
#Če je VBA7, nato javno razglasite PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Za 64 -bitne sisteme #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' Za 32 -bitne sisteme #End If Sub MatrixNumberRain () i = 1 Do While i <= 40 DoEvents Range ("AR1"). Value = ii = i + 1 Sleep 50 Loop End Sub
Zgornja koda bi v celico AR1 vnesla številko od 1 do 4o. Koda Sleep 50 bi za 50 milisekund odložila vnos številk. Če zaženete to kodo, boste lahko videli vrednost v AR1 od 1 do 40.
Zdaj moramo določiti tri pravila pogojnega oblikovanja, da tem številkam damo barvo.
Pravilo pogojnega oblikovanja #1
- Izberite obseg A2: AP32, pojdite na Domov -> Pogojno oblikovanje -> Novo pravilo
- V pogovornem oknu Novo pravilo oblikovanja kliknite »Uporabi formulo za določitev celic, ki jih želite formatirati« in vnesite naslednjo formulo:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1,15)
- Kliknite gumb za oblikovanje in nastavite barvo pisave na belo
- Kliknite V redu
Pravilo pogojnega oblikovanja #2
- Z izbranim obsegom A2: AP32 pojdite na Domov -> Pogojno oblikovanje -> Upravljanje pravila
- V pogovornem oknu Upravitelj pravil pogojnega oblikovanja kliknite Novo pravilo
- V pogovornem oknu Novo pravilo oblikovanja kliknite »Uporabi formulo za določitev celic, ki jih želite formatirati« in vnesite naslednjo formulo:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1+1,15) - Kliknite gumb za oblikovanje in barvo pisave nastavite na svetlo zeleno
- Kliknite V redu
Pravilo pogojnega oblikovanja #3
- Z izbranim obsegom A2: AP32 pojdite na Domov -> Pogojno oblikovanje -> Upravljanje pravila
- V pogovornem oknu Upravitelj pravil pogojnega oblikovanja kliknite Novo pravilo
- V pogovornem oknu Novo pravilo oblikovanja kliknite »Uporabi formulo za določitev celic, ki jih želite formatirati« in vnesite naslednjo formulo:
= ALI (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)) - Kliknite gumb za oblikovanje in barvo pisave nastavite na svetlo zeleno.
- Kliknite V redu.
Na podlagi številke vrstice in vrednosti v prvi vrstici bi pogojno oblikovanje besedilo obarvalo zeleno, svetlo zeleno ali belo.
Zdaj izberite celoten obseg celic (A1: AP32) in ozadje naredite črno.
Kot zadnji korak vstavite obliko/gumb in dodelite ta makro tej obliki/gumbu.
Opomba: Ker ima ta kodo VBA, shranite datoteko s pripono .xls ali .xlsm.
To je to! Zdaj si privoščite skodelico kave, stojte v senci in uživajte v digitalnem dežju Matrix padajočih številk 🙂
