СМЕТНАЯ ПРОГРАММА ON-LINE

   Главная
   Как составить смету
   Программы
   Обновления
   Управление строительством
   Снабжение объекта
   Смета на дом
   Видео-справка
   Расчёт объёмов квартиры
   Программа DefSmeta On-Line
   Смета ремонта On-Line
   Строительные расценки
   Контроль качества
   Строительные калькуляторы
   Купить программы



 Контактная информация
ЗАО "ДЭФ"
e-mail: info@defsmeta.com
тел.: 8 (383) 213-52-62
Скайп: defsmeta
Работаем по всей России
Подробнее




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

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




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

Ссылка на первую часть ролика.

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

Текст ролика

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

Прикол первый.
Я его называю "Сбой системы". Файл с этой шуткой называется точно так же. После того, как Вы вставите в файл Excel небольшой кусок текста, называемый программой, с листом Excel произойдёт примерно следующее. Сидит человек, работает, но в один прекрасный момент он увидит вот такую картину. Чего он там себе придумает одному Богу известно, но выглядит это вполне эффектно и неожиданно. В конце процедуры можно сообщить пользователю, что это шутка. Для реализации сего безобразия написана одна процедура, находится в файле Сбой Системы. Что бы её увидеть нужно открыть файл, перейти на вкладку "Разработчик", и нажать кнопку "Visual Basic". Откроется редактор, в котором Вы сможете просматривать и редактировать процедуры. Теперь в классификаторе находим наименование нашего файла и два раза щёлкаем на папке "ЭтаКнига", в правой части экрана мы видим код процедуры. Она срабатывает при изменении значений на листе Excel.
Если Вы знакомы с макросами, то без труда в ней разберётесь, тем более, что там комментарии на каждом шагу. Если не знакомы, то я сейчас покажу, что в ней можно изменить, не вдаваясь в лишние подробности. Сразу скажу, что если перед текстом стоит апостроф, то это комментарий, и код в строке не работает. Если апостроф удалить, код снова будет рабочим. Данная процедура ничего не делает с тем файлом, в который Вы её запишите. Она создаёт новый файл и с ним развлекается. Так что таблица Вашего друга останется целой и невредимой. Запись в файл товарища, для всех приколов одинаковая, о том, как их установить я скажу в конце ролика.
Теперь про редактирование в данной шутке.
В первую очередь можно увеличить или уменьшить количество изменений на листе, после которого процедура сработает. Сейчас установлено восемь изменений, то есть, если пользователь введёт восемь цифр в разные ячейки, то процедура начнёт работать. Но, если изменения происходят часто, то эту цифру можно увеличить, что бы человек втянулся в работу. Если изменения происходят редко, то её можно уменьшить, что бы она хоть к вечеру сработала.
Следующий параметр.
После комментария "ЦИФРЫ НА ЭКРАНЕ" идёт цикл. В нём происходит основное действие – появление цифр и мигание надписи. Значение 50 определяет длительность цикла. Его можно увеличить или уменьшить. Например, установите 100, тогда процедура будет работать в два раза дольше. И наконец, поставив апостроф перед вот этой строкой, Вы уберёте вывод сообщения о том, что это была первоапрельская шутка. Если захотите изменить другие параметры, то пишите комментарий. Я отвечу.
(ИДЕЮ ДАННОЙ ШУТКИ ВЗЯЛ ЗДЕСЬ: https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=5&TID=101970)

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

Смысл третьего и четвёртого прикола примерно одинаковый, с небольшой разницей в реализации.
Основная идея в том, что компьютер будет с вами разговаривать человеческим голосом. В первом случае он будет повторять то, что Вы вводите в ячейки. Причём не всё подряд, а выборочно. Прикол находится в файле "Повторение Голосом".

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

Теперь хочу рассказать о некоторых нюансах и о том, как установить прикол в файл коллеги.
Первый тонкий момент заключается в том, что на компьютере товарища должно быть разрешено использование макросов, другими словами должна быть выбрана опция "Включать все макросы". Устанавливается следующим образом. Переходим на вкладку "разработчик" и нажимаем кнопку "безопасность макросов". В параметрах макросов выбираем самую последнюю опцию. Тогда всё будет работать.

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

Ну а мы перейдём ко второму тонкому моменту.
По умолчанию Excel предлагает сохранять файл в формате .xlsx Поэтому многие люди работают именно в этом формате. Проблема заключается в том, что он не позволяет сохранять макросы. И если Вы скопируете макрос в этот файл, а Ваш коллега захочет сохранить изменения, то получит вот такое сообщение. Но есть хорошая новость, макросы файл выполняет. Поэтому, при внедрении макросов в файлы с данным расширением, старайтесь сокращать время срабатывания процедуры, что бы товарищ, не успел нажать кнопку сохранить. Есть другой вариант. Заранее убедите своего коллегу использовать файлы формата .xlsb или .xlsm
На всякий случай покажу как выбрать нужный формат.
Переходим на вкладку файл и выбираем команду "сохранить как". В форме сохранения документа есть выпадающий список, перед которым написано "Тип файла". Нажмите на стрелочку справа от списка и выберите вторую или третью строчку. Дальше всё как обычно.

Теперь последняя часть подготовки прикола.
Перенос на компьютер коллеги. Файл "Опрос" нужно использовать как отдельный файл и переслать любыми доступными способами. Остальные три файла устроены одинаково, в начале ролика я рассказывал, как в них найти процедуры. Вставлять их нужно в то же самое место, поэтому сейчас повторю это ещё раз. Процедуры, записанные в простых текстовых файлах, будут в описании к видео. Откройте такой файл, выделите всё и скопируйте в буфер обмена. В открытом файле коллеги, у меня он называется "ПроверкаВыполненияМакроса", нужно перейти на вкладку "Разработчик", и нажать кнопку "Visual Basic". Откроется редактор. Теперь в классификаторе находим наименование нашего файла, раскрываем подразделы и два раза щёлкаем на папке "ЭтаКнига", в правой части экрана мы увидим пустой лист. Ставим курсор на этот лист и вставляем содержимое буфера. Всё, файл готов для розыгрыша, только не забудьте потренироваться на своём компьютере.
Архив всех шуток ролика в файлах Excel: https://www.defsmeta.com/programs/data/joke.rar
Архив всех шуток ролика в текстовых файлах: https://www.defsmeta.com/programs/data/joke_code.rar

Надеюсь, что информация была полезной.
Описание программы DefSmeta вы можете получить на сайте defsmeta.com
Ссылка в описании.
Желаю всем удачи.
До новых встреч на уроках по программе.




Смета на строительство дома, на ремонт и отделку квартир - программа DefSmeta    
Аренда программы
 В программе предусмотрен помощник, который превратит составление сметы в игру.

Видео экскурсия по курорту Белокуриха.

Copyright © 2000-2020 by ЗАО "ДЭФ"
e-mail: info@defsmeta.com, тел. 8 (383) 213-52-62, Скайп: defsmeta
Яндекс.Метрика Aport Апорт Top 1000