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

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

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

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

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

[@planetaexcel]

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

[@_dlh_drl_]

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

[@komdiv4906]

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

[@sozinovss]

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

[@pavell6284]

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

[@trr55]

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

[@Axel-57]

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

[@vladimirchebykin2298]

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

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

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

[@Proton_Atom]

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

[@goshik73]

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

[@user-tr9fm7iy6l]

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

[@pizzzdeath]

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

[@1iuh]

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

[@annaa7679]

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

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

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

[@Udaw05]

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

[@baxaalimov4573]

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

[@Dmitrii-Zhinzhilov]

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

[@plate_runner]

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

[@ppr8117]

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

[@ВикторГаранкин-с2и]

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

[@sergeychuvichkin2748]

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

[@planetaexcel]

Забейте :)

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

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

[@andr003141]

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

[@GrigSV]

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

[@AndryG1000]

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

[@andreybessolitsyn2055]

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

[@gosha96]

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

[@sevakworld]

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

[@planetaexcel]

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

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

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

[@alexanderbaranov5418]

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

[@moizametki587]

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

[@highwayautolife3155]

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

[@planetaexcel]

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

[@AlexandrVC]

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

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

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

[@odmitv]

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

[@ScorpRX]

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

[@MrGWolfer]

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

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

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

[@РусланВалерьевич-в1д]

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

[@kuku2754]

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

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

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

[@yurd563]

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

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

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

[@qaraken6408]

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

[@demixxren]

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

[@1iuh]

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

[@LenoTaar]

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

[@yurd563]

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

[@Midavok]

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

[@motorus24]

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

[@sughrasharifi4597]

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

[@digitalminister5687]

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

[@nikolaynikolayevich4469]

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

[@highwayautolife3155]

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

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

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

[@highwayautolife3155]

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

[@nikolaynikolayevich4469]

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

[@highwayautolife3155]

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

[@opensourcevfx]

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

[@qzRONINzq]

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

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

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

[@Romagames-v4m]

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

[@juliasippel3174]

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

[@romanbolgar]

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

[@kekbarry3665]

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

[@slam48rus]

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

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

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

[@romanbolgar]

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

[@svetlanamazhaykina6918]

Спасибо!

[@mikhailanufriev8101]

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

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

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

[@feikokwer4059]

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

[@Hydrobizon]

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

[@ЮрийБойко-х2о]

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

[@kamah4u978]

А почему так медленно происходит, вроде таймера нету? Или я что то пропустил или это из-за того, что копирование происходит?

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

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

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

Интересно

[@andr003141]

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

[@vlastalgt]

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

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

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

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

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

[@vitgot1]

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

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

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

[@planetaexcel]

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

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

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

[@ДимасКарабас-ц1ш]

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

[@viiviiv3914]

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

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

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

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

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

[@planetaexcel]

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

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

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

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

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

[@Andrey_85_F1]

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

[@w.t.2905]

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

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

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

[@planetaexcel]

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

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

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

[@АнтуанДеляМоль]

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

[@w.t.2905]

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

[@SamSambl4]

Спасибо

[@1iuh]

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

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

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

[@planetaexcel]

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

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

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

[@siddh7181]

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

[@АнтуанДеляМоль]

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

[@planetaexcel]

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

[@АнтуанДеляМоль]

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

[@danxai]

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

[@pizzzdeath]

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

[@Android-by8fb]

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

[@sialsoft]

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

[@sambrown8]

Супер

[@Ron_Davidson]

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

[@Ron_Davidson]

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

[@ra1618]

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

[@Ron_Davidson]

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

[@ra1618]

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

[@neo7997veddev]

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

[@planetaexcel]

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

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

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

[@Brain_House_86]

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

[@GENVID]

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

[@razvedchik2021]

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

[@gregory1414ify]

Годнота

[@depththechic]

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

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

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

[@moizametki587]

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

[@planetaexcel]

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

[@Leprotto1985]

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

[@ra1618]

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

[@ИндираИмаева-е7в]

Название звучит как вызов...

[@piktogor]

Офигеть))