Пишем игру "Жизнь" на VBA в Excel

Как за 15 минут "с нуля" написать на VBA в Excel самую настоящую компьютерную игру "Жизнь" (Life) Джона Конвея. Скачать пример www.planetaexc... в гости ↓↓↓
Twitter / planeta_excel
Facebook / planetaexcel
Instagram / planetaexcel
Мои книги planetaexcel.ru...
Моя надстройка PLEX (+150 новых функций для вашего Excel) planetaexcel.ru...

[@pavell6284]

Еще раз спасибо за объяснение макросов. Побольше бы видео по макросам. 😀😀😀

[@Александр_Владимирович]

Эта игра у меня была курсовой работой после 1-го курса в начале 90-х. Делал в Turbo Pascal 5.0 с использованием модуля Graph, 30 Кб текста в pas-файле было ))) Эх, молодость, молодость... Сейчас в Excel забабахаю )))))))))))

[@komdiv4906]

Задача конечно очень легкая, но методы решения очень хорошие. Спасибо теперь я знаю еще чуть больше. Мой код был бы немного длиннее до этого видео. Я обожаю excel.

[@Иван-г5е1э]

Спасибо! Всё очень чётко, ничего лишнего. Думаю, что Ваша книга по VBA была бы бестселлером в кругу любителей Excel.

[@planetaexcel]

Спасибо! Напишу когда-нибудь обязательно :)

[@_dlh_drl_]

Давно уже написана Библия пользователя Excel.

[@trr55]

за Life лайк, когда-то давно в 80-е прочёл в журнале Scientific American про эту игру, делал у себя в блокноте будучи школьником, потом перешёл на стоклеточную доску для шашек, так как блокнот быстро заканчивался, сложновато было запоминать все итерации по рядам, пришлось сохранять пройденные шашки переворачивая, потом их удалял, но это развивало память и увеличивало возможности для игр. Очень помогало, что были двухцветные фишки для игры Реверси.

[@sozinovss]

Спасибо! Очень легкое и доступное объяснение! За создание сайта отдельное спасибо, когда приходилось писать макросы на vba, постоянно седел на вашем сайте.

[@Axel-57]

Голову снесло, спасибо =) моя жизнь не будет прежней. Я создал себе файл по Вашей инструкции и кнопочку сделал для старта. В Excel я - чайник, потому был удивлён, что в нем можно реализовать такую игру. А когда посмотрел видео, как строят динамичные системы в этой игре из фигур и полей я был в шоке. Спасибо большое!

[@АркадийКурцев]

С Новым годом и всех Вам благ!

[@vladimirchebykin2298]

Спасибо, Николай! Классный новогодний подарок для любителей экселя!

[@pizzzdeath]

Спасибо за интересную статью. Забыли про проверку объявления переменных, как правило хорошего тона option explicit. А так же можно объявлять Dim i%, n%, вместо as integer. % - integer, $ - string.

[@1iuh]

Спасибо за коммент. Гуглил "option explicit", нашёл много сайтов по VBA. Для меня VBA и другие языки программирования - как "Тёмный лес". Несколько раз начинал и забрасывал, отвлекаясь на что попало. В Excel даже вкладки и кнопки не всё знаю. Ужас. Начну заново и VBA, и Excel.

[@Proton_Atom]

Отличное видео и канал! Много полезного и интересного почерпнул из Ваших видео. Спасибо!

[@goshik73]

Очень классное видео! От имени и по поручению всего Ульяновска, поздравляю с Новым годом!!!

[@annaa7679]

Николай, спасибо! Пойду нарисую себе life-тамагочи в excel))

[@user-tr9fm7iy6l]

Спасибо, Николай!!! Красиво!!! С наступившим Новым годом и наилучшими пожеланиями!!!

[@sergeychuvichkin2748]

Огонь. На Планете эксель я научился очень многому, сайт реально классный, видео тоже крутое. Теперь вопрос: кто поставил дизлайки? Обоснуйте!

[@planetaexcel]

Забейте :)

[@ppr8117]

С наступающим Вас Новым Годом! Всех благ Вам и Вашим близким!

[@baxaalimov4573]

Спасибо Николай от вас научился много полезного ... Вот бы стать вашим учиником)))!

[@Udaw05]

Спасибо большое, Николай! Вас с Наступившим Новым Годом!!! Тема vba очень интересна и востребованна

[@user-pd5ph2zg7b]

