Είμαι τεράστιος θαυμαστής της σειράς ταινιών Matrix. Είναι ένα εκπληκτικό έργο της εποχής του και μια από τις αγαπημένες μου σειρές ταινιών επιστημονικής φαντασίας.
Αν έχετε δει το Matrix, δεν υπάρχει περίπτωση να μην θυμάστε την ακολουθία κώδικα που πέφτει.
Σκέφτηκα να το δημιουργήσω στο Excel, αλλά κάποιος με χτύπησε. Έχει ήδη δημιουργηθεί και είναι διαθέσιμο εδώ.
Ο Nitin Mehta, ο οποίος το δημιούργησε, χρησιμοποίησε μερικές λειτουργίες Excel, μορφοποίηση υπό όρους και μια γραμμή κύλισης για να δημιουργήσει αυτό το εφέ.
Το έχω τροποποιήσει για να καταργήσω τη γραμμή κύλισης και αντ 'αυτού έχω χρησιμοποιήσει έναν κωδικό VBA. Τώρα μπορείτε απλά να κάνετε κλικ στο κουμπί αναπαραγωγής και οι αριθμοί θα αρχίσουν να πέφτουν από μόνοι τους. Κάτι όπως φαίνεται παρακάτω:
Επίδραση πτώσης αριθμών Matrix στο Excel
Ακολουθούν τα βήματα για τη δημιουργία του εφέ πτώσης αριθμών μήτρας στο excel:
- Στην πρώτη σειρά στο εύρος A1: AP1, εισαγάγετε τυχαίους αριθμούς μεταξύ 0 και 9. Μπορείτε είτε να εισαγάγετε χειροκίνητα αυτούς τους αριθμούς για να χρησιμοποιήσετε τη συνάρτηση RANDBETWEEN. Θυμηθείτε να μετατρέψετε αυτούς τους αριθμούς σε τιμές.
- Μειώστε το πλάτος της στήλης έτσι ώστε να είναι ορατό σε μία μόνο οθόνη.
- Στο εύρος A2: AP32, πληκτρολογήστε τον τύπο: = INT (RAND ()*10)
- Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα σε μια λειτουργική μονάδα στο VBA
#If VBA7 Then Δηλώστε το 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"). Τιμή = ii = i + 1 Sleep 50 Loop End Sub
Αυτός ο παραπάνω κωδικός θα εισάγει τον αριθμό από 1 έως 4o στο κελί AR1. Ο κωδικός Sleep 50 θα καθυστερούσε την εισαγωγή αριθμών κατά 50 χιλιοστά του δευτερολέπτου. Εάν εκτελείτε αυτόν τον κώδικα, θα μπορείτε να δείτε την τιμή στο AR1 να πηγαίνει από το 1 στο 40.
Τώρα πρέπει να καθορίσουμε τρεις κανόνες μορφοποίησης υπό όρους για να δώσουμε χρώμα σε αυτούς τους αριθμούς.
Κανόνας μορφοποίησης υπό όρους #1
- Επιλέξτε το εύρος A2: AP32, μεταβείτε στην Αρχική σελίδα -> Μορφοποίηση υπό όρους -> Νέος κανόνας
- Στο παράθυρο διαλόγου Κανόνας νέας μορφοποίησης, κάντε κλικ στο «Χρήση ενός τύπου για να καθορίσετε ποια κελιά θα μορφοποιήσετε» και εισαγάγετε τον ακόλουθο τύπο:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1,15)
- Κάντε κλικ στο κουμπί μορφοποίησης και ορίστε το χρώμα της γραμματοσειράς σε λευκό
- Κάντε κλικ στο OK
Κανόνας μορφοποίησης υπό όρους #2
- Με επιλεγμένο το εύρος A2: AP32, μεταβείτε στην Αρχική σελίδα -> Μορφοποίηση υπό όρους -> Διαχείριση κανόνα
- Στο πλαίσιο διαλόγου Διαχειριστής κανόνων υπό όρους μορφοποίησης, κάντε κλικ στο Νέος κανόνας
- Στο παράθυρο διαλόγου Κανόνας νέας μορφοποίησης, κάντε κλικ στο «Χρήση ενός τύπου για να καθορίσετε ποια κελιά θα μορφοποιήσετε» και εισαγάγετε τον ακόλουθο τύπο:
= MOD ($ AR $ 1,15) = MOD (ROW ()+A $ 1+1,15) - Κάντε κλικ στο κουμπί μορφοποίησης και ορίστε το χρώμα της γραμματοσειράς σε ανοιχτό πράσινο
- Κάντε κλικ στο OK
Κανόνας μορφοποίησης υπό όρους #3
- Με επιλεγμένο το εύρος A2: AP32, μεταβείτε στην Αρχική σελίδα -> Μορφοποίηση υπό όρους -> Διαχείριση κανόνα
- Στο πλαίσιο διαλόγου Διαχειριστής κανόνων υπό όρους μορφοποίησης, κάντε κλικ στο Νέος κανόνας
- Στο παράθυρο διαλόγου Κανόνας νέας μορφοποίησης, κάντε κλικ στο «Χρήση ενός τύπου για να καθορίσετε ποια κελιά θα μορφοποιήσετε» και εισαγάγετε τον ακόλουθο τύπο:
= ((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)) - Κάντε κλικ στο κουμπί μορφοποίησης και ορίστε το χρώμα της γραμματοσειράς σε ανοιχτό πράσινο.
- Κάντε κλικ στο OK.
Με βάση τον αριθμό και την τιμή της γραμμής στην πρώτη σειρά, η μορφοποίηση υπό όρους θα χρωματίσει το κείμενο πράσινο, ανοιχτό πράσινο ή λευκό.
Τώρα επιλέξτε ολόκληρο το εύρος κελιών (A1: AP32) και κάντε το φόντο μαύρο.
Ως τελευταίο βήμα, εισαγάγετε ένα σχήμα/κουμπί και αντιστοιχίστε αυτήν τη μακροεντολή σε αυτό το σχήμα/κουμπί.
Σημείωση: Δεδομένου ότι αυτό περιέχει έναν κωδικό VBA, αποθηκεύστε το αρχείο με επέκταση .xls ή .xlsm.
Αυτό είναι! Πάρτε τώρα ένα φλιτζάνι καφέ, σταθείτε στη σκιά και απολαύστε την ψηφιακή βροχή Matrix που πέφτει numbers
