Я великий шанувальник серії фільмів «Матриця». Це дивовижна робота свого часу і одна з моїх улюблених серій науково -фантастичних фільмів.
Якщо ви бачили Матрицю, неможливо запам'ятати падаючу послідовність коду.
Я думав створити це в Excel, але хтось перевершив мене. Він уже створений і доступний тут.
Нітін Мехта, який створив це, використав пару функцій Excel, умовне форматування та смугу прокрутки для створення цього ефекту.
Я змінив його, щоб видалити смугу прокрутки, і замість цього використав код VBA. Тепер ви можете просто натиснути кнопку відтворення, і цифри почнуть падати самі собою. Щось, як показано нижче:
Ефект падіння чисел матриці в Excel
Ось кроки для створення ефекту падіння чисел матриці в Excel:
- У першому рядку діапазону A1: AP1 введіть випадкові числа від 0 до 9. Ви можете ввести ці цифри вручну за допомогою функції RANDBETWEEN. Не забудьте перетворити ці числа у значення.
- Зменшіть ширину стовпця, щоб його було видно на одному екрані.
- У діапазоні A2: AP32 введіть формулу: = INT (RAND ()*10)
- Скопіюйте та вставте наведений нижче код у модуль у VBA
#Якщо VBA7 Тоді публічно оголосити PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Для 64 -розрядних систем #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' Для 32 -розрядних систем #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 🙂
