Романтика в 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.