Nagy rajongója vagyok a Mátrix filmsorozatnak. A maga korában elképesztő alkotás, és az egyik kedvenc sci -fi sorozatom.
Ha látta a Matrixot, nincs olyan, hogy ne emlékezne a leeső kódsorozatra.
Gondoltam, hogy ezt Excelben készítem el, de valaki legyőzött. Már elkészült és itt érhető el.
Nitin Mehta, aki ezt létrehozta, néhány Excel funkciót, feltételes formázást és görgetősávot használt az effektus létrehozásához.
Módosítottam a görgetősáv eltávolítására, és helyette VBA -kódot használtam. Most egyszerűen kattintson a lejátszás gombra, és a számok önmaguktól csökkenni kezdenek. Valami az alábbiak szerint:
Mátrix eső számok hatása az Excelben
Az alábbi lépésekkel hozhatja létre a mátrix eső számok hatását az Excelben:
- Az A1: AP1 tartomány első sorában adjon meg véletlenszerű számokat 0 és 9 között. Ezeket a számokat manuálisan is megadhatja a RANDBETWEEN funkció használatával. Ne felejtse el ezeket a számokat értékekké alakítani.
- Csökkentse az oszlop szélességét úgy, hogy egyetlen képernyőn látható legyen.
- Az A2: AP32 tartományba írja be a következő képletet: = INT (RAND ()*10)
- Másolja és illessze be az alábbi kódot egy modulba a VBA -ban
#If VBA7 then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '64 bites rendszerekhez #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' 32 bites rendszerekhez #End If Sub MatrixNumberRain () i = 1 Do while i <= 40 DoEvents Range ("AR1"). Érték = ii = i + 1 Sleep 50 Loop End Sub
Ez a fenti kód az 1 -es és 4o közötti számot írja be az AR1 cellába. A Sleep 50 kód 50 ezredmásodperccel késlelteti a számok bevitelét. Ha futtatja ezt a kódot, láthatja, hogy az AR1 értéke 1 -ről 40 -re emelkedik.
Most meg kell adnunk három feltételes formázási szabályt, hogy színt adjunk ezeknek a számoknak.
Feltételes formázási szabály #1
- Válassza ki az A2: AP32 tartományt, majd lépjen a Kezdőlap -> Feltételes formázás -> Új szabály menüpontra
- Az Új formázási szabály párbeszédpanelen kattintson a „Képlet használatával határozza meg a formázandó cellákat” lehetőségre, és írja be a következő képletet:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1,15)
- Kattintson a formátum gombra, és állítsa a betűtípust fehérre
- Kattintson az OK gombra
Feltételes formázási szabály #2
- Az A2: AP32 tartomány kiválasztásával lépjen a Kezdőlap -> Feltételes formázás -> Szabály kezelése menüpontra
- A Feltételes formázási szabályok kezelője párbeszédpanelen kattintson az Új szabály elemre
- Az Új formázási szabály párbeszédpanelen kattintson a „Képlet használatával határozza meg a formázandó cellákat” lehetőségre, és írja be a következő képletet:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1+1,15) - Kattintson a formázás gombra, és állítsa a betűszínt világoszöldre
- Kattintson az OK gombra
Feltételes formázási szabály #3
- Az A2: AP32 tartomány kiválasztásával lépjen a Kezdőlap -> Feltételes formázás -> Szabály kezelése menüpontra
- A Feltételes formázási szabályok kezelője párbeszédpanelen kattintson az Új szabály elemre
- Az Új formázási szabály párbeszédpanelen kattintson a „Képlet használatával határozza meg a formázandó cellákat” lehetőségre, és írja be a következő képletet:
= VAGY (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)) - Kattintson a formázás gombra, és állítsa a betűszínt világoszöldre.
- Kattintson az OK gombra.
Az első sor sorszáma és értéke alapján a feltételes formázás zöldre, világoszöldre vagy fehérre színezi a szöveget.
Most válassza ki a cella teljes tartományát (A1: AP32), és feketítse a hátteret.
Utolsó lépésként helyezzen be egy alakzatot/gombot, és rendelje hozzá ezt a makrót ehhez az alakzathoz/gombhoz.
jegyzet: Mivel ebben VBA kód van, mentse a fájlt .xls vagy .xlsm kiterjesztéssel.
Ez az! Most szerezzen magának egy csésze kávét, álljon az árnyékban, és élvezze a Matrix hulló számok digitális esőjét 🙂
