💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Основные сведения

Макрос – это записанная последовательность заданных пользователем команд и действий, хранящаяся в форме программы на языке VBA и сохранённая под уникальным именем, которую может выполнить Excel.

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

Пример.

Создадим простой макрос, который изменяет шрифт, цвет заливки и направление текста в ячейке. Для этого выполним следующие действия:

1. Откроем новую книгу в MS Excel.

2. В ячейку А1 введем название института, в котором вы учитесь, а в ячейку В1 – название группы.

3. Установим курсор в ячейке А1.

4. Нажмем кнопку Запись макроса… (рис.2)на панели Макросы
(Меню Вид ® Макросы) или воспользуемся командой меню для
MS Office 2003 Сервис ® Макрос ® Начать запись.

Рис. 2. Панель Макросы

5. В диалоговом окне Запись макроса (рис.3) введем имя макроса «Оформление_Ячейки» (имя макроса должно начинаться с буквы и может содержать до 255 символов: буквы, цифры и знаки подчёркивания, а пробелы не допускаются) и сочетание клавиш для дальнейшего вызова макроса – Ctrl + о, выберем место сохранения – «Эта книга» и нажмем кнопку «ОК».

Рис. 3. Диалоговое окно Запись макроса

6. Выполним команду Формат ® Ячейки. В диалоговом окне Формат ячеек перейдем на вкладку Шрифт и установим название шрифта Times New Roman, размер – 18 пунктов, начертание – «полужирный».

7. Перейдем на вкладку Вид и выберем цвет заливки ячейки – зеленый.

8. Далее активизируем вкладку Выравнивание и ориентацию текста изменим на 90 градусов.

9. Нажмем кнопку «ОК».

10. Когда выполним все необходимые действия, воспользуемся командой для остановки записи макроса Вид ® Макросы ® Остановить запись.

Рис.4 Панель Макросы

Теперь воспользуемся созданным нами макросом для изменения формата ячейки В1:

1. Активизируем ячейку В1.

2. Воспользуемся комбинацией клавиш Ctrl + о либо выполним команду
Вид ® Макросы ® Макросы и, выбрав в появившемся диалоговом окне макрос «Оформление_Ячейки» (рис. 5), нажмем кнопку «Выполнить».

Рис.5 Диалоговое окно Макрос

Чтобы просмотреть полученный при записи макроса код или, если необходимо, отредактировать его, необходимо выполнить следующие действия:

1. Открыть диалоговое окно Макрос (рис. 5) через команду Вид ® Макросы ® Макросы.

2. Выделить имя нужного макроса и нажать кнопку «Изменить». Откроется окно редактора VBА (рис. 6).

Отредактируем код созданного в примере макроса, изменив начертание шрифта (FontStyle = «курсив») и цвет заливки ячейки на синий (ColorIndex =5).

Текст кода макроса примет вид:

Sub Оформление_Ячейки()

' Оформление_Ячейки

' Макрос записан 14.10.2015
'

' Сочетание клавиш: Ctrl+о '

With Selection

.HorizontalAlignment = xlGeneral

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 90

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False End With

With Selection.Font

.Name = " Times New Roman"

.FontStyle = " курсив"

.Size = 18

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic End With

With Selection.Interior

.ColorIndex = 5

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic End With

End Sub

Рис. 6. Окно редактора VB

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

Существуют несколько способов запуска макроса на выполнение:

1. Запуск макроса с помощью команды Вид → Макросы → Макросы → Выполнить.

2. Запуск макроса с помощью назначенной комбинации клавиш.

3. Назначение выполнения макроса командной кнопке.

4. Назначение выполнения макроса графическому объекту.

Для того чтобы создать командную кнопку, с помощью которой будет выполняться макрос (способ 3), необходимо:

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

Рис. 7. Диалоговое окно Параметры

2. Нажать на панели быстрого доступа Элементы управления ® Вставить ® Кнопка (рис. 8). Затем поместить указатель мыши в то место, где будет располагаться командная кнопка, и, не отпуская левую кнопку мыши, придать кнопке нужный размер.

Рис.8 Панель инструментов Элементы управления

3. Нажать контекстное меню кнопки и в появившемся диалоговом окне выбрать пункт Назначить макрос… (рис. 9) и указав нужный макрос нажать кнопку «ОК».

Рис. 9. Контекстное меню кнопки

4. Переименовать кнопку в «Оформление ячейки», воспользовавшись командой Изменить текст (рис. 9).

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

Для того чтобы назначить выполнение макроса графическому объекту или изображению(способ 4), необходимо:

1. Выполнить команду Вставка ® Фигуры.

Рис. 10. Назначение макроса объектам

2. Выбрать фигуру и, предав ей соответствующие размеры, поместить на Лист.

3. С помощью контекстного меню назначить ей необходимый макрос.

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

Задания к лабораторной работе 1

В соответствии с вариантом (№ п/п) создать макрос, определить комбинацию клавиш для его вызова и назначить макрос кнопке и графическому объекту. Проверить работу макроса. Просмотреть код макроса и отредактировать его, закомментировав некоторые строки, которые не выполняют нужных действий и являются избыточными в коде, и изменив значение одного из свойств, после чего снова запустить макрос на выполнение.

Таблица 1

Лабораторная работа 2