Я усложнил эту игру. Два типа жизни: например, красная и черная. Живые ячейки закрашиваются в один из этих цветов. Мертвые ячейки белые. Игра - борьба живых ячеек со смертью и между собой! ГОРАЗДО ИНТЕРЕСНЕЕ.

[@Dmitrii-Zhinzhilov]

Благодарю, Николай!!! Доступно, понятно, здорово!!!

[@АлександрИванов-й4ш4д]

С наступающим! Очень интересно и познавательно! Спасибо и всего самого наилучшего во всем и творческих успехов!

[@AndryG1000]

Потрясно! Вот бы провести аналогию с предприятием... С Новым Годом!

[@plate_runner]

Офигеть, класс, Спасибо!

[@sevakworld]

С наступающим Новым 2020-м Годом и Рождеством! Желаю Вам счастья, удачи, достатка и благополучия, достижения поставленных целей, успехов и триумфальных побед во всех начинаниях.

[@planetaexcel]

Спасибо за поздравления, Севак! И вам всего самого наилучшего!

[@AlexandrVC]

Не вижу обещанную ссылку на сайт с коллекцией фигур. В остальном всё отлично, лайк.

[@ВладимирСтепанов-ф4я]

С новым годом вас. Большое спасибо вам за ваш блог. Привет из Грузии

[@andr003141]

Описание этой игры было еще в 90-годы на ассемблере. Был даже конкурс, кто это сделает с минимальным размером кода.

[@GrigSV]

3-е условие можно опустить. Ячейки и так очищаются. Да и конструкция n = ....CountA(...) - cell.value будет работать, если в качестве метки используется единица.

[@odmitv]

*Ничего не понятно, но ИНТЕРЕСНО!*

[@highwayautolife3155]

Актуальнейшая тема на Новый Год 2019-2020!!! Занятно себя ведет фигура из восьми вертикальных единичек....

[@planetaexcel]

О, сейчас попробую! :)

[@andreybessolitsyn2055]

Классная игра. Рубились в нее часами в школе в конце 1980-х...

[@gosha96]

Классная лекция по программированию.

[@ScorpRX]

Видел на питоне интересный вариант реализации, с едой, ядом, температурой и самообучением понятно (вообще тот видос про реализацию ген алгоритма). Собственно вопрос, ген алгоритм - по сути, простой перебор (случайный геном меняется в случае если объект выживает и набирает n- очков 0 параметров). Получается на VBA его тоже можно реализовать?

[@MrGWolfer]

А можно ссылку на вариант на питоне?

[@ГеоргийКузнецов-я5с]

Спасибо, очень интересно. Только есть пару вопросов: 1. Почему для расчета n мы вычитаем ЗНАЧЕНИЕ ячейки, а не применяем тот же countA? Ведь это в Вашем примере используются "1". Я же могу использовать звездочки или другие не числовые символы. 2. Почему получилась анимация? Я вообще думал, что мы после запуска макроса увидим только последнюю итерацию, а для последовательного просмотра нужно будет добавлять искусственную задержку.

[@moizametki587]

Есть ещё одна интересная игра из того же времени, называется - роботы. Поле n*m в центре вы, по полю разбросаны случайным образом роботы их количество зависит от сложности. За каждый ход вы можете передвигаться в любую из восьми сторон или стоять на месте, но роботы в этот ход приближаются на шаг в вашу сторону. Если два и более роботов встали на одну клетку, то они самоуничтожаются. Победа если все роботы уничтожены, проигрыш если кто-то из них догнал вас. Точно не помню, но вроде у персонажа есть ещё одно действие - телепорт в случайное место.

[@kuku2754]

Спасибо! Все доходчиво и понятно, только видимо на Маке есть какие-то ньюансы т.к. первый макрос не сработал. Осталось найти ту самую большую толстую книгу Ж)

[@АлександрМаксимов-в8м]

Отлично. Нужно попробовать.

[@alexanderbaranov5418]

Коля, спасибо! С Новым Годом!

[@yurd563]

Спасибо за видеоурок!

[@АлександрГагарин-н3е]

Супер спасибо, ох уж эти разные диалекты в языках программирования...

[@алексейгерасимов-ж1в]

это супер))) огромная Вам благодарность!!!

[@user-de9wt7lo2i]

Здравствуйте, подскажите код для активации макроса при изменении любой ячейки определенного столбца

[@ЕкатеринаКозубяк-о8и]

просто офигеть. Круто! Спасибо

