Велики сам обожаватељ серије филмова Матрик. То је невероватно дело свог времена и једна од мојих омиљених серија научнофантастичних филмова.
Ако сте видели Матрик, нема шансе да се не сетите падајућег кода.
Помислио сам да ово направим у Екцелу, али неко ме је победио. Већ је креиран и доступан је овде.
Нитин Мехта, који је ово створио, користио је неколико Екцел функција, условно обликовање и траку за померање за стварање овог ефекта.
Изменио сам га да уклоним траку за померање и уместо тога сам користио ВБА код. Сада можете једноставно кликнути на дугме за репродукцију и бројеви би сами почели да падају. Нешто као што је приказано испод:
Ефекат падајућих матрица у Екцелу
Ево корака за стварање ефекта пада бројева матрице у Екцелу:
- У први ред у распону А1: АП1 унесите насумичне бројеве од 0 до 9. Можете их ручно унијети користећи функцију РАНДБЕТВЕЕН. Не заборавите да ове бројеве претворите у вредности.
- Смањите ширину колоне тако да буде видљива на једном екрану.
- У опсег А2: АП32 унесите формулу: = ИНТ (РАНД ()*10)
- Копирајте и залепите доњи код у модул у ВБА
#Ако ВБА7 Затим јавно декларишите ПтрСафе Суб Слееп Либ "кернел32" (БиВал двМиллисецондс Ас Лонг) 'За 64 -битне системе #Елсе Публиц Децларе Суб Слееп Либ "кернел32" (БиВал двМиллисецондс Ас Лонг)' За 32 -битне системе #Енд Иф Суб МатрикНумберРаин () и = 1 До Вхиле и <= 40 ДоЕвентс Ранге ("АР1"). Валуе = ии = и + 1 Слееп 50 Лооп Енд Суб
Овај горњи код би унео број од 1 до 4о у ћелију АР1. Код Слееп 50 би одложио унос бројева за 50 милисекунди. Ако покренете овај код, моћи ћете да видите вредност у АР1 од 1 до 40.
Сада морамо навести три правила условног обликовања да бисмо овим бојама дали боју.
Правило условног обликовања #1
- Одаберите распон А2: АП32, идите на Почетна -> Условно обликовање -> Ново правило
- У дијалогу Ново правило обликовања кликните на „Користи формулу за одређивање ћелија које треба форматирати“ и унесите следећу формулу:
= МОД ($ АР $ 1,15) = МОД (РОВ ()+А $ 1,15)
- Притисните дугме за обликовање и подесите боју фонта на белу
- Притисните ОК
Правило условног обликовања #2
- С одабраним распоном А2: АП32, идите на Почетна -> Увјетно обликовање -> Управљање правилом
- У дијалогу Управљач правилима условног обликовања кликните на Ново правило
- У дијалогу Ново правило обликовања кликните на „Користи формулу за одређивање ћелија које треба форматирати“ и унесите следећу формулу:
= МОД ($ АР $ 1,15) = МОД (РОВ ()+А $ 1+1,15) - Притисните дугме за обликовање и подесите боју фонта на светло зелену
- Притисните ОК
Правило условног обликовања #3
- С одабраним распоном А2: АП32, идите на Почетна -> Увјетно обликовање -> Управљање правилом
- У дијалогу Управљач правилима условног обликовања кликните на Ново правило
- У дијалогу Ново правило обликовања кликните на „Користи формулу за одређивање ћелија које треба форматирати“ и унесите следећу формулу:
= ИЛИ (МОД ($ АР $ 1,15) = МОД (РОВ ()+А $ 1+2,15), МОД ($ АР $ 1,15) = МОД (РОВ ()+А $ 1+3,15), МОД ($ АР $ 1,15) = МОД (РОВ ()+А $ 1+4,15), МОД ($ АР $ 1,15) = МОД (РОВ ()+А $ 1+5,15)) - Притисните дугме за обликовање и подесите боју фонта на светло зелену.
- Притисните ОК.
На основу броја реда и вредности у првом реду, условно обликовање би обојило текст у зелену, светло зелену или белу боју.
Сада одаберите цијели распон ћелија (А1: АП32) и учините позадину црном.
Као последњи корак, уметните облик/дугме и доделите овај макро том облику/дугмету.
Белешка: Пошто ово садржи ВБА код, сачувајте датотеку са екстензијом .клс или .клсм.
То је то! Сада си набавите шољу кафе, стојте у хладу и уживајте у дигиталној киши Матрик падајућих бројева 🙂