Ich bin ein großer Fan der Matrix-Filmreihe. Es ist ein erstaunliches Werk seiner Zeit und eine meiner Lieblings-Science-Fiction-Filmreihen.
Wenn Sie Matrix gesehen haben, werden Sie sich auf keinen Fall an die fallende Codesequenz erinnern.
Ich dachte daran, dies in Excel zu erstellen, aber jemand hat mich geschlagen. Es wurde bereits erstellt und ist hier verfügbar.
Nitin Mehta, der dies erstellt hat, hat ein paar Excel-Funktionen, bedingte Formatierung und eine Bildlaufleiste verwendet, um diesen Effekt zu erzielen.
Ich habe es geändert, um die Bildlaufleiste zu entfernen, und stattdessen einen VBA-Code verwendet. Jetzt können Sie einfach auf den Play-Button klicken und die Zahlen würden von selbst fallen. Etwas wie unten gezeigt:
Matrix Falling Numbers-Effekt in Excel
Hier sind die Schritte, um den Effekt der fallenden Zahlen der Matrix in Excel zu erstellen:
- Geben Sie in der ersten Zeile im Bereich A1:AP1 Zufallszahlen zwischen 0 und 9 ein. Sie können diese Zahlen entweder manuell eingeben oder die RANDBETWEEN-Funktion verwenden. Denken Sie daran, diese Zahlen in Werte umzuwandeln.
- Verringern Sie die Spaltenbreite, sodass sie auf einem einzigen Bildschirm sichtbar ist.
- Geben Sie im Bereich A2:AP32 die Formel ein: =INT(RAND()*10)
- Kopieren Sie den folgenden Code und fügen Sie ihn in ein Modul in VBA ein
#If VBA7 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Für 64-Bit-Systeme #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Für 32-Bit-Systeme #End If Sub MatrixNumberRain () i = 1 Do While i <= 40 DoEvents Range("AR1").Value = ii = i + 1 Sleep 50 Loop End Sub
Dieser obige Code würde die Zahl von 1 bis 4o in Zelle AR1 eingeben. Der Code Sleep 50 würde die Eingabe von Zahlen um 50 Millisekunden verzögern. Wenn Sie diesen Code ausführen, können Sie sehen, dass der Wert in AR1 von 1 bis 40 geht.
Jetzt müssen wir drei Regeln für die bedingte Formatierung angeben, um diesen Zahlen Farbe zu verleihen.
Bedingte Formatierungsregel Nr. 1
- Wählen Sie den Bereich A2:AP32, gehen Sie zu Home -> Bedingte Formatierung -> Neue Regel
- Klicken Sie im Dialogfeld Neue Formatierungsregel auf „Formel verwenden, um zu bestimmen, welche Zellen formatiert werden sollen“ und geben Sie die folgende Formel ein:
=MOD($AR$1,15)=MOD(ROW()+A$1,15)
- Klicken Sie auf die Schaltfläche Formatieren und stellen Sie die Schriftfarbe auf Weiß ein
- OK klicken
Bedingte Formatierungsregel #2
- Wenn der Bereich A2:AP32 ausgewählt ist, gehen Sie zu Home -> Bedingte Formatierung -> Regel verwalten
- Klicken Sie im Dialogfeld „Regeln für bedingte Formatierung“ auf „Neue Regel“.
- Klicken Sie im Dialogfeld Neue Formatierungsregel auf „Formel verwenden, um zu bestimmen, welche Zellen formatiert werden sollen“ und geben Sie die folgende Formel ein:
=MOD($AR$1,15)=MOD(ROW()+A$1+1,15) - Klicken Sie auf die Schaltfläche Formatieren und stellen Sie die Schriftfarbe auf hellgrün
- OK klicken
Bedingte Formatierungsregel #3
- Wenn der Bereich A2:AP32 ausgewählt ist, gehen Sie zu Home -> Bedingte Formatierung -> Regel verwalten
- Klicken Sie im Dialogfeld „Regeln für bedingte Formatierung“ auf „Neue Regel“.
- Klicken Sie im Dialogfeld Neue Formatierungsregel auf „Formel verwenden, um zu bestimmen, welche Zellen formatiert werden sollen“ und geben Sie die folgende Formel ein:
=OR(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)) - Klicken Sie auf die Schaltfläche Formatieren und stellen Sie die Schriftfarbe auf hellgrün ein.
- OK klicken.
Basierend auf der Zeilennummer und dem Wert in der ersten Zeile würde die bedingte Formatierung den Text grün, hellgrün oder weiß färben.
Wählen Sie nun den gesamten Zellbereich (A1:AP32) aus und machen Sie den Hintergrund schwarz.
Fügen Sie als letzten Schritt eine Form/Schaltfläche ein und weisen Sie dieser Form/Schaltfläche dieses Makro zu.
Notiz: Da dies einen VBA-Code enthält, speichern Sie die Datei mit der Erweiterung .xls oder .xlsm.
Das ist es! Holen Sie sich jetzt eine Tasse Kaffee, stellen Sie sich in den Schatten und genießen Sie den digitalen Regen der fallenden Zahlen von Matrix 🙂