[@qaraken6408]

С наступающим вас😀

[@КириллПеров-д3т]

Ура! Я стану богом в эксель! Это даже бесплатно, в отличии от стима! (А сейчас там у нас вообще ничего не купишь)

[@nikolaynikolayevich4469]

Спасибо за видео! В цикл можно запихнуть оператор DoEvents и благодаря этому программа не будет виснуть, что позволит наблюдать за жизнью более 50-ти поколений.

[@highwayautolife3155]

Код пожалста. А с чем связано подвисание после 50-ти?

[@РашИбнСулейманНафин]

@@highwayautolife3155 Не подвисает, просто цикл от 1 до 50 ;))

[@highwayautolife3155]

@@РашИбнСулейманНафин Если больше 50-ти поставить то виснет после 50.

[@nikolaynikolayevich4469]

​@@highwayautolife3155 в тело цикла "for i" нужно добавить строку DoEvents. Это исключит ситуацию, когда окно эксель не отвечает во время работы макроса. Это на случай, если придет в голову идея запустить цикл не до 50-ти, как в видео, а, например, до 500 или 5000.

[@highwayautolife3155]

@@nikolaynikolayevich4469 Виснет после 50-ти. Вернее после 50-ти никакого движения клеток не происходит. только курсор мигает бесконечно.

[@LenoTaar]

Просто супер!

[@ТатьянаЗарубина-ч7т]

просмотрела видео, скопировала себе макрос, но он у меня быстро отображается и результата не остается на листе игра, теперь буду разбираться почему, а так интересное видео , поучительное

[@sambrown8]

Супер

[@yurd563]

С Новым годом!

[@motorus24]

Супер урок! Требую продолжения банкета. С Новым годом! Кстати, как замедлить выполнение кода?

[@Midavok]

С Новым Годом! 2020

[@demixxren]

Спасибо! Очень крут получилось

[@opensourcevfx]

У меня ничего не происходит. Проверил код. Все также, только обозначение ячеек другое C2:C31. Наверное, в новой версии Excel что-то нужно иначе делать.

[@svetlanamazhaykina6918]

Спасибо!

[@1iuh]

18:36 Смотреть на скорости 0,25.

[@sughrasharifi4597]

Спасибо огромное ! 👏👏👏

[@АндрейДубинин-х3щ]

Помню когда у меня был 386, я года два по часа 3 в день залипал в эту игру

[@qzRONINzq]

Ооо! Уже три книги!

[@digitalminister5687]

А вот у меня вопрос: разве не нужно было использовать if else иначе же может ячейка поменятся на 1 и уже снова выполнить условие и уже стать пустой например?

[@АртемГладышев-е8ю]

Интересно

[@Romagames-v4m]

А как все таблицы выделенные расширить наоборот только все?

[@feikokwer4059]

Дорого дня!! Мучит непонемание)) - почему в коде, где идет цикл If cell = 1 And (n = 2 Or n = 3) Then wNext.Cells(cell.Row, cell.Column) = 1, нельзя ссилатся на rNext

[@juliasippel3174]

Добрый вечер! Все выполнила на Mac, но почему-то процесс не запустился. Подскажите пожалуйста в чем может быть проблема?

[@mikhailanufriev8101]

Николай) моя жизнь идёт очень быстро! Что делать?😅😅😅

[@Чёрт_Лысый]

Вместо For ... To лучше использовать Do Loop с аварийным покиданием цикла по нажатию любой клавиши

[@Простойчеловек-э5ь]

Код работает как в фоновом режиме, я не вижу его выполнение. Только Ctrl+Break показывает на каком этапе выполнения был макрос.

[@СергейФирстов-ц5м]

я нечего не понял но списал и у меня получилось 🙂

[@romanbolgar]

а нейросеть на VBA с наглядным выполнением весов в экселе написать можно? Где-то я встречал что, то подобное.

[@kekbarry3665]

Может лучше на ассемблере?

[@slam48rus]

Kek,ну ты и советчик.тыб ещё машинопись предложил

[@ДмитрийАкуличев-ъ7м]

VBA -- обычный Тьюринг-полный язык. А значит, на нём можно написать всё, что вообще в принципе может быть исполнено на цифровой машине.

[@romanbolgar]

Нет, в моде питон, но кому-то Excel привычнее. В идеале надеюсь появится Новое поколение еще более высокоуровневых языков программирования способных понимать и строить код вот из обычной речи. Но доживем ли мы...

