Романтика в Microsoft Excel

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

 

Фатальная ошибка

Этот фокус легко провернуть, если на работе принято использовать для расчётов или подготовки документов таблицы Excel.

Первым делом нужно запустить табличный редактор и сохранить документ как книгу с поддержкой макросов: меню «Файл», кнопка «Сохранить как», тип файла «Книга Excel с поддержкой макросов». После этого нажмите горячие клавиши Alt+F11 и начинайте чувствовать себя программистом.

Перед вами среда разработчика Visual Basic for Applications – упрощённый язык Visual Basic, встроенный в продукты пакета Microsoft Office. С его помощью можно писать как небольшие самостоятельные программы, так и дополнять функции офисных программ.

В левой части экрана должно появиться окно проекта Project – VBA Project. Если его нет, нажмите горячие клавиши Ctrl+R. В списке объектов нужно найти рабочую книгу (Workbook), название зависит от версии Excel. В любом случае рядом с ним будет значок Excel. Правый клик по названию рабочей книги вызывает контекстное меню, в котором нужно выбрать пункт View Code:

  

 

Появится чистый лист, на который можно скопировать следующий код:

 

Private Sub Workbook_Open()

a = MsgBox("ВЫ СЛИШКОМ КРАСИВЫ, ЧТОБЫ РАБОТАТЬ!", vbCritical, "ФАТАЛЬНАЯ ОШИБКА!")

End Sub

 

Что произойдёт?

Обработчик события Workbook_Open запускает указанные внутри него действия при открытии документа. Как только ваша «жертва» откроет файл, который, по вашему настоянию, нужно срочно обработать, выскочит такое окно:

  

 

Окно перед вами – это Message Box. В коде он прописывается по принципу MsgBox(Текст сообщения, Кнопка, Текст заголовка окна). Кнопка с пугающим крестом на красном фоне обозначена кодом vbCritical, в справке можно просмотреть все возможные варианты кнопок. Комплимент тоже можно заменить на свой вкус, но не забудьте, что текстовые значения указываются в кавычках.

 

От всего сердца

Знаете ли вы, что самый известный символ любви можно описать математической функцией? Более того, вариантов таких функций довольно много. Мы рассмотрим самую простую с точки зрения реализации в Excel – параметрическую функцию.

В таблице Excel нужно сделать заготовку из столбцов n, t, x, y для номера точки, параметра, абсциссы и ординаты соответственно. В столбце n нужно указать номера точек от 1 до 20. Остальные столбцы заполняются массивами. В ячейке В2 указываем значение 0. Выделяем ячейки B3:B21, в поле ввода формулы вставляем значение =2*ПИ()*A3:A21/20 и нажимаем горячие клавиши Ctrl+Shift+Enter.

Аналогично поступаем с абсциссой и ординатой: в ячейки C2:C21 вводим формулу =16*SIN(B2:B21)^3, а в ячейки D2:D21 =13*COS(B2:B21)-5*COS(2*B2:B21)-2*COS(3*B2:B21)-COS(4*B2:B21). Не забывайте нажимать клавиши Ctrl+Shift+Enter для ввода формулы в весь диапазон.

В результате должна получиться такая таблица:



 

Остаётся добавить на лист диаграмму и указать данные функции. Во вкладке «Вставка» выбираем точечную диаграмму с гладкими кривыми:

   

 

Правый клик по диаграмме вызовет контекстное меню, в котором нам нужен пункт «Выбрать данные». Значения x задаем выделением диапазона абсцисс, для y – ординат. Можно изменить название графика и его цвет. Например, вот так:



 

Для эффекта неожиданности называем документ «Важные расчёты» и отправляем адресату.

 

Любителям 8 bit

Этот способ подойдёт вам, если первые два показались слишком сложными, или на них нет времени. Кроме того, такое послание понравится любителям восьмибитной графики игр 90-х.

Потребуется выполнить всего два действия: изменить ширину столбцов и закрасить нужные по схеме. Для начала нужно выделить все ячейки комбинацией клавиш Ctrl+A, на ленте «Главная» найти кнопку «Формат» и выбрать параметр «Ширина столбца»:



 

В поле ввода указываем 2,2 – при такой ширине столбца в символах ячейки выглядят квадратными. Дело остаётся за малым: выделяем ячейки по примеру и закрашиваем красной заливкой. Должно получиться вот так:



 

Такую «валентинку» можно преподнести как на первом листе книги, так и спрятать между действительно важными листами расчётов для курсовой работы. Рисование в Excel кажется простым и незамысловатым, но в руках мастера даже такой инструмент становится мощным художественным средством. Например, японец Тацуо Хориучи создаёт в электронных таблицах полноценные картины.

 

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


Автор Анжелика Ким

Выберите вариант регистрации как:

Физическое лицо
Эксперт

Нажимая «Зарегистрироваться», я принимаю Политику конфиденциальности Портала и мобильного приложения.

Войдите в свой аккаунт

Забыли свой пароль? Регистрация

Войти с помощью:

Восстановление пароля

Ваш пароль успешно выслан вам на email

Форма авторизации на сайте
Регистрация
Забыли свой пароль?
Войти как пользователь:
Войти как пользователь
Вы можете войти на сайт, если вы зарегистрированы на одном из этих сервисов:

Регистрация на Портале с помощью электронной почты

Нажимая «Зарегистрироваться», я принимаю Политику конфиденциальности Портала и мобильного приложения.

Спасибо за регистрацию. Теперь можете войти на портал с помощью логина и пароля.

Зарегистрируйтесь на Портале.

Выберите удобный для Вас вариант регистрации.



или


Нажимая «Зарегистрироваться», я принимаю Политику конфиденциальности Портала и мобильного приложения.

Регистрация Эксперта на Портале







Нажимая «Зарегистрироваться», я принимаю Политику конфиденциальности Портала и мобильного приложения.

Спасибо за регистрацию. Теперь можете войти на портал с помощью логина и пароля.

Портал образования Хабаровского края создан по инициативе КГБОУ ДПО ХКИРО. Вы так же можете скачать мобильное приложение профессионального образования Хабаровского края. Мобильное приложение разработано для iOS и Android.