Veliki sam obožavatelj serije filmova Matrix. To je nevjerojatno djelo svog vremena i jedna od mojih omiljenih serija znanstveno -fantastičnih filmova.
Ako ste vidjeli Matrix, nema šanse da se ne sjetite padajućeg koda.
Mislio sam stvoriti ovo u Excelu, ali netko me pobijedio. Već je kreiran i dostupan je ovdje.
Nitin Mehta, koji je ovo stvorio, upotrijebio je nekoliko Excel funkcija, uvjetno oblikovanje i traku za pomicanje za stvaranje ovog učinka.
Izmijenio sam ga kako bih uklonio traku za pomicanje i umjesto toga koristio sam VBA kôd. Sada možete jednostavno kliknuti gumb za reprodukciju i brojevi bi sami počeli padati. Nešto kao što je prikazano ispod:
Učinak padajućih matrica u Excelu
Evo koraka za stvaranje učinka padajućih brojeva matrice u Excelu:
- U prvi redak u rasponu A1: AP1 unesite slučajne brojeve između 0 do 9. Možete ručno unijeti te brojeve pomoću funkcije RANDBETWEEN. Ne zaboravite pretvoriti ove brojeve u vrijednosti.
- Smanjite širinu stupca tako da bude vidljiv na jednom zaslonu.
- U raspon A2: AP32 unesite formulu: = INT (RAND ()*10)
- Kopirajte i zalijepite donji kod u modul u VBA
#Ako VBA7 Zatim javno deklarirajte PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Za 64 -bitne sustave #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' Za 32 bitne sustave #End If Sub MatrixNumberRain () i = 1 Do While i <= 40 DoEvents Range ("AR1"). Vrijednost = ii = i + 1 Sleep 50 Loop End Sub
Ovaj gornji kôd unijeo bi broj od 1 do 4o u ćeliju AR1. Kod Sleep 50 odgodio bi unos brojeva za 50 milisekundi. Ako pokrenete ovaj kôd, moći ćete vidjeti vrijednost u AR1 od 1 do 40.
Sada moramo navesti tri pravila uvjetnog oblikovanja kako bismo ovim bojama dali boju.
Pravilo uvjetnog oblikovanja #1
- Odaberite raspon A2: AP32, idite na Početna -> Uvjetno oblikovanje -> Novo pravilo
- U dijaloškom okviru Novo pravilo oblikovanja kliknite "Koristi formulu za određivanje ćelija koje ćete oblikovati" i unesite sljedeću formulu:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1,15)
- Pritisnite gumb za oblikovanje i postavite boju fonta na bijelu
- Pritisnite U redu
Pravilo uvjetnog oblikovanja #2
- S odabranim rasponom A2: AP32 idite na Početna -> Uvjetno oblikovanje -> Upravljanje pravilom
- U dijaloškom okviru Upravitelj pravila uvjetnog oblikovanja kliknite Novo pravilo
- U dijaloškom okviru Novo pravilo oblikovanja kliknite "Koristi formulu za određivanje ćelija koje ćete oblikovati" i unesite sljedeću formulu:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1+1,15) - Pritisnite gumb za oblikovanje i postavite boju fonta na svijetlo zelenu
- Pritisnite U redu
Pravilo uvjetnog oblikovanja #3
- S odabranim rasponom A2: AP32 idite na Početna -> Uvjetno oblikovanje -> Upravljanje pravilom
- U dijaloškom okviru Upravitelj pravila uvjetnog oblikovanja kliknite Novo pravilo
- U dijaloškom okviru Novo pravilo oblikovanja kliknite "Koristi formulu za određivanje ćelija koje ćete oblikovati" i unesite sljedeću formulu:
= ILI (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)) - Pritisnite gumb za oblikovanje i postavite boju fonta na svijetlo zelenu.
- Pritisnite U redu.
Na temelju broja retka i vrijednosti u prvom redu, uvjetno oblikovanje obojilo bi tekst u zelenu, svijetlozelenu ili bijelu boju.
Sada odaberite cijeli raspon ćelija (A1: AP32) i učinite pozadinu crnom.
Kao posljednji korak, umetnite oblik/gumb i dodijelite ovu makro tom obliku/gumbu.
Bilješka: Budući da u njemu ima VBA kod, spremite datoteku s nastavkom .xls ili .xlsm.
To je to! Sada si nabavite šalicu kave, stanite u hlad i uživajte u digitalnoj kiši Matrix padajućih brojeva 🙂