[@АндрейЧемикос-к3и]

Здравствуйте Николай! Вашим подписчиком, я стал относительно не давно… Решил изучить execel, для скорости и удобства в использовании. Как дома, так и на работе. Как-то мне пришла платёжка на воду, цена меня за интриговала. Подумал почему бы ни сделать таблицу в execel. Вводить в ней данные только счётчика, а все остальные ячейки execel заполнит в автоматическом режиме…. Скинул Вам скриншот таблицы на почту, там только название столбцов) Реально создать такую таблицу в execel или нет? Сделаете учебное видео по моему вопросу?

[@w.t.2905]

Это можно сделать простой формулой =(Текущее показание - Предыдущее показание) * тариф

[@Татьяна-ф1в6л]

Добрый день! Руководствуясь видео создали макрос. После запуска Excel выдает ошибку. Помогите понять в чем ошибка! Выделяет вот эту строку: Set rGame = Worksheets("game").Range("B2:AE31")

[@planetaexcel]

Либо у вас нет листа "game", либо в имени диапазона есть русские буквы. Точнее сказать сложно, не видя код.

[@Татьяна-ф1в6л]

@@planetaexcel Спасибо, за оперативный ответ. Была наша опечатка в другой строке, не увидели сразу. Код действительно рабочий, но жизнь протекает совсем по другому. И даже те комбинации которые у вас без движения, у нас разрастаются.

[@РашИбнСулейманНафин]

Ха! Вот это круто!!!

[@Hydrobizon]

Видел как эту игру описывали в одном из фильмов Хокинга.

[@andr003141]

Этот вариант делал на Ассемблере (DOS 640*480), не очень впечатило. Может подскажите, как усложнить игру, может ввевсти случайное число. Главное где бы найти условия. Пока делать нечего, попробую на Ассемблере.

[@vlastalgt]

Недосмотрел пока всё видео, тоже подумал о случайном вводе при запуске макроса: задать три рандома - кол-во живых ячеек (ограничение 10-30 типа) и случайные координаты (чтоб не вылезали за пределы поля) да-а, давно уже не ковырялся в экселе, сразу подумал, можно жеж кнопку запуска на тот же лист поставить, нет ?!

[@user-qf1vx1mk1o]

Николай, добрый день! Как с Вами возможно связаться? На почту, ответа я всё еще не получил.

[@SamSambl4]

Спасибо

[@siddh7181]

Ребят, вот эту строку нужно обязательно убрать Dim rNext As Range, rGame As Range, rStart As Range, wNext As Worksheets после Sub Life() ( это вторая строка кода если что ), если вы оставите её, то код работать не будет.

[@Криперсслизнем1234]

а как сделать скорость ?

[@АндрейКопьев-з5з]

Спасибо за ролик. Очень хочется опробовать создание реальной игры. Это как я понял, просто симуляция. Не пойму почему игра?

[@planetaexcel]

Там в статье (ссылка под видео) как раз про это написано. Правильнее называть её не игрой, а клеточным автоматом, да.

[@ДмитрийАкуличев-ъ7м]

Традиционно, игрой называют любой процесс, который производится не столько ради результата, сколько ради самого процесса.

[@gregory1414ify]

Годнота

[@user-gx9td4yv7h]

Добрый день! Спасибо за Ваши уроки. У меня сложность, помогите пожалуйста решить мой вопрос (очень важно!) Мне необходим макрос который каждый определенный период времени (привязка к дате) будет удалять лист с данными, что я имею ввиду, он должен в определенное время, например 01.02.2020 удалить лист с данными, думаю вы понимаете для чего это делается, но у меня есть подозрение что при изменении формата книги с xlsm с поддержкой макроса на обычный формат или (другой без поддержки макроса), он может не отрабатывать, ну и в принципе вся предосторожность недопустить утечки данных небудет иметь актуальности. Спасибо.

[@viiviiv3914]

Даже изменение формата книги тут не нужно, файл скорее всего будет пересылаться по почте, а стандартные настройки безопасности экселя не дадут выполниться макросу в файле взятом не с компьютера. Вариант делать xlsb файл, настройками приватности скрывать листы и давать возможность открыть их только при исполнении макросов.

[@vitgot1]

я когда-то тоже Жизнь делал на экселе, лет 10 назад... Не сохранилось. Тогда эксель был другой...

[@w.t.2905]

