Приколы на первое апреля в программе Excel Часть 2

Описание: Разыгрываем своих друзей и коллег на 1 апреля или тогда, когда есть настроение.)
Сайт разработчиков программы DefSmeta: https://defsmeta.com/
Страница аренды программы: https://defsmeta.com/programs/remotea...

Архив всех шуток ролика в файлах Excel: https://www.defsmeta.com/programs/dat...

Архив всех шуток ролика в текстовых файлах: https://www.defsmeta.com/programs/dat...

Здравствуйте, друзья.
С вами Андрей. Продолжаем тему шуток в Excel. Сегодня мы будем рассматривать приколы, сделанные при помощи макросов. Хорошая новость в том, что они уже написаны, и Вам останется только применить тот, который понравится. В этом видео я расскажу, как это сделать, а так же расскажу, как изменить некоторые моменты в шутке, если у Вас возникнет такое желание.

Прикол первый.
Я его называю «Сбой системы». Файл с этой шуткой называется точно так же.
После того, как Вы вставите в файл Excel небольшой кусок текста, называемый программой, с листом Excel произойдёт примерно следующее. Сидит человек, работает, но в один прекрасный момент он увидит вот такую картину. Чего он там себе придумает одному Богу известно, но выглядит это вполне эффектно и неожиданно. В конце процедуры можно сообщить пользователю, что это шутка.
Для реализации сего безобразия написана одна процедура, находится в файле Сбой Системы. Что бы её увидеть нужно открыть файл, перейти на вкладку «Разработчик», и нажать кнопку «Visual Basic». Откроется редактор, в котором Вы сможете просматривать и редактировать процедуры. Теперь в классификаторе находим наименование нашего файла и два раза щёлкаем на папке «ЭтаКнига», в правой части экрана мы видим код процедуры. Она срабатывает при изменении значений на листе Excel.
Если Вы знакомы с макросами, то без труда в ней разберётесь, тем более, что там комментарии на каждом шагу. Если не знакомы, то я сейчас покажу, что в ней можно изменить, не вдаваясь в лишние подробности.
Сразу скажу, что если перед текстом стоит апостроф, то это комментарий, и код в строке не работает. Если апостроф удалить, код снова будет рабочим.
Данная процедура ничего не делает с тем файлом, в который Вы её запишите. Она создаёт новый файл и с ним развлекается. Так что таблица Вашего друга останется целой и невредимой. Запись в файл товарища, для всех приколов одинаковая, о том, как их установить я скажу в конце ролика.
Теперь про редактирование в данной шутке.
В первую очередь можно увеличить или уменьшить количество изменений на листе, после которого процедура сработает. Сейчас установлено восемь изменений, то есть, если пользователь введёт восемь цифр в разные ячейки, то процедура начнёт работать. Но, если изменения происходят часто, то эту цифру можно увеличить, что бы человек втянулся в работу. Если изменения происходят редко, то её можно уменьшить.

Следующий параметр.
После комментария «ЦИФРЫ НА ЭКРАНЕ» идёт цикл. В нём происходит основное действие – появление цифр и мигание надписи.
Значение 50 определяет длительность цикла. Его можно увеличить или уменьшить. Например, установите 100, тогда процедура будет работать в два раза дольше.
И наконец, поставив апостроф перед вот этой строкой, Вы уберёте вывод сообщения о том, что это была первоапрельская шутка.
Если захотите изменить другие параметры, то пишите комментарий. Я отвечу.

(ИДЕЮ ДАННОЙ ШУТКИ ВЗЯЛ ЗДЕСЬ: https://www.planetaexcel.ru/forum/ind...)

Прикол второй.
Называется “Убегающая кнопка.”
Если Вы начальник, то можете одним выстрелом убить двух зайцев. Разошлите своим подчинённым файл «Опрос» и проведите среди сотрудников небольшое тестирование, которое расскажет о их характере. Но, в конце опроса их будет ждать первоапрельская шутка. Так как на вопрос о согласии с повышением зарплаты не так просто ответить «ДА». Кнопка будет убегать.
Теперь расскажу как посмотреть результаты опроса.
В первую очередь нужно снять защиту листа. Переходим на вкладку «Рецензирование» и применяем команду «Снять защиту листа». Затем выделяем диапазон A10-C25 переходим на вкладку «Главная» и присваиваем тексту ячеек цвет «Авто», так как во время опроса он был белый. Теперь видно все ответы на вопросы и в ячейке B10 результат тестирования.
Кстати, если Вы подчинённый, то тем более нужно скачать файл «Опрос», что бы потренироваться и грамотно ответить на вопросы теста. Вдруг Ваш начальник увидит этот ролик, и идея ему понравится.

(Опрос взял из книги Натальи Ольшевской - Психологические тесты на все случаи жизни)

Смысл третьего и четвёртого прикола примерно одинаковый, с небольшой разницей в реализации.

Кстати, спонсором данного видео является отлично работающая программа DefSmeta. Она предназначена для определения стоимости ремонта, отделки и малоэтажного строительства. Содержит функционал по упрощению и ускорению составления смет, который в Экселе сделать невозможно. И самое главное, её даже покупать не нужно, достаточно взять в аренду на сайте defsmeta.com.

#excel #приколов #defsmeta #смета