Jsem velkým fanouškem filmové série Matrix. Je to úžasné dílo své doby a jedna z mých oblíbených sci -fi filmových sérií.
Pokud jste viděli Matrix, neexistuje způsob, jak byste si nepamatovali klesající sekvenci kódu.
Myslel jsem, že to vytvořím v Excelu, ale někdo mě porazil. Již byl vytvořen a je k dispozici zde.
Nitin Mehta, který to vytvořil, použil k vytvoření tohoto efektu několik funkcí aplikace Excel, podmíněné formátování a posuvník.
Upravil jsem to, abych odstranil posuvník a místo toho jsem použil kód VBA. Nyní můžete jednoduše kliknout na tlačítko Přehrát a čísla by začala sama padat. Něco, jak je uvedeno níže:
Vliv matice na padající čísla v Excelu
Zde jsou kroky k vytvoření efektu klesajících čísel matice v aplikaci Excel:
- Do prvního řádku v rozsahu A1: AP1 zadejte náhodná čísla od 0 do 9. Tato čísla můžete buď zadat ručně pomocí funkce RANDBETWEEN. Nezapomeňte tato čísla převést na hodnoty.
- Zmenšete šířku sloupce, aby byl viditelný na jedné obrazovce.
- V rozsahu A2: AP32 zadejte vzorec: = INT (RAND ()*10)
- Zkopírujte a vložte níže uvedený kód do modulu ve VBA
#If VBA7 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 64 Bit Systems #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' For 32 Bit Systems #End If Sub MatrixNumberRain () i = 1 Do While i <= 40 DoEvents Range ("AR1"). Hodnota = ii = i + 1 Sleep 50 Loop End Sub
Tento výše uvedený kód by zadal číslo od 1 do 4o v buňce AR1. Kód Sleep 50 by zpozdil zadávání čísel o 50 milisekund. Pokud spustíte tento kód, uvidíte hodnotu AR1 od 1 do 40.
Nyní musíme určit tři pravidla podmíněného formátování, která těmto číslům dodají barvu.
Pravidlo č. 1 podmíněného formátování
- Vyberte rozsah A2: AP32, přejděte na Domů -> Podmíněné formátování -> Nové pravidlo
- V dialogovém okně Nové pravidlo formátování klikněte na „Pomocí vzorce určit, které buňky chcete formátovat“ a zadejte následující vzorec:
= MOD ($ AR $ 1,15) = MOD (ŘADA ()+A $ 1,15)
- Klikněte na tlačítko Formát a nastavte barvu písma na bílou
- Klikněte na OK
Pravidlo č. 2 podmíněného formátování
- S vybraným rozsahem A2: AP32 přejděte na Domů -> Podmíněné formátování -> Spravovat pravidlo
- V dialogovém okně Správce pravidel podmíněného formátování klikněte na Nové pravidlo
- V dialogovém okně Nové pravidlo formátování klikněte na „Pomocí vzorce určit, které buňky chcete formátovat“ a zadejte následující vzorec:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1+1,15) - Klikněte na tlačítko formátu a nastavte barvu písma na světle zelenou
- Klikněte na OK
Pravidlo podmíněného formátování č. 3
- S vybraným rozsahem A2: AP32 přejděte na Domů -> Podmíněné formátování -> Spravovat pravidlo
- V dialogovém okně Správce pravidel podmíněného formátování klikněte na Nové pravidlo
- V dialogovém okně Nové pravidlo formátování klikněte na „Pomocí vzorce určit, které buňky chcete formátovat“ a zadejte následující vzorec:
= NEBO (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)) - Klikněte na tlačítko formátu a nastavte barvu písma na světle zelenou.
- Klikněte na OK.
Na základě čísla řádku a hodnoty v prvním řádku by podmíněné formátování zabarvilo text zeleně, světle zeleně nebo bíle.
Nyní vyberte celý rozsah buněk (A1: AP32) a udělejte pozadí černé.
Jako poslední krok vložte tvar/tlačítko a přiřaďte tomuto tvaru/tlačítku toto makro.
Poznámka: Protože obsahuje kód VBA, uložte soubor s příponou .xls nebo .xlsm.
A je to! Nyní si dejte šálek kávy, postavte se do stínu a užijte si digitální déšť Matrix klesajících čísel 🙂