Самое удивительное, что комментарии "потонули" в альтернативном коде тех, кто поставил 9 дизлайков. Столько предложений и подходов!

[@danxai]

Я одного не понял - а IF'ы разве не нужно закрывать EndIf'ами?

[@pizzzdeath]

Не нужно, если пишешь в 1 строку и с выполнением 1 команды

[@user-tq7yz9xb8g]

Небольшое замечание по статье - в статье, в коде не указаны переменные Dim rNext и т.д...

[@ЕвгенийГурьянов-г1х]

Здравствуйте Николай! не знаю смогу ли выразить свои мысли, в общем, как сделать в таблице эксель предупредитель повтора, например я пишу имя в таблице, потом через некоторое время пишу заново его имя, и потом мне его имя выделяется разукрашенным видом, что типо он уже есть в списках, думаю вы поняли суть)

[@planetaexcel]

www.planetaexcel.ru/techniques/14/67/

[@ЕвгенийГурьянов-г1х]

@@planetaexcel Спасибо большое) я уж думал, что не ответите)

[@Android-by8fb]

если это Windows 10 объясните как сделать чтобы заголовок окна был синей полоской?

[@sialsoft]

Есть окна приложений, которые читают цвет, установленный в цветовой теме Виндовс, а есть окна приложений, цвет которых установлен жестко разработчиком, либо зависит от цветовой темы в настройках самого приложениях.

[@Геннадий-ц9с]

Если у вас не видно вкладку "Разработчик" то вам здесь нечего делать )))

[@user-tq7yz9xb8g]

Может по макросам книжку напишете как про pq?

[@planetaexcel]

Когда-нибудь обязательно напишу. Хотя бы для коллекции :)

[@user-tq7yz9xb8g]

@@planetaexcel за книгу про pq спасибо. Купил, читаю.

[@neo7997veddev]

Интересно как знак доллара будет себя вести)

[@planetaexcel]

Начнет расти? :)

[@piktogor]

Офигеть))

[@razvedchik2021]

Я учусь программировать. Но когда я узнал про это то моё лицо было такое: 😲😮

[@Brain_House_86]

Вылетает ошибка run-time error '13' type mismatch

[@GENVID]

Иван, вы смогли решить эту проблему если помните? Если решили, скажите пожалуйста как вы это сделали?

[@1iuh]

20:04 ссылку на сайт забыли дать.

[@ДаниилСаркисян-б4д]

Ничего он не забыл, внимательно его послушай)))

[@planetaexcel]

Ссылочка, как и обещано, в статье под видео, но могу продублировать и тут еще разок - conwaylife.com/wiki/Main_Page С Новым Годом! :)

[@moizametki587]

как -то слишком просто оказалось. я бы всё это сделал куда более криво. спасибо, интересно и позновательно

[@planetaexcel]

Хотелось сделать максимально просто, чтобы уложиться минут в 15 :)

[@Leprotto1985]

За этим «просто» стоит большая работа по подготовке!

[@ra1618]

@@Leprotto1985 Скорее огромный опыт. Впрочем, это почти синонимы ))

[@depththechic]

у меня ошибка 1004

[@Ron_Davidson]

как столбики от А до АЕ одного размера сделать так быстро ? (3:56)

[@Ron_Davidson]

Все работает, забавно, только при выполнении в макросах очень быстро все движется, как регулировать скорость воспроизведения ?

[@ra1618]

Нужно при выделенных столбиках сжать мышкой любой из них, все станут такими же

[@Ron_Davidson]

@@ra1618 Я думал что так, но у меня при выделенных сжимался только сжимаемый.

[@ra1618]

@@Ron_Davidson Там есть (как минимум) три способа сжатия при нескольких выделенных колонках: 1) дабл-клик на разделителе между любыми двумя колонками - будет авто-сжатие 2) ручное изменение размера любой колонки движением мышки 3) в контекстном меню выбрать "Ширина столбца" Вероятно, в вашем случае имел место вариант 1.

[@Splash-jn4fe]

Крч писал код 1 час в итоге не сохранилось(

[@ИванИванов-и5ы3ю]

Я думал халфу 3 запилит

[@1iuh]

Джон Конвей kzbin.info/www/bejne/pWfKnJKJebOIrbc

[@romasky100]

1uh удивительно.

[@1iuh]

@@romasky100 Там в описании к видео дана ссылка на описание игры LIFE: kzbin.info/www/bejne/gXfTendtnt2Ug7s