Задачи на использование макросов в excel

Иллюстрация: Meery Mary для Skillbox Media

Рассказывает просто о сложных вещах из мира бизнеса и управления. До редактуры — пять лет в банке и три — в оценке имущества. Разбирается в Excel, финансах и корпоративной жизни.

Макрос (или макрокоманда) в Excel — алгоритм действий в программе, который объединён в одну команду. С помощью макроса можно выполнить несколько шагов в Excel, нажав на одну кнопку в меню или на сочетание клавиш.

Обычно макросы используют для автоматизации рутинной работы — вместо того чтобы выполнять десяток повторяющихся действий, пользователь записывает одну команду и затем запускает её, когда нужно совершить эти действия снова.

Например, если нужно добавить название компании в несколько десятков документов и отформатировать его вид под корпоративный дизайн, можно делать это в каждом документе отдельно, а можно записать ход действий при создании первого документа в макрос — и затем применить его ко всем остальным. Второй вариант будет гораздо проще и быстрее.

В статье разберёмся:

• как работают макросы и как с их помощью избавиться от рутины в Excel;
• какие способы создания макросов существуют и как подготовиться к их записи;
• как записать и запустить макрос начинающим пользователям — на примере со скриншотами.

---

Общий принцип работы макросов такой:

• Пользователь записывает последовательность действий, которые нужно выполнить в Excel, — о том, как это сделать, поговорим ниже.
• Excel обрабатывает эти действия и создаёт для них одну общую команду. Получается макрос.
• Пользователь запускает этот макрос, когда ему нужно выполнить эту же последовательность действий ещё раз. При записи макроса можно задать комбинацию клавиш или создать новую кнопку на главной панели Excel — если нажать на них, макрос запустится автоматически.

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

• Автоматизировать повторяющиеся процедуры.

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

• Объединять работу нескольких программ Microsoft Office.

  Например, с помощью одного макроса можно создать таблицу в Excel, вставить и сохранить её в документе Word и затем отправить в письме по Outlook.

• Искать ячейки с данными и переносить их в другие файлы.

  Этот макрос пригодится, когда нужно найти информацию в нескольких объёмных документах. Макрос самостоятельно отыщет её и принесёт в заданный файл за несколько секунд.

• Форматировать таблицы и заполнять их текстом.

  Например, если нужно привести несколько таблиц к одному виду и дополнить их новыми данными, можно записать макрос при форматировании первой таблицы и потом применить его ко всем остальным.

• Создавать шаблоны для ввода данных.

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

• Создавать новые функции Excel.

  Если пользователю понадобятся дополнительные функции, которых ещё нет в Excel, он сможет записать их самостоятельно. Все базовые функции Excel — это тоже макросы.

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

В Excel и других программах Microsoft Office макросы создаются в виде кода на языке программирования VBA (Visual Basic for Applications). Этот язык разработан в Microsoft специально для программ компании — он представляет собой упрощённую версию языка Visual Basic. Но это не значит, что для записи макроса нужно уметь кодить.

Есть два способа создания макроса в Excel:

• Написать макрос вручную.

  Это способ для продвинутых пользователей. Предполагается, что они откроют окно Visual Basic в Еxcel и самостоятельно напишут последовательность действий для макроса в виде кода.

• Записать макрос с помощью кнопки меню Excel.

  Способ подойдёт новичкам. В этом варианте Excel запишет программный код вместо пользователя. Нужно нажать кнопку записи и выполнить все действия, которые планируется включить в макрос, и после этого остановить запись — Excel переведёт каждое действие и выдаст алгоритм на языке VBA.

Разберёмся на примере, как создать макрос с помощью второго способа.

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

Пользоваться таким отчётом неудобно — нужно сделать его наглядным. Запишем макрос при форматировании таблицы с продажами за январь и затем применим его к двум другим таблицам.

---

Готовимся к записи макроса

Кнопки для работы с макросами в Excel находятся во вкладке «Разработчик». Эта вкладка по умолчанию скрыта, поэтому для начала разблокируем её.

В операционной системе Windows это делается так: переходим во вкладку «Файл» и выбираем пункты «Параметры» → «Настройка ленты». В открывшемся окне в разделе «Основные вкладки» находим пункт «Разработчик», отмечаем его галочкой и нажимаем кнопку «ОК» → в основном меню Excel появляется новая вкладка «Разработчик».

В операционной системе macOS это нужно делать по-другому. В самом верхнем меню нажимаем на вкладку «Excel» и выбираем пункт «Параметры…».

В появившемся окне нажимаем кнопку «Лента и панель».

Затем в правой панели «Настроить ленту» ищем пункт «Разработчик» и отмечаем его галочкой. Нажимаем «Сохранить».

Готово — вкладка «Разработчик» появилась на основной панели Excel.

Чтобы Excel смог сохранить и в дальнейшем использовать макрос, нужно пересохранить документ в формате, который поддерживает макросы. Это делается через команду «Сохранить как» на главной панели. В появившемся меню нужно выбрать формат «Книга Excel с поддержкой макросов».

---

Перед началом записи макроса важно знать об особенностях его работы:

• Макрос записывает все действия пользователя.

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

• Работу макроса нельзя отменить.

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

• Макрос выполняет свой алгоритм только для записанного диапазона таблиц.

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

Для начала записи макроса перейдём на вкладку «Разработчик» и нажмём кнопку «Записать макрос».

Появляется окно для заполнения параметров макроса. Нужно заполнить поля: «Имя макроса», «Сохранить в», «Сочетание клавиш», «Описание».

«Имя макроса» — здесь нужно придумать и ввести название для макроса. Лучше сделать его логически понятным, чтобы в дальнейшем можно было быстро его найти.

Первым символом в названии обязательно должна быть буква. Другие символы могут быть буквами или цифрами. Важно не использовать пробелы в названии — их можно заменить символом подчёркивания.

«Сохранить в» — здесь нужно выбрать книгу, в которую макрос сохранится после записи.

Если выбрать параметр «Эта книга», макрос будет доступен при работе только в этом файле Excel. Чтобы макрос был доступен всегда, нужно выбрать параметр «Личная книга макросов» — Excel создаст личную книгу макросов и сохранит новый макрос в неё.

«Сочетание клавиш» — здесь к уже выбранным двум клавишам (Ctrl + Shift в системе Windows и Option + Cmd в системе macOS) нужно добавить третью клавишу. Это должна быть строчная или прописная буква, которую ещё не используют в других быстрых командах компьютера или программы Excel.

В дальнейшем при нажатии этих трёх клавиш записанный макрос будет запускаться автоматически.

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

В нашем случае с форматированием таблицы заполним поля записи макроса следующим образом и нажмём «ОК».

После этого начнётся запись макроса — в нижнем левом углу окна Excel появится значок записи.

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

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

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

После всех манипуляций с оформлением таблица примет такой вид:

Проверяем, все ли действия с таблицей мы выполнили, и останавливаем запись макроса. Сделать это можно двумя способами:

• Нажать на кнопку записи в нижнем левом углу.
• Перейти во вкладку «Разработчик» и нажать кнопку «Остановить запись».

Готово — мы создали макрос для форматирования таблиц в границах столбцов A–G. Теперь его можно применить к другим таблицам.

---

Запускаем макрос

Перейдём в лист со второй таблицей «Февраль_2022». В первоначальном виде она такая же нечитаемая, как и первая таблица до форматирования.

Отформатируем её с помощью записанного макроса. Запустить макрос можно двумя способами:

• Нажать комбинацию клавиш, которую выбрали при заполнении параметров макроса — в нашем случае Option + Cmd + Ф.
• Перейти во вкладку «Разработчик» и нажать кнопку «Макросы».

Появляется окно — там выбираем макрос, который нужно запустить. В нашем случае он один — «Форматирование_таблицы». Под ним отображается описание того, какие действия он включает. Нажимаем «Выполнить».

Готово — вторая таблица с помощью макроса форматируется так же, как и первая.

То же самое можно сделать и на третьем листе для таблицы продаж за март. Более того, этот же макрос можно будет запустить и в следующем квартале, когда сервис автосалона выгрузит таблицы с новыми данными.

Научитесь: Excel + Google Таблицы с нуля до PRO
Узнать больше

Разделы:

Информатика

---

Практическая работа 1. «Годовая температура»

Порядок работы:

1. Откройте Excel.
2. Переименуйте «Лист1» в лист «Температура».
3. Составьте таблицу «Годовая температура»

Месяц	Средняя температура
Январь	-5
Февраль	-6
Март	0
Апрель	2
Май	10
Июнь	15
Июль	18
Август	20
Сентябрь	18
Октябрь	6
Ноябрь	3
Декабрь	-9

1. В ячейку Е3 поместите значение среднегодовой температуры, рассчитав ее по формуле СРЗНАЧ(В3:D3)
2. Запишите Ваши действия в макрос, назвав его «СрГодТемп».
3. Привяжите макрос к графическому объекту (например, кнопка):

 

Отформатируйте ее и назначьте ей макрос «СрГодТемп».

1. Справа от показателя температуры нарисуйте графический объект (кнопку) и назначьте ему макрос, который будет очищать содержимое ячейки Е3.

1. Проверьте работу кнопок «Средне-годовая t » и «Очистить».
2. Самостоятельно выполните создание кнопок и макросов для подсчета и очистки:
   • Максимальной годовой температуры;
   • Минимальной годовой температуры;
   • Средняя температура по временам года (зимой, весной, летом, осенью)
   • Создать кнопку «Очистить всё» для очистки всех расчетов.

Ваша работа должна выглядеть следующим образом:

Практическая работа 2. «Протяженность границ РФ» – Приложение 1.

Практическая работа 3. «Тест на визуальный Интеллект» – Приложение 2.

18.03.2012

ФЕДЕРАЛЬНОЕ
АГЕНТСТВО ПО ОБРАЗОВАНИЮ

ГОСУДАРСТВЕННОЕ
ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО
ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

ДОНСКОЙ
ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

Кафедра
«Информатика»

СОЗДАНИЕ
МАКРОСОВ-ФУНКЦИЙ В EXCEL

Методические
указания к выполнению лабораторных
работ

по
дисциплине «Информационные технологии»

для
студентов технических специальностей

Ростов-на-Дону
2008

Составители:
д. т. н., проф. Б. В. Соболь, к. ф.-м. н., доц.
И. М. Пешхоев

Создание
макросов-функций в Excel:
Методические указания к выполнению
лабораторных работ по дисциплине
«Информационные технологии» для
студентов технических специальностей.
— Ростов н/Д: Издательский центр ДГТУ,
2008. — 16 с.

Методические
указания предназначены для проведения
лабораторных работ по дисциплине
«Информационные технологии» для
специальностей технического профиля.
Предлагается набор заданий к лабораторным
занятиям и краткие методические указания
к их выполнению. Целью лабораторных
работ является использование макросов
Excel
для решения задач, часто встречающихся
в инженерных расчетах.

Печатается
по решению методической комиссии
факультета «Информатика и вычислительная
техника»

Научный
редактор доцент
Г. И. Каныгин

©
Издательский центр ДГТУ, 2008.

Лабораторная
работа № 1

Тема:
Программирование макросов для функций,
задаваемых с условиями.

Цель
работы: Научиться использовать макросы
Excel
для упрощения вычислений.

Форма
отчета: Выполнение индивидуального
зачетного задания.

Примеры
выполнения лабораторной работы

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

Решение
с помощью формулы Excel.
Создадим новый файл в программе Excel.
Оформление решения показано в таблице
1.

На
Лист1 в ячейках A1
и B1
введем обозначения x
и y.

Присвоим
ячейке A2
имя x.
Для этого выполним команду «Вставка —
Имя — Присвоить — x».

Пусть
значение переменной x
равно 0,5. Запишем число 0,5 в ячейке A2,
а значение функции y
вычислим в ячейке B2.
Для этого введем в B2
формулу

=ЕСЛИ(x<=1;x^3+1;ЕСЛИ(x<=3;SIN(x);EXP(-x)*x))

Таблица
1

	A	B
1	x	y
2	0,5	=ЕСЛИ(x<=1;x^3+1;ЕСЛИ(x<=3;SIN(x);EXP(-x)*x))

В
результате вычисления в ячейке B2
появится значение 1,125.

Введем
в ячейку A2
значение 1,5. Тогда в B2
появится значение 0,997494987. Если введем
в ячейку A2
значение 3,5, то в B2
появится значение 0,105690842.

Решение
с помощью макроса Excel.
Создадим
в программе Excel
пользовательскую функцию y(x)
для вычисления данной функции, пользуясь
встроенным языком Visual
Basic.

Приведем
алгоритм создания пользовательcкой
функции-макроса:

1)
Выполним команду меню «Сервис — Макрос
— Редактор
Visual
Basic».
Откроется окно «Microsoft
Visual
Basic».

2)
Выполним команду меню «Insert
— Module»
и введём текст программы-функции
(Комментарий после апострофа вводить
не надо)

Function
y(x)
‘ Заголовок описания функции y(x)

If
x <= 1 Then ‘ если
x <= 1 то

y
= x ^ 3 + 1 ‘ y = x ^ 3 + 1

ElseIf
x
<= 3 Then
‘ иначе если x
<= 3 то

y
= Sin(x) ‘ y = Sin(x)

Else
‘ иначе

y
= Exp(-x) * x ‘ y = Exp(-x) * x

End
If
‘ конец оператора если

End
Function
‘ конец описания функции

Теперь
в ячейках любого листа данной книги
(файла) программы Excel
можно в формулах использовать созданную
функцию.

Например,
введем в ячейки С2, С3 и С4 соответственно
формулы =y(0,5),
=y(1,5),
=y(3,5).
В этих ячейках получим значения 1,125,
0,997495, 0,105691.

Пример
2.
Построить таблицу значений и график
функции из примера 2 на отрезке

с шагом 0,2.

Решение
с использованием макроса.
Мы будем использовать макрос-функцию
y(x),
созданную в примере 1, поэтому откроем
файл примера 1 и перейдем на Лист2.

В
ячейках A1
и B1
введем обозначения x
и y.

Введем
в A2,
A3
значения 0 и 0,2. Выделим ячейки A2:A3
и протянем маркер заполнения (правый
нижний угол) до ячейки A12.

Введем
в B2
формулу =y(A2).
Протянем ячейку B2
маркером заполнения вниз до B12.
Оформление решения показано в таблице
2.

Таблица
2

	A	B
1	x	y
2	0	1
3	0,2	1,008
4	0,4	1,064
5	0,6	1,216
6	0,8	1,512
7	1	2
8	1,2	0,932039
9	1,4	0,98545
10	1,6	0,999574
11	1,8	0,973848
12	2	0,909297

Выделим
диапазон A1:B12
и щелкнем указателем мыши на панели
инструментов ярлык «Мастер диаграмм».
Выберем тип «Точечная» и кнопку «Готово».

Построить
таблицу значений и график данной функции
в указанном диапазоне с заданным шагом.
Вариант задания выбрать из таблицы 3.

Таблица
3

№ варианта	Функция	Отрезок	Шаг
1		[0; 3]	0,1
2		[1; 3]	0,2
3		[0; 3]	0,3
4		[1; 5]	0,2
5		[0; 3]	0,1
6		[2; 5]	0,25

Продолжение
табл. 3

№ варианта	Функция	Отрезок	Шаг
7		[3; 5]	0,25
8		[0; 3]	0,1
9		[1; 3]	0,4
10		[0; 3]	0,05
11		[1; 5]	0,4
12		[0; 4]	0,2
13		[2; 5]	0,3

Окончание
табл. 3

№ варианта	Функция	Отрезок	Шаг
14		[0; 5]	0,4
15		[1; 6]	0,5
16		[0; 3]	0,1
17		[1; 3]	0,2
18		[0; 3]	0,3
19		[0; 5]	0,2
20		[0; 3]	0,1

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

Тема:
Программирование макросов для функций,
параметрами и/или значениями которых
являются массивы.

Цель
работы: Научиться использовать макросы
Excel
для упрощения вычислений с матрицами
и векторами.

Форма
отчета: Выполнение индивидуального
зачетного задания.

Пример
выполнения лабораторной работы

Пример
3. Вычислить
таблицу значений вектор-функции
U(t)
= U(x,
y,
z),
где x
= x(t)
= t
²,
y
= y(t)
= sin
t,
z
= z(t)
= cos
t,

для
значений переменной t
= 0; 0,1; …, 1.

Решение
с помощью макроса.
Создадим макрос-функцию U(t),
которая вычисляет значение данной
вектор-функции.

1)
Выполним команду меню «Сервис — Макрос
— Редактор
Visual
Basic».
Откроется окно «Microsoft
Visual
Basic».

2)
Выполним команду меню «Insert
— Module»
и введём текст следующей программы-функции

Option
Base
1 ‘ Нижнее значение индекса в массивах
равно 1

Function
U(t)

Dim
uu(3)
‘ Описание вектора из трех
элементов

x
= t
^ 2: uu(1)
= x
‘ вычисление компонент вектор-функции

y
= Sin(t): uu(2) = y

z
= Cos(t): uu(3) = z

U
= uu
‘ присваивание имени U
функции вектора uu

End
Function

3)
Перейдем из редактора Visual
Basic
в Excel
и введем в ячейках A1:D1
обозначения, как показано в табл. 4.

Таблица
4

	A	B	C	D
1	t	x	y	z
2	0	0	0	0
3	0,1	0	0,01	0,099833
4	0,2	0	0,04	0,198669
5	0,3	0	0,09	0,29552
6	0,4	0	0,16	0,389418
7	0,5	0	0,25	0,479426
8	0,6	0	0,36	0,564642
9	0,7	0	0,49	0,644218
10	0,8	0	0,64	0,717356
11	0,9	0	0,81	0,783327
12	1	0	1	0,841471

Введем
в ячейки A2,
A3
значения 0 и 0,1. Выделим ячейки A2:A3
и маркером заполнения протянем вниз до
A12.

Выделим
ячейки B2:D2,
введем формулу =U(A2) и удерживая нажатыми
клавиши Ctrl
и Shift
нажмем Enter.
В ячейках B2:D2
появятся числовые значения.

Выделим
ячейки B2:D2
и маркером заполнения протянем вниз до
строки B12:D12.

Пример
4. Вычислить
суммы элементов строк матрицы, содержащей
4 строки и 3 столбца (табл. 5).

Таблица
5

1	-1	9
2	2	4
3	3	1
4	5	3

Решение
с помощью встроенных функций Excel.
Создадим
файл программы Excel.

Запишем
элементы данной матрицы в диапазоне
A1:C4
(табл. 6).

В
ячейку D1
введем формулу =СУММ(A1:C1).

Выделим
ячейку D1
и протянем маркером заполнения вниз до
ячейки D4.
В столбце D1:D4
получим суммы элементов соответствующих
строк матрицы.

Решение
с помощью макроса.
Создадим макрос-функцию Sum_str(x),
которая для заданной матрицы x,
содержащей M
строк и N
столбцов, вычисляет вектор-столбец из
M
элементов, содержащий суммы элементов
соответствующих строк матрицы.

1)
Выполним команду меню «Сервис — Макрос
— Редактор
Visual
Basic».
Откроется окно «Microsoft
Visual
Basic».

2)
Выполним команду меню «Insert
— Module»
и введём текст следующей программы-функции

Option
Base 1

Function
Sum_str(x)

Dim
y()

Dim
M As Integer, N As Integer

M
= x.Rows.Count

N
= x.Columns.Count

ReDim
y(M)

For
i = 1 To M:

y(i)
= 0: For j = 1 To N: y(i) = y(i) + x(i, j): Next j

Next
i

Sum_str
= Application.Transpose(y)

End
Function

3)
Выделим диапазон ячеек E1:E4,
введем формулу =Sum_str(A1:C4) и удерживая
нажатыми клавиши Ctrl
и Shift
нажмем Enter.
В ячейках E1:E4
появятся числовые значения, совпадающие
со значениями в D1:D4.

Таблица
6

	A	B	C	D	E
1	1	-1	9	9	9
2	2	2	4	8	8
3	3	3	1	7	7
4	4	5	3	12	12

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #

В этом уроке я покажу Вам самые популярные макросы в VBA Excel, которые вы сможете использовать для оптимизации своей работы. VBA — это язык программирования, который может использоваться для расширения возможностей MS Excel и других приложений MS Office. Это чрезвычайно полезно для пользователей MS Excel, поскольку VBA может использоваться для автоматизации вашей работы и значительно увеличить Вашу эффективность. В этой статье Вы познакомитесь с VBA и я вам покажу некоторые из наиболее полезных, готовых к использованию примеров VBA. Вы сможете использовать эти примеры для создания собственных скриптов, соответствующих Вашим потребностям.

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

Я подготовил для вас несколько самых полезных примеров VBA Excel с большой функциональностью, которую вы сможете использовать для оптимизации своей работы. Чтобы их использовать, вам необходимо записать их в файл. Следующий параграф посвящен установке макроса Excel. Пропустите эту часть, если вы уже знакомы с этим.

Table of Contents

Как включить макросы в Excel

В Excel нажмите комбинацию клавиш alt + F11. Это приведет вас к редактору VBA в MS Excel. Затем щелкните правой кнопкой мыши папку Microsoft Excel Objects слева и выберите Insert => Module. Это место, где сохраняются макросы. Чтобы использовать макрос, вам нужно сохранить документ Excel как макрос. Из табуляции File => Save as, выберите Save as macro-enabled Workbok (расширение .xlsm) Теперь пришло время написать свой первый макрос!

1. Копирование данных из одного файла в другой.

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

Sub CopyFiletoAnotherWorkbook()
    
        Sheets("Example 1").Range("B4:C15").Copy
    
        Workbooks.Add
    
        ActiveSheet.Paste
    
        Application.DisplayAlerts = False
    
        ActiveWorkbook.SaveAs Filename:="C:TempMyNewBook.xlsx"
    
        Application.DisplayAlerts = True
End Sub

2. Отображение скрытых строк

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

Sub ShowHiddenRows()
    Columns.EntireColumn.Hidden = False
    Rows.EntireRow.Hidden = False
End Sub

3. Удаление пустых строк и столбов

Пустые строки в Excel — может быть проблемой для обработки данных. Вот как избавиться от них:

Sub DeleteEmptyRowsAndColumns()
    
        Dim MyRange As Range
        Dim iCounter As Long
    
        Set MyRange = ActiveSheet.UsedRange
        
        For iCounter = MyRange.Rows.Count To 1 Step -1
    
           If Application.CountA(Rows(iCounter).EntireRow) = 0 Then
               Rows(iCounter).Delete
               
               
           End If
    
        Next iCounter
    
        For iCounter = MyRange.Columns.Count To 1 Step -1
    
               If Application.CountA(Columns(iCounter).EntireColumn) = 0 Then
                Columns(iCounter).Delete
               End If
    
        Next iCounter      
End Sub

4. Нахождение пустых ячеек

Sub FindEmptyCell()
    ActiveCell.Offset(1, 0).Select
       Do While Not IsEmpty(ActiveCell)
          ActiveCell.Offset(1, 0).Select
       Loop
End Sub

#### 5. Заполнение пустых ячеек

Как упоминалось ранее, пустые ячейки препятствуют обработке данных и созданию сводных таблиц. Вот один примерный код, который заменяет все пустые ячейки на 0. Этот макрос имеет очень большое приложение, потому что Вы можете использовать его для поиска и замены результатов N/A, а также других символов, таких как точки, запятые или повторяющиеся значения:

Sub FindAndReplace()
    
        Dim MyRange As Range
        Dim MyCell As Range
    
        Select Case MsgBox("Can't Undo this action.  " & _
                            "Save Workbook First?", vbYesNoCancel)
            Case Is = vbYes
            ThisWorkbook.Save
            Case Is = vbCancel
            Exit Sub
        End Select
    
        Set MyRange = Selection
    
        For Each MyCell In MyRange
    
            If Len(MyCell.Value) = 0 Then
                MyCell = 0
            End If
    
        Next MyCell
End Sub

#### 6. Сортировка данных

Следующий макрос сортирует по возрастанию все числа из столбца активной ячейки. Просто дважды нажмите любую ячейку из столбца, который вы хотите отсортировать.

NB: Здесь нам нужно поставить этот код в Sheet1 (папка Microsoft Excel Objects), а не в Module1 (папка Modules):

Private Sub Worksheet_BeforeDoubleClick (ByVal Target as Range, Cancel As Boolean)
    
        Dim LastRow As Long
    
        LastRow = Cells (Rows.Count, 1) .End (xlUp) .Row
    
        Rows ("6:" & LastRow) .Sort _
        Key1: = Cells (6, ActiveCell.Column), _
        Order1: = xlAscending
End Sub

#### 7. Удаление пустых пространств

Иногда данные в книге содержат дополнительные пробелы (whitespace charachters), которые могут мешать анализу данных и коррумпировать формулы. Вот один макрос, который удалит все пробелы из предварительно выбранного диапазона ячеек:

Sub TrimTheSpaces()
    
        Dim MyRange As Range
        Dim MyCell As Range
    
        Select Case MsgBox("Can't Undo this action.  " & _
                            "Save Workbook First?", vbYesNoCancel)
            Case Is = vbYes
            ThisWorkbook.Save
            Case Is = vbCancel
            Exit Sub
        End Select
    
        Set MyRange = Selection
    
        For Each MyCell In MyRange
    
            If Not IsEmpty(MyCell) Then
                MyCell = Trim(MyCell)
            End If
    
        Next MyCell
End Sub

#### 8. Выделение дубликатов цветом

Иногда в нескольких столбцах, которые мы хотели бы осветить, есть повторяющиеся значения. Этот макрос делает именно это:

Sub HighlightDuplicates()
    
        Dim MyRange As Range
        Dim MyCell As Range
    
        Set MyRange = Selection 
    
        For Each MyCell In MyRange 
    
            If WorksheetFunction.CountIf(MyRange, MyCell.Value) > 1 Then
                MyCell.Interior.ColorIndex = 36
            End If
    
        Next MyCell
End Sub

#### 9. Выделение десяти самых высоких чисел

Этот код будет отображать десять самых высоких чисел из набора ячеек:

Sub TopTen()
    Selection.FormatConditions.AddTop10
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1)
            .TopBottom = xlTop10Top
            
            .Rank = 10
            .Percent = False
        End With
        With Selection.FormatConditions(1).Font
            .Color = -16752384
            .TintAndShade = 0
        End With
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 13561798
            .TintAndShade = 0
        End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Вы можете легко настроить код, чтобы выделить различное количество чисел.

#### 10. Выделение данных больших чем данные число

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

Sub HighlightGreaterThanValues()
    Dim i As Integer
    i = InputBox("Enter Greater Than Value", "Enter Value")
    Selection.FormatConditions.Delete
    
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:=i
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1)
            .Font.Color = RGB(0, 0, 0)
            .Interior.Color = RGB(31, 218, 154)
        End With
End Sub

Вы тоже можете настроить этот код, чтобы выделить более низкие чисел.

#### 11. Выделение ячеек комментариями
Простой макрос, который выделяет все ячейки, содержащие комментарии:

Sub HighlightCommentCells()
    Selection.SpecialCells(xlCellTypeComments).Select
    Selection.Style= "Note"
End Sub

#### 12. Выделение ячеек со словами с ошибками

Это очень полезно, когда вы работаете с функциями, которые принимают строки, однако кто-то ввел строку с ошибкой, и ваши формулы не работают. Вот как решить эту проблему:

 Sub ColorMispelledCells()
    For Each cl In ActiveSheet.UsedRange
        If Not Application.CheckSpelling(Word:=cl.Text) Then _
        cl.Interior.ColorIndex = 28
    Next cl
End Sub

13. Создание сводной таблицы

Вот как создать сводную таблицу в MS Excel (версия 2007). Особенно полезно, когда вы делаете индивидуальный отчет каждый день. Вы можете оптимизировать создание сводной таблицы следующим образом:

Sub PivotTableForExcel2007()
    Dim SourceRange As Range
    Set SourceRange = Sheets("Sheet1").Range("A3:N86")
    ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=SourceRange, _
    Version:=xlPivotTableVersion12).CreatePivotTable _
    TableDestination:="", _
    TableName:="", _
    DefaultVersion:=xlPivotTableVersion12
End Sub

14. Отправка активного файла по электронной почте

Мой любимый код VBA. Он позволяет вам прикреплять и отправлять файл, с которым вы работаете, с предопределенным адресом электронной почты, заголовком сообщения и телом сообщения! Сначала Вам нужно сделать референцию в Excel на Microsoft Outlook (в редакторе Excel VBA, нажмите tools => references и выберите Microsoft Outlook).

Sub SendFIleAsAttachment()
    
    
        Dim OLApp As Outlook.Application
        Dim OLMail As Object
    
        Set OLApp = New Outlook.Application
        Set OLMail = OLApp.CreateItem(0)
        OLApp.Session.Logon  
    
        With OLMail
        .To = "admin@datapigtechnologies.com; mike@datapigtechnologies.com"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hi there"
        .Attachments.Add ActiveWorkbook.FullName
        .Display  
        End With
    
        Set OLMail = Nothing
        Set OLApp = Nothing
End Sub

15. Вставка всех графиков Excel в презентацию PowerPoint

Очень удобный макрос, который позволяет вам добавлять все ваши графики Excel в презентацию Powerpoint одним щелчком мыши:

Sub SendExcelFiguresToPowerPoint()
    
    
        Dim PP As PowerPoint.Application
        Dim PPPres As PowerPoint.Presentation
        Dim PPSlide As PowerPoint.Slide
        Dim i As Integer
    
        Sheets("Slide Data").Select
            If ActiveSheet.ChartObjects.Count < 1 Then
                MsgBox "No charts existing the active sheet"
                Exit Sub
            End If
    
        Set PP = New PowerPoint.Application
        Set PPPres = PP.Presentations.Add
        PP.Visible = True
    
            For i = 1 To ActiveSheet.ChartObjects.Count
            
                ActiveSheet.ChartObjects(i).Chart.CopyPicture _
                Size:=xlScreen, Format:=xlPicture
                Application.Wait (Now + TimeValue("0:00:1"))
            
                ppSlideCount = PPPres.Slides.Count
                Set PPSlide = PPPres.Slides.Add(SlideCount + 1, ppLayoutBlank)
                PPSlide.Select
            
                PPSlide.Shapes.Paste.Select
                PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
                PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
            Next i
    
        Set PPSlide = Nothing
        Set PPPres = Nothing
        Set PP = Nothing
End Sub

16. Вставка таблицы Excel в MS Word

Таблицы Excel обычно помещаются внутри текстовых документов. Вот один автоматический способ экспорта таблицы Excel в MS Word:

 Sub ExcelTableInWord()
    
    
        Dim MyRange As Excel.Range
        Dim wd As Word.Application
        Dim wdDoc As Word.Document
        Dim WdRange As Word.Range
    
       Sheets("Revenue Table").Range("B4:F10").Cop
    
        Set wd = New Word.Application
        Set wdDoc = wd.Documents.Open _
        (ThisWorkbook.Path & "" & "PasteTable.docx")
        wd.Visible = True
    
        Set WdRange = wdDoc.Bookmarks("DataTableHere").Rangе
    
        On Error Resume Next
        WdRange.Tables(1).Delete
        WdRange.Paste 
    
        WdRange.Tables(1).Columns.SetWidth _
        (MyRange.Width / MyRange.Columns.Count), wdAdjustSameWidth
    
        wdDoc.Bookmarks.Add "DataTableHere", WdRange
    
        Set wd = Nothing
        Set wdDoc = Nothing
        Set WdRange = Nothing
End Sub

17. Извлечение слов из текста

Мы можем использовать формулы, если хотим извлечь определенное количество символов. Но что, если мы хотим извлечь только одно слово из предложения или диапазон слов в ячейке? Для этого мы можем сами создать функцию Excel с помощью VBA. Это одна из самых удобных функций VBA, поскольку она позволяет создавать собственные формулы, которые отсутствуют в MS Excel. Давайте продолжим и создадим две функции: findword() и findwordrev():

Function FindWord(Source As String, Position As Integer) As String
     On Error Resume Next
     FindWord = Split(WorksheetFunction.Trim(Source), " ")(Position - 1)
     On Error GoTo 0
End Function

Function FindWordRev(Source As String, Position As Integer) As String
     Dim Arr() As String
     Arr = VBA.Split(WorksheetFunction.Trim(Source), " ")
     On Error Resume Next
     FindWordRev = Arr(UBound(Arr) - Position + 1)
     On Error GoTo 0
End Function

Отлично, мы уже создали две новые функции в Excel! Теперь попробуйте использовать их в Excel. Функция = FindWordRev (A1,1) берет последнее слово из ячейки A1. Функция = FindWord (A1,3) берет третье слово из ячейки A1 и т. Д.

18. Защита данных в MS Excel

Иногда мы хотим защитить данных нашего файла, чтобы только мы могли его изменять. Вот как это сделать с VBA:

Sub ProtectSheets()
    
        Dim ws As Worksheet
    
        For Each ws In ActiveWorkbook.Worksheets
    
        ws.Protect Password:="1234"
        Next ws
End Sub

Поздравления! Поскольку вы все еще читаете это, вы действительно заинтересованы в изучении VBA. Как вы уже сами видели, язык программирования VBA чрезвычайно полезен и может сэкономить нам много времени. Надеюсь, вы нашли эту информацию полезной и использовали ее, чтобы стать мастером MS Excel, VBA и компьютерных наук в целом.

© 2018 Атанас Йонков

---

Литература:

1. ExcelChamps.com: Top 100 Useful Excel Macro [VBA] Codes Examples.

2. Michael Alexander, John Walkenbach (2012). 101 Ready-To-Use Excel Macros.

3. BG Excel.info: 14 ready-to-use Macros for Excel.

Полезные макросы Excel для автоматизации рутинной работы с примерами применения для разных задач.

Примеры макросов для автоматизации работы

Макросы для фильтра сводной таблицы в Excel.
Как автоматизировать фильтр в сводных таблицах с помощью макроса? Исходные коды макросов для фильтрации и скрытия столбцов в сводной таблице.

Макрос для создания сводной таблицы в Excel.
Как автоматически сгенерировать сводную таблицу с помощью макроса? Исходный код VBA для создания и настройки сводных таблиц на основе исходных данных.

Макросы для изменения формата ячеек в таблице Excel.
Как форматировать ячейки таблицы макросом? Изменение цвета шрифта, заливки и линий границ, выравнивание. Автоматическая настройка ширины столбцов и высоты строк по содержимому с помощью VBA-макроса.

Макрос для копирования и переименования листов Excel.
Как одновременно копировать и переименовывать большое количество листов одним кликом мышкой? Исходный код макроса, который умеет одновременно скопировать и переименовать любое количество листов.



• Что такое Макрос?
• Создание макроса – практический пример
• Выполнение макроса в Excel
• Заглянем под капот: Как работает макрос?
• Добавим ещё один шаг к нашей задаче…

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

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

Что такое Макрос?

Макрос в Microsoft Office (да, этот функционал работает одинаково во многих приложениях пакета Microsoft Office) – это программный код на языке программирования Visual Basic for Applications (VBA), сохранённый внутри документа. Чтобы было понятнее, документ Microsoft Office можно сравнить со страницей HTML, тогда макрос – это аналог Javascript. То, что Javascript умеет делать с данными в формате HTML, находящимися на web-странице, очень похоже на то, что макрос может делать с данными в документе Microsoft Office.

Макросы способны выполнить практически любые действия в документе, которые Вы только можете пожелать. Вот некоторые из них (очень малая часть):

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

Создание макроса – практический пример

Для примера возьмём самый обычный файл CSV. Это простая таблица 10х20, заполненная числами от 0 до 100 с заголовками для столбцов и строк. Наша задача превратить этот набор данных в презентабельно отформатированную таблицу и сформировать итоги в каждой строке.

Как уже было сказано, макрос – это код, написанный на языке программирования VBA. Но в Excel Вы можете создать программу, не написав и строчки кода, что мы и сделаем прямо сейчас.

Чтобы создать макрос, откройте View (Вид) > Macros (Макросы) > Record Macro (Запись макроса…)

Дайте своему макросу имя (без пробелов) и нажмите ОК.

Начиная с этого момента, ВСЕ Ваши действия с документом записываются: изменения ячеек, пролистывание таблицы, даже изменение размера окна.

Excel сигнализирует о том, что включен режим записи макроса в двух местах. Во-первых, в меню Macros (Макросы) – вместо строки Record Macro (Запись макроса…) появилась строка Stop Recording (Остановить запись).

Во-вторых, в нижнем левом углу окна Excel. Иконка Стоп (маленький квадратик) указывает на то, что включен режим записи макроса. Нажатие на неё остановит запись. И наоборот, когда режим записи не включен, в этом месте находится иконка для включения записи макроса. Нажатие на неё даст тот же результат, что и включение записи через меню.

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

Далее, введите в ячейки формулы в соответствии с названиями заголовков (даны варианты формул для англоязычной и русифицированной версии Excel, адреса ячеек – всегда латинские буквы и цифры):

• =SUM(B2:K2) или =СУММ(B2:K2)
• =AVERAGE(B2:K2) или =СРЗНАЧ(B2:K2)
• =MIN(B2:K2) или =МИН(B2:K2)
• =MAX(B2:K2) или =МАКС(B2:K2)
• =MEDIAN(B2:K2) или =МЕДИАНА(B2:K2)

Теперь выделите ячейки с формулами и скопируйте их во все строки нашей таблицы, потянув за маркер автозаполнения.

После выполнения этого действия в каждой строке должны появиться соответствующие итоговые значения.

Далее, мы подведем итоги для всей таблицы, для этого делаем ещё несколько математических действий:

Соответственно:

• =SUM(L2:L21) или =СУММ(L2:L21)
• =AVERAGE(B2:K21) или =СРЗНАЧ(B2:K21) — для расчёта этого значения необходимо взять именно исходные данные таблицы. Если взять среднее значение из средних по отдельным строкам, то результат будет другим.
• =MIN(N2:N21) или =МИН(N2:N21)
• =MAX(O2:O21) или =МАКС(O2:O21)
• =MEDIAN(B2:K21) или =МЕДИАНА(B2:K21) — считаем, используя исходные данные таблицы, по причине указанной выше.

Теперь, когда с вычислениями закончили, займёмся форматированием. Для начала для всех ячеек зададим одинаковый формат отображения данных. Выделите все ячейки на листе, для этого воспользуйтесь комбинацией клавиш Ctrl+A, либо щелкните по иконке Выделить все, которая находится на пересечении заголовков строк и столбцов. Затем нажмите Comma Style (Формат с разделителями) на вкладке Home (Главная).

Далее, изменим внешний вид заголовков столбцов и строк:

• Жирное начертание шрифта.
• Выравнивание по центру.
• Заливка цветом.

И, наконец, настроим формат итоговых значений.

Вот так это должно выглядеть в итоге:

Если Вас все устраивает, остановите запись макроса.

Поздравляем! Вы только что самостоятельно записали свой первый макрос в Excel.

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

Чтобы очистить все ячейки от данных, щёлкните правой кнопкой мыши по иконке Выделить все, которая находится на пересечении заголовков строк и столбцов, и из контекстного меню выберите пункт Delete (Удалить).

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

Важный момент! Если Вы сохраните файл с расширением XLTX, то макрос в нём работать не будет. Кстати, можно сохранить книгу как шаблон Excel 97-2003, который имеет формат XLT, он тоже поддерживает макросы.

Когда шаблон сохранён, можно спокойно закрыть Excel.

Выполнение макроса в Excel

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

• Макрос может нанести вред.
• Ещё раз прочти предыдущий пункт.

VBA-код обладает очень большими возможностями. В частности, он может выполнять операции с файлами за пределами текущего документа. Например, макрос может удалять или изменять любые файлы в папке Мои документы. По этой причине запускайте и разрешайте выполнение макросов только из источников, которым Вы доверяете.

Чтобы запустить наш макрос, форматирующий данные, откройте файл шаблона, который мы создали в первой части этого урока. Если у Вас стандартные настройки безопасности, то при открытии файла сверху над таблицей появится предупреждение о том, что запуск макросов отключен, и кнопка, чтобы включить их выполнение. Так как шаблон мы сделали самостоятельно и себе мы доверяем, то нажимаем кнопку Enable Content (Включить содержимое).

Следующим шагом, мы импортируем последний обновлённый набор данных из файла CSV (на основе такого файла мы создавали наш макрос).

При выполнении импорта данных из CSV-файла, возможно, Excel попросит Вас настроить некоторые параметры для правильной передачи данных в таблицу.

Когда импорт будет закончен, зайдите в меню Macros (Макросы) на вкладке View (Вид) и выберите команду View Macros (Макросы).

В открывшемся диалоговом окне мы увидим строку с именем нашего макроса FormatData. Выберите его и нажмите Run (Выполнить).

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

Заглянем под капот: Как работает макрос?

Как уже не раз упоминалось, макрос — это программный код на языке программирования Visual Basic for Applications (VBA). Когда Вы включаете режим записи макроса, Excel фактически записывает каждое сделанное Вами действие в виде инструкций на языке VBA. По-простому, Excel пишет программный код вместо Вас.

Чтобы увидеть этот программный код, нужно в меню Macros (Макросы) на вкладке View (Вид) кликнуть View Macros (Макросы) и в открывшемся диалоговом окне нажать Edit (Изменить).

Откроется окно Visual Basic for Applications, в котором мы увидим программный код записанного нами макроса. Да, Вы правильно поняли, здесь этот код можно изменить и даже создать новый макрос. Те действия, которые мы совершали с таблицей в этом уроке, вполне можно записать с помощью автоматической записи макроса в Excel. Но более сложные макросы, с тонко настроенной последовательностью и логикой действий требуют программирования вручную.

Добавим ещё один шаг к нашей задаче…

Представьте, что наш исходный файл с данными data.csv создаётся автоматически каким-то процессом и сохраняется на диске всегда в одном и том же месте. Например, C:Datadata.csv – путь к файлу с обновляемыми данными. Процесс открытия этого файла и импорта данных из него тоже можно записать в макрос:

1. Откройте файл шаблона, в котором мы сохранили макрос — FormatData.
2. Создайте новый макрос с именем LoadData.
3. В процессе записи макроса LoadData сделайте импорт данных из файла data.csv – как мы это делали в предыдущей части урока.
4. Когда импорт будет завершён, остановите запись макроса.
5. Удалите все данные из ячеек.
6. Сохраните файл, как шаблон Excel с поддержкой макросов (расширение XLTM).

Таким образом, запустив этот шаблон, Вы получаете доступ к двум макросам – один загружает данные, другой их форматирует.

Если есть желание заняться программированием, Вы можете объединить действия этих двух макросов в один – просто скопировав код из LoadData в начало кода FormatData.

Введение

         Большинство
специалистов используют операционную систему Windows на
рабочих местах предприятия и на индивидуальных компьютерах. Следует отметить,
что на предприятиях устанавливают требования (внутренние стандарты) на
использование приложений MS Office для
подготовки распространения файлов. Жизнь показала, что стандарты предприятия на
использование операционных систем и приложений, отстают от тех возможностей,
которые предоставляют пользователям разработчики системы Windows. Например, широко распространённое приложение для
работы с данными MS Excel, постоянно добавляется новыми возможностями,
претерпевает некоторые изменения в интерфейсе. По этой причине, автор данного
пособия постарался учесть некоторые особенности версий MS Office,
раскрывая правила работы пользователя, как с версиями MS Office 2003 (это
основной стандарт для предприятий), так и с более поздними версиями, для
которых разработчики ввели ленточный  интерфейс
в строке Меню. Для демонстрации различий между отображением интерфейсов
приложений MS Office, которые работают под управлением одной и той же
операционной системы Windows
XP, на рис 1 представлено отображение интерфейса
приложения Word 2003, а на рис 2 – Word 2007. Следует напомнить, что в приложениях MS Office
2003 (или в более ранних версиях) имелась строка Меню, к каждому наименованию в
строке прикреплялся разворачивающийся список с командами для вызова
определённой функции, а также создавалась панель инструментов в виде пиктограмм
с наиболее часто используемыми функциями для поддержки работы пользователя (рис
1). В версиях MS Office, начиная с 2007, строка Меню состоит из закладок
(Главная, Вставка, Разметка страницы и т.д.), при активизации которых,
раскрывается лента в виде пиктограмм с перечнем функций для работы пользователя
(рис 2).

Рис. 1. Интерфейс приложения Word 2003

Рис. 2. Интерфейс приложения Word 2007

            В предлагаемом пособии рассмотрены конкретные примеры постановки
задач и их реализации в приложениях MS Office. Задачи предлагаются на
практических занятиях по дисциплинам Информатика, Информационные технологии в
управлении, Исследование социальных и политических процессов. Автор пособия не
ставил перед собой цели по созданию универсального свода примеров по каждой
дисциплине, а лишь предлагает рассмотреть наиболее характерные постановки задач
для ввода, преобразования и обработки данных, которые встречаются в указанных
дисциплинах. Инструментом для обработки и анализа данных на рабочем месте
пользователя, часто являются приложения MS Office, которые
используются в качестве программных средств подготовки данных для передачи
(экспорта) их в другие приложения, или используются в качестве средства для
обработки данных при получении (импорте) их из других источников и приложений.
На этом основана технология распределённой обработки данных, независимо от той
среды, в которой работает конечный пользователь. Следовательно, целесообразно
вводить в приложения MS Office элементы
автоматизации работы с данными, для чего используются элементы управления, а
реализуется всё либо с помощью макросов, либо с использованием языка Visual Basic for Application.

Раздел 1. О назначении
языка программирования Visual Basic for Application

Событийный подход в программировании

                Событи́йно-ориенти́рованное
программи́рование (англ. event—driven
programming; в дальнейшем СОП) — парадигма программирования, в
которой выполнение программы определяется событиями — действиями пользователя
(щелчок по кнопке мыши, попадание курсора в определенную позицию, изменение
атрибутов того или иного объекта, переполнение буфера памяти и т.д.),
сообщениями других программ, событиями операционной системы (например,
поступлением сетевого пакета). Программа
представляет собой совокупность возможных сценариев обработки данных, выбор
которых инициируется наступлением того или иного события. Событийный подход к
программированию включает использование объектов, способных реагировать на
события, происходящие в системе.

                Корпорация
Microsoft интегрировала
в свои офисные продукты, а также во все версии операционной системы Windows, простой в понимании и удобный в использовании язык
программирования Visual Basic for Application (VBA), который
берёт своё начало от объектно-ориентированного языка программирования Visual Basic (VB). Это средство разработки программного обеспечения,
сочетает в себе процедуры и элементы объектно-ориентированных языков
программирования. Среда разработки VB включает инструменты для визуального
конструирования пользовательского интерфейса, в итоге создаётся загрузочный
модуль, который может работать независимо. Язык VBA позволяет пользователю создавать приложения,
структуры данных и управляющие структуры, что позволяет реализовать следующие
возможности: создание нестандартных диалоговых окон с базовым набором элементов
управления, написание процедур для приложений MS Office,
обрабатывающих события, которые возникают при тех или иных действиях
пользователя или системы.

Особенности языка программирования VBA

                Язык
программирования VBA не позволяет создавать
независимое приложение. Проект (программа) в VBA обязательно должен взаимодействовать с каким-либо
документом (Word, книга Excel, база данных Access). Документ рассматривается как доступный объект (Application) из программных кодов. Но, вместе с тем, программист
получает возможность автоматизировать работу пользователя с любым приложением MS Office.
Под автоматизацией работ подразумевается выполнение ряда рутинных операций,
которые приходится осуществлять пользователю при работе как с внутренними
данными (данные в приложении), так и с внешними источниками данных (файлы,
таблицы, гистограммы и т.п.). Чтобы вызвать событие со стороны пользователя или
отобразить результаты выполнения операций над данными в VBA используют
элементы управления. Следует отметить, что набором типовых элементов
управления, которые наиболее часто встречаются во всех интерфейсах Windows, являются: кнопки, текстовые окна, надписи, списки,
средства для выбора. Эти элементы управления всегда доступны, хотя, часто
появляется необходимость (как и при использовании VB) подключать дополнительные элементы управления,
которые можно выбрать из реестра Windows, раскрыв
пиктограмму  — Другие
элементы, на панели инструментов. Каждый элемент управления связан с
набором событий, которые выбирает разработчик, при создании процедуры обработки
события, так на рис 3 представлен пример набора возможных событий для элемента
управления командная кнопка. После свершения события (нажатие на клавишу,
щелчок мышью и т.п.) подключается процедура, которая включает в себя набор
программных кодов (в основном операторы языка программирования), созданных
программистом по заранее намеченному алгоритму. Как правило, результатом работы
процедуры является преобразование данных (видоизменение, проведение расчетов,
изменение свойств объектов, создание файлов, отображение на экране пользователя
определённых сведений и т.п.).

Рис. 3. Перечень событий для командной кнопки

                Разработчики
интерфейсов для приложений MS Office наиболее
часто используют стандартные элементы управления, перечень которых приведен в
таблице 1.

Таблица 1. Перечень наиболее часто используемых
элементов управления

Раздел 2. Разработка программных кодов на VBA

Обработка данных с
использованием средств VBA.

         Предположим,
что в организации не так много сотрудников, поэтому отдел кадров ведёт всю
документацию с использованием приложений MS Office.
Безусловно, основные данные о сотрудниках целесообразно хранить в виде
отдельных файлов, к которым по мере необходимости можно обращаться. Сведения о
сотрудниках в основном содержат структурированную текстовую информацию, которая
может находиться в книге Excel
и отображаться в виде таблицы, как это
показано на рис 4.

Рис. 4. Таблица со списком сотрудников

                Таблица с исходными данными (рис
4) может быть использована для обработки данных в Excel стандартными
приёмами (сортировки, подведение итогов, отборы по заданным параметрам и т.д.).
Можно использовать эту таблицу в качестве источника данных для создания
автоматизированных форм, которые не потребуют от исполнителя каких-либо знаний
функциональных возможностей Excel. Для этой
цели достаточно провести анализ потребностей исполнителя и создать небольшой
интерфейс с внедрением на лист Excel
элементов управления, которые позволят в
автоматизированном режиме выполнять набор стандартных операций. В частности,
сохранять требуемые данных в отдельных файлах, осуществлять отбор данных по
заданным параметрам, формировать выходные документы. Автоматизация работы с Excel предусматривает
внедрение макросов и программ на языке программирования Visual Basic for Application (VBA), о чём в
дальнейшем и пойдёт речь.

Проектирование
интерфейса анализа количества записей в таблице и отображение данных в виде
списка

         Алгоритм
автоматического определения количества строк в таблице и переноса отдельных
полей в окно со списком очевиден. Необходимо с определённого места
последовательно просматривать данные одного столбца, проверять на наличие
записанного данного в ячейке и передавать в элемент управления поле со списком.
В том случае, если в ячейке ничего не будет записано, тогда следует прекратить
просмотр элементов столбца и отобразить в текстовом окне на листе Excel количество просмотренных записей  в столбце.

                Воспользуемся уже готовой книгой
Excel с
наименованием Form1.xls, откроем этот файл и сохраним его под новым именем
(на всякий случай), например, зададим имя файла – Form2.xls. Прежде всего,
необходимо подготовить среду для разработки интерфейса пользователя и
программных кодов на VBA. Для этого
(правильнее всего), работая с Excel 2003, в
строке Меню следует выбрать: Вид→Панели инструментов→Visual Basic. На
экране появится новая панель инструментов, которую можно ухватить мышкой и
переместить в любое место (лучше на общую панель инструментов), панель
инструментов Visual Basic с
основными элементами показана на рис 5.

Рис. 5. Панель инструментов Visual Basic

                Активизация кнопки  — Элементы
управления, приведёт к открытию дополнительной панели инструментов с таким
же названием, на которой находятся основные элементы управления, её внешний вид
представлен на рис 6. Если подвести указатель мыши к любой пиктограмме на
панели инструментов, то будет показана подсказка с наименованием элемента.

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

                Пиктограмма  — Режим
конструктора при нажатом положении позволяет на рабочем листе поместить необходимый
элемент управления, а затем масштабировать его и изменять (задавать) свойства.
Так, для запуска программного приложения на VBA, необходимо создать событие – нажать на кнопку (Click). После размещения кнопки на рабочем листе, она будет
иметь следующий вид: ,
что не устраивает разработчика. Поэтому, следует воспользоваться пиктограммой  — Свойства
(на панели Элементы управления). На рис 7 представлено окно Properties (Свойства)
для элемента управления – Кнопка,
некоторые свойства были изменены, к ним относятся: BackColor, Caption, Font, ForeColor и MousePointer. Изменение свойств осуществляется либо путём ввода
текста в окно с наименованием свойства, либо путём выбора варианта свойства из
раскрывающегося списка. Остальные свойства задаются «по умолчанию», т.е. при
размещении элемента на листе книги автоматически запоминаются размеры элемента,
его местоположение, а так же многие свойства оставляются неизменными, например Visible (Видимость).
Обратите внимание, что имя свойства, состоящее из двух и более слов,
представляется слитно, так как по правилам программирования, в программных
кодах имена переменных и элементов не должны иметь разрывов (символ пробел
недопустим).

Рис. 7. Окно свойств элемента управления – Кнопка

                               Для отображения
количества строк в таблице (в столбце) на листе Excel размещён элемент  — Поле,
которому так же можно задать собственные свойства, например, отображение числа
записей в таблице будет: синим цветом, шрифт которого – Arial 18pt. Элемент  — Надпись
обычно используется для отображения пояснений в виде текста, поэтому его
целесообразно размещать около элементов управления. В данном примере на листе Excel создано
две надписи около элемента Поле (TextBox) и элемента  Поле со списком (ListBox). Для удобства работы пользователя целесообразно
создать ещё одну кнопку, при нажатии на которую будут удаляться данные из
текстовых окон. В результате, выполняемых действий при размещении элементов
управления на листе Excel, внешний вид его будет
таким, как показано на рис 8.

Рис. 8. Элементы управления, размещённые на листе Excel

Разработка программы на
VBA

                После того, как на листе Excel размещены необходимые элементы управления с заданными
свойствами, можно приступать к разработке программных кодов на VBA и
отладке программы. Удобством VBA является то, что в нем можно использовать в качестве
имён переменных зарезервированные слова для обозначения книги, листа и ячеек.
Совокупность ячеек представляют двумерный массив, в котором указывается
абсолютная адресация текущей ячейки относительно верхнего левого угла. Если
результаты обработки данных следует отобразить на том же листе, то в программе
нет необходимости указывать имя книги и имя листа.

                Разработка программных кодов
осуществляется в окне программных кодов (Code), внешний вид которого представлен на рис 9.
Открывать окно для создания программных кодов лучше всего двойным щелчком по
элементу управления. В рассматриваемой задаче, подразумевается, что при нажатии
на кнопку с наименованием «Просмотреть список» будет запущена программа для
подсчёта количества строк в списке и в окне Поле
со списком будут отображены все фамилии сотрудников.

Рис. 9. Внешний вид окна для записи программных кодов
в процедуру

                Следует напомнить, что в более
сложных задачах возможен вариант, когда потребуется  использовать данные из разных книг Excel и листов, которые принадлежат этим книгам, по этой
причине следует ориентироваться в именах, которые им присваиваются во время
создания. Так, например, рассматривая рис 9, можно увидеть, что книга имеет имя
– Form2, а лист, на котором находятся данные носит название –
Кадры, хотя другие листы этой книги
сохранили свои имена (Лист2 и Лист3), которые им присвоены по умолчанию
системой при открытии книги Excel. При
внедрении элемента управления Кнопка
на лист, система ей присвоила имя (свойство Name) – CommandButton1,
которое не менялось (хотя согласитесь, что это слишком громоздко, можно
придумать самому имя, например, С1).

                Обработка события Click, которое вызывает пользователь, нажав на кнопку с
наименованием «Посмотреть список», осуществляется процедурой Private Sub
CommandButton1_Click(), внутри которой расположена программа. Программные коды представлены на рис 10.

Рис. 10. Программа 
обработки события – нажать на кнопку «Посмотреть список»

                Конструкция условного оператора While … Wend создана для того, чтобы в цикле просматривать
содержимое ячеек, начиная с ячейки B3, что
соответствует в записи Cells(i,2), где начальному значению i присвоено число
3 (номер строки), а 2 обозначает номер столбца в таблице. Так как неизвестно,
сколько требуется просмотреть строк, то в качестве условия в операторе While записано
выражение: Cells(i,2)<>””. Это условие трактуется следующим
образом: просматривать ячейки до тех пор, пока их содержимое будет иметь
какие-либо символы, в противном случае, когда встретится пустая ячейка –
прекратить просмотр и выйти из цикла. Так как оперируем с текстовой
информацией, то признаком отсутствия данных в ячейке является сочетание
символов “”. Отображение данных
осуществляется в окне со списком (ListBox1
– это его имя), в который добавляются значения, полученные из ячеек с номерами
сотрудников и фамилий сотрудников. AddItem –
это метод (маленькая стандартная подпрограмма), поэтому присоединение метода к
имени объекта осуществляется через точку. Выражение: Cells(i, 1) &
» » & Cells(i, 2), имеет знак & (амперсанд), который показывает,
объединение значений нескольких переменных (в данном случае их 3). Первая
переменная Cells(i, 1)  – это
значение номера сотрудника, вторая » » – пробел, третья Cells(i, 2) – значение
из ячейки с фамилией. Таким образом, в окне отобразится номер и фамилия
текущего сотрудника, если предварительно отсортировать данные в таблице Excel, например, по фамилиям сотрудников, то номер его
сохранится в том виде, какой был ему присвоен 
при вводе данных. В программе использованы переменные i и k, первая из которых обозначает номер просматриваемого
столбца, а вторая введена для подсчёта количества просмотренных ячеек в цикле.
Отображение количества просмотренных строк осуществляется в текстовом окне (TextBox) с помощью оператора присвоения TextBox1.Text = k. Следует обратить внимание на то обстоятельство, что
объекту с именем TextBox1 присваивается
(передаётся) значение переменной k, поэтому к
имени переменной через точку добавляется имя свойства Text (TextBox1.Text).

                Пользователь может добавлять в
исходную таблицу новые строки или вводить исправления в данные, поэтому для
того, чтобы посмотреть новый список, целесообразно его очистить. Для этой цели
и была создана кнопка «Удалить сведения», текст этой программы приведён на рис
11.

Рис.11. Программа для очистки текстовых окон на листе Excel

                 Имя кнопки «Удалить сведения» оставлено без
изменения, как это предложила система. После свершения события Click по
кнопке запускается программа, которая обрабатывает два объекта. Первым объектом
является список с именем ListBox1,
который содержит несколько строк (комплекс данных), поэтому следует запустить
метод Clear (Очистить).
Вторым объектом с именем TextBox1
является текстовое окно (Поле) для обнуления которого достаточно свойству Text присвоить пустое значение (пробельную строку).
Окончательный вариант интерфейса для пользователя на листе Excel представлен
на рис 12. Можете
посмотреть пример.

Рис. 12. Отображение данных в виде списка

Особенности разработки
интерфейса пользователя на Excel 2007

         На
рис 13 представлена книга со списком сотрудников, созданная в Excel 2007, на которой расположены элементы управления для
автоматизации работы пользователя.

Рис. 13. Отображение панели инструментов для Excel 2007 с размещённой таблицей и элементами управления

                Для того чтобы разместить
элементы управления на листе Excel 2007,
необходимо открыть вкладку Разработчик,
нажать на кнопку  — Режим
конструктора, а затем открыть панель с элементами ActiveX (панель инструментов с наименованием «Элементы
управления формы» используется при работе с макросами). Изменение свойств
элементов управления, которые размещены на листе Excel, осуществляется нажатием на пиктограмму ,
после выделения элемента на листе. Разработка программных кодов для поддержки
работы интерфейса пользователя ничем не отличается от технологии, которая была
описана в разделе выше (можно смело скопировать программные коды с рис 10 и рис
11 в окно Code Visual Basic),
если работа ведётся в версии Excel 2007 и
выше.

Можно
посмотреть пример для Excel
2007.

Передача данных из Excel в текстовые файлы

                Данные, которые собирают или
создают в Excel, часто требуется
использовать в других приложениях. Возникает задача автоматизации формирования массивов
с данными таким образом, чтобы сотрудник не использовал ручные операции для
открытия книги Excel, поиска и отбора необходимых
данных, их копирования и размещения в собственном приложении. Использование VBA делает
возможным после обработки данных в Excel
одним щелчком мыши сформировать выходной файл для других пользователей.
Воспользуемся уже готовым приложением Excel, в
котором сформирована таблица с данными о сотрудниках (Form1.xls), добавим в неё столбец «Дата приёма». После
заполнения столбца данными (в примере это год приёма на работу), сохраним
документ под именем Form3.  Предположим, отделу охраны
потребуются сведения о сотрудниках организации, чтобы подготовить им новые
пропуска. Совершенно очевидно, что, во-первых, отдел кадров не должен
передавать все сведения о сотрудниках, во-вторых, отдел охраны должен готовить
пропуска только тем сотрудникам, у которых они закончили срок действия или для
вновь принятых сотрудников. Следовательно, 
инициатором формирования списков на выдачу пропусков сотрудникам
является отдел кадров, который ведёт учёт движения кадров, в соответствии с
приказами по организации. Поэтому, для формирования списка сотрудников на
выдачу пропусков в отделе кадров должны провести отбор кандидатур из общего
списка, который оформляется в виде отдельного файла и направляется на сервер.

                Решение поставленной задачи
осуществим средствами Excel. Алгоритм
формирования файла из таблицы Excel состоит из
ряда последовательных действий, которые включают:

—
просмотр списка фамилий сотрудников предприятия;

—
выбор из списка фамилий и других данных, кому потребуются пропуска;

—
формирование файла с данными и отправка его отделу охраны предприятия.

                Подготовим интерфейс для работы
сотрудника отдела кадров с приложением Excel, внешний вид заготовки представлен на рис 14.

Рис. 14. Интерфейс пользователя для подготовки файла с
данными

                В качестве нового элемента
управления, который появился на листе Excel,
выбран:  — Поле
со списком (ComboBox). Этот элемент управления
обладает дополнительными свойствами по сравнению с элементом Список (ListBox). Например, можно сделать раскрывающийся список или, непосредственно,
в окне отобразить сведения о его состоянии (чем мы и воспользуемся).

                Разработку программы
целесообразно начать последовательно для каждого элемента. Чтобы не путаться
примем в качестве соглашение – имена объектов на листе (элементов управления)
оставим такими, какие им присваивает система. Первое событие, которое должен
осуществить сотрудник при работе с данным приложением – указать условия отбора
данных из таблицы со сведениями о персонах. Для этого необходимо нажать на
кнопку с наименованием «Ввести условия отбора», по заданному условию в элементе
Поле со списком должны отобразиться
данные о сотрудниках. Поэтому, требуется организовать диалог пользователя с
приложением, для этого воспользуемся стандартным диалоговым окном на основе
функции InputBox(). Программные коды для обработки события Click по
кнопке представлены на рис 15.

Рис. 15. Программа для обработки события — нажать на
кнопку «Ввести условие отбора»

                Следует напомнить, что в
программах используют переменные, зона действий которых распространяется
по-разному. Чтобы переменная была доступной в пределах приложения для всех
процедур, тогда её необходимо объявить в общей области, если нет необходимости
использовать имя переменной во всех процедурах, тогда её объявляют внутри
процедуры или внутри оператора. При рассмотрении данной задачи, на это будет
обращено внимание. Для отбора сведений из таблицы Excel по заданному
критерию необходимо сформировать промежуточные массивы, в которых будут
находиться данные, предназначенные для записи в файл. Массивы будут создаваться
в процедуре отбора данных из таблицы, а использоваться в процедуре записи
данных в файл, поэтому оператор: Dim M1(20), M2(20), M3(20), M4(20) As String,
создан раньше объявления всех процедур. По той же причине объявление  переменной Dim k As Integer для подсчёта
количества отобранных записей вынесено в начало программы. Обратите внимание,
что оператор Dim i As Integer находится внутри процедуры, т.к. действие переменной i распространяется только при просмотре ячеек таблицы.
Операторы, позволяющие осуществлять удаление данных из поля со списком и из
заголовка списка, используются для того, чтобы пользователь мог несколько раз
менять своё решение при вводе критерия отбора, не выполняя при этом
дополнительных действий. Организация диалогового окна осуществляется функцией InputBox(), у которой задаются аргументы, а результаты ввода
сохраняются в переменной y. Рассмотрим несколько подробнее содержимое функции InputBox().

    y = InputBox(«Введите год, ниже
которого будут отобраны сведения из таблицы», _

    «Вы указываете критерии отбора»)

Диалоговое
окно для ввода критерия отбора данных из таблицы представлено на рис 16, у
которого есть поле для заголовка, тело для отображения инструкций, указаний и
т.п., а так же есть текстовое окно для ввода данных. При нажатии на кнопку ОК
на диалоговом окне, значение из текстового окна передаётся переменной y. Если
пользователь нажмёт на кнопку Cancel, то будет
сгенерирован код конца работы, который передаётся переменной y, обычно
программисты это учитывают и создают программные коды, которые анализируют,
какую кнопку нажал пользователь. В рассматриваемом примере оператор If y
<> «» Then проверяет наличие любого кода, введённого в
текстовую строку. В том случае, если нажата кнопка Cancel, то код будет пустым, после этого оператора ни одна
инструкция в программе не будет выполнена (завершение проверки условия End If стоит в самом конце процедуры).

Рис. 16. Диалоговое окно для ввода критерия отбора
данных из таблицы

                Далее, в процедуре по отбору
данных встречается конструкция While … Wend, которая была описана в предыдущем примере. Внутри
этой конструкции встроен условный оператор If … Then … Else. Условием является сравнение текущего значения в
ячейках с датой поступления сотрудников на работу с критерием отбора. Так как в
ячейках находятся данные в числовом формате, а критерий отбора введён в
текстовом виде, то использована функция Int(), с помощью которой текстовые данные преобразуются в
целые числа (заметим, что аргументы функции всегда заключены в круглые скобки).
При выполнении заданного условия (“<=”) осуществляется  сохранение данных в массивах (Фамилия, Имя,
Отчество, Должность) и идёт заполнение строк элемента управления —Поле со списком. По окончанию просмотра
ячеек таблицы со сведениями о годе поступления на работу, осуществляется замена
текста в заголовке элемента – Поле со
списком. На рис 17 показан результат отбора записей при заданном критерии
отбора (в диалоговом окне указан 2008 год).

Рис. 17. Пример отбора данных по заданному критерию

                Передача, отобранных сведений из
таблицы, осуществляется после того, как пользователь нажмёт на кнопку
«Подготовить файл». В этом случае будет запущена процедура, текст которой
представлен на рис 18.

Рис. 18. Программные коды процедуры — запись данных в
файл

                Самым простым способом создавать
файл является — указать полный путь к файлу в программе, хотя есть и другие
способы, о которых будет сказано ниже. В данном примере рассмотрим, как
работает оператор Open. Для создания файла
необходимо задать путь к файлу: «C:Prim—vbaSved.txt«, режим
— For Output
(открыть файл для записи), и задать указатель файла —  As #1
(цифра может быть любой). Если файла с указанным именем нет, то он будет
создан, если такое имя существует, то запись начнётся с начала, а все
предыдущие записи будут удалены. Путь к файлу C:Prim—vba — содержит: имя диска, и наименования папок. В том
случае, если наименований указанных папок не существует, то система даст сообщение
об ошибке. Завершение записи осуществляется операцией закрытия (добавление
специального символа в конец файла) с помощью оператора Close #1. В данном примере, необходимо содержание массивов
с данными передать в файл, для чего использована конструкция For … Next.

В операторе Write #1,
M1(j); M2(j); M3(j); M4(j) даётся ссылка
на указатель файла и после запятой указывается список переменных, отделяемых
друг от друга знаком разделителя (в данном примере знаком разделителя данных
является – точка с запятой «;»). Результаты созданного файла с оператором Write показаны
на рис 19. Вместо оператора Write можно
использовать оператор Print, тогда
знак разделителя не будет отображаться.

Рис. 19. Отображение в приложении Блокнот, записанных
сведений в файл

                Пользователь получает на экране
компьютера подтверждение (рис 20), которое создано с помощью функции MsgBox(). Обратите внимание, что при задании в функции
аргумента – vbInformation, на диалоговом окне отображается только одна кнопка и
символ информация.

Рис. 20. Сообщение пользователю о завершении записи
данных в файл

                Процедура очистки окон
запускается нажатием на кнопку «Очистить список», как она создавалась описание
дано в предыдущем примере.

Посмотрите
работу примера в Excel
2003

Посмотрите
работу примера в Excel
2007

Использование файлов с
данными для работы в Excel

         Созданный
файл со списком сотрудников удобно использовать для работы различных
подразделений. Предположим, что отдел охраны просматривает на сервере вновь
поступившие файлы для выполнения функции – подготовка пропусков сотрудникам
организации. Попробуем упростить работу сотрудника отдела охраны, для чего
рассмотрим два варианта работы со списком, который находится в отдельном файле.
Для достижения, поставленной цели, необходимо создать шаблон выходного
документа – это образец пропуска на работу, а так же необходим интерфейс на
листе Excel, с помощью которого можно отобрать данные и заполнить
бланк пропуска. Откроем новую книгу в Excel
2003 (попутно покажем, какие различия встретятся при работе с Excel 2007). В новой книге создадим шаблон для типового
пропуска, который после заполнения будет распечатывать сотрудник отдела охраны.
Назовём лист «Пропуск», а шаблон будет выглядеть, как показано на рис 21.

Рис. 21. Лист Excel с заготовкой для вывода данных

                Рамка обозначает внешний вид
документа (Пропуск), внутри рамки обведены ячейки, которые залиты одним цветом.
На документе размешены его атрибуты (рисунок в виде флага; название
организации; заголовок документа 
«Пропуск»; реквизиты документа фамилия, имя, отчество, должность).
Ячейки B3:G3 объединены ,
в которых записано название организации, в строке 4 крупным шрифтом написано
слово «ПРОПУСК», в ячейке B8 – Должность и
т.д. (все ячейки, которые использованы для шаблона на рис 21 выделены другим
цветом). В ячейке С10 изменён формат представления данных с Общего на формат Дата, обратите внимание, что в эту ячейку вставлена формула:
=СЕГОДНЯ(). Варианты автоматизации получения пропуска для сотрудника с
заполненными данными, отличаются друг от друга интерфейсом, который расположен
на листе с наименованием «Список».

Вариант 1. Импорт текстовых данных на
лист Excel

 Список
сотрудников из файла поместим на листе Excel с наименованием «Список», для чего откроем в строке Меню→ Данные→ Импорт внешних
данных→ Импортировать данные, как показано на рис 22.

Рис. 22. Подготовительные действия для импорта таблицы
из файла

                При импорте внешних данных на
лист Excel, сначала следует найти местоположение файла (с
помощью окна – Импорт текстового файла),
а затем провести три последовательных шага в приложении – Мастер текстов.

                Для тех, кто работает с Excel 2007, необходимо в Меню раскрыть вкладку Данные,
чтобы обратиться к списку команд группы – Получить
внешние данные. На рис 23 выделена пиктограмма – Из текста, которая запускает диалоговое окно для поиска файла и Мастер текстов, при работе с этими
диалоговыми окнами, все последующие действия при импорте текстового файла будут
аналогичны, как в Excel 2003.

Рис. 23. Импортирование внешних данных, созданных в
виде текста

                Приложение Мастер текстов преобразует строки в отдельные записи (создаёт
списки), поэтому при выполнении второго шага, следует указать, что является
символом-разделителем в файле. На рис 24 показано окно Мастер текстов, в котором отмечен символ-разделитель – запятая.

Рис. 24. Пример преобразования строк текста в
табличные данные с помощью приложения Мастер
текстов

Теперь следует позаботиться, чтобы данные о сотруднике
с листа «Список» попали на лист «Пропуск». Передача сведений о сотруднике,
которые предварительно выделяют в списке, будет осуществляться после нажатия на
кнопку с наименованием «Подготовить пропуск» на листе с наименованием «Список»,
как показано на рис 25.

Рис. 25. Пример импортированного списка на лист Excel для
подготовки пропуска сотруднице Вавиловой

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

                Воспользуемся возможностями
объекта Application, который обладает обширной коллекцией свойств,
позволяет программно установить значения многих опций для объектов, которые
используются в программе VBA (подробно об
объекте Application можно
ознакомиться в литературе, например, [1]). В данной программе используем
функцию InputBox() в качестве диалогового окна для сбора параметров о
сотруднике. Поэтому, сначала дадим описание параметров этого окна в операторе Set (Установить), запись будет выглядеть следующим
образом:

  Set input_sveden = Application.InputBox( _

        Title:=»Найдите необходимую ячейку», _

        Prompt:=»Выделите в таблице ячейки в строке,»
& Chr(13) _

                   & «которые
относятся к сотруднику», _

       Type:=8)

Зададим имя переменной — input_sveden, которой
будут передаваться сведения из текстовой строки диалогового окна.  Application.InputBox — это новый объект (на основе функции InputBox). Объекту следует задать параметры, которые являются
атрибутами функции, к которым относятся:

Title – строковое выражение, отображаемое в строке
заголовка диалогового окна;

 Prompt –
строковое выражение, отображаемое как сообщение в диалоговом окне;

Type – параметр, указывающий что должно отображаться в текстовом
окне (код 8 – адрес выделяемой ячейки на листе).

Рис. 26. Программные коды для обработки выделенной
строки после свершения события Click
при передаче в шаблон документа

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

    Num_col = input_sveden.Columns.Count

    Num_row = input_sveden.Rows.Count

Операторы цикла осуществляют просмотр содержимого
переменной input_sveden с последующей записью в индексированный массив
Mas(i), далее формируется общая строка FIO, содержащая фамилию имя и отчество сотрудника.  Для создания сообщения о выполнении работы использован
оператор MsgBox (обратите внимание, в
операторе не используются круглые скобки). Но вместе с тем, в этот оператор
встроена функция Chr(13), которая воспринимает код 13, как возврат каретки и
перевод курсора на новую строку, что позволяет в диалоговом окне сообщение
делить на несколько строк. Пример результатов выполнения запроса показан на рис
27.

Рис. 27. Пример использования оператора MsgBox для формирования
сообщения в виде диалогового окна

                Сохранив значения в переменных FIO и Mas(4) для заполнения пропуска (так можно собрать из
таблицы большое количество данных, а в нашем примере показано, как выбирать
данные и объединять в одну строку), осталось их передать на другой лист, что
выполняется с помощью следующих кодов:

     Worksheets(«Пропуск«).Cells(6, 2) = FIO

     Worksheets(«Пропуск«).Cells(8, 3) = Mas(4)

Посмотрите
пример работы программы для Excel

Пример,
который работает только в Excel 2007 и
выше

Вариант 2. Использование данных
непосредственно из файла.

Можно создать интерфейс для пользователя на листе Excel, для того, чтобы (в данном примере) сотрудник отдела
охраны, имел возможность выбирать файл, отбирать необходимые сведения,
распечатывать бланк пропуска с готовыми данными. Создадим новую книгу Excel, присвоим ей имя – Form5. Первый лист книги назовём «Сотрудники», а второй
лист с наименованием «Пропуск» скопируем из предыдущего примера. На листе
«Сотрудники» расположим необходимые элементы управления как показано на рис 28.

Рис. 28. Проект интерфейса пользователя на листе Excel

Для осуществления операции просмотра файлов введём
новый элемент управления, на панели инструментов пиктограммой  — Другие
элементы, После нажатия на эту пиктограмму, откроется список, из которого
выберем —  Common Dialog (Общий диалог). Класс объектов
управления Общий диалог позволяет открыть в работающем приложении одну из
стандартных диалоговых панелей, например, Открытие файла (File Open), Сохранение
файла (File Save As), Выбор шрифта (Select Font) и
другие, как показано на рис 29 выделяют название элемента, а затем нажимают на
кнопку ОК.

Рис. 29. Выбор дополнительного объекта в разделе Windows –
Другие элементы

Пиктограмма  — Общий
диалог появится на листе Excel, после
чего необходимо установить свойства элемента. В данном примере, свойству Name (Имя)
присвоим – CD1. Напомним, что элементы
управления, которые относятся к интерфейсу пользователя,  по умолчанию имеют заданные свойства, изменим
некоторые свойства, которые перечислены в таблице 2.

Таблица 2. Наименования элементов управления и их
свойства в программе

                Интерфейс пользователя включает
две кнопки. Первая кнопка с наименованием «Посмотреть файлы» должна обеспечить пользователя
поисковым средством для выбора файла (где бы он не находился), отобразить
фамилии сотрудников в виде списка на экране в объекте с именем LB1. Программа обработки события, представлена на рис
30.

Рис. 30. Программа обработки события при нажатии на
кнопку с наименованием «Поиск файлов»

                Обратите внимание, что в общую
область вынесено два оператора Dim, для
описания переменных, которые будут использованы во всех процедурах. В то время
как переменные Puti и k
используются только в процедуре CB1_Click(). В
предыдущих примерах было дано подробное описание работы с оператором If … else … end и функцией MsgBox(),
поэтому покажем новые элементы программы. Так, запись CD1.ShowOpen, есть не что
иное, как открытие диалогового окна для поиска файлов. Метод ShowOpen позволяет
запустить диалоговое окно в режиме поиска файлов, как показано на рис 31.

Рис. 31. Диалоговое окно для поиска файлов

                Путь к файлу (перечень устройств
и папок), а так же имя файла сохраняются в переменной: Puti = CD1.Filename, где
CD1 – имя объекта Общий
диалог, а Filename – свойство, которому передаётся путь к файлу.

Оператор
Open Puti For Input As #2
указывает, что необходимо открыть содержимое файла, находящегося по адресу Puti.

Новый
приём создания цикла основан на конструкции While … Wend. Внутри
цикла необходимо заполнить строки поля со списком (его имя LB1), и передать все значения о сотрудниках в массивы.
При просмотре файла, неизвестно, сколько находится записей в нём, поэтому, в
операторе начала цикла в качестве условия стоит признак конца файла – EOF (End of File).
Когда условие выполнится, произойдёт выход из цикла.

                Следующее действие, которое
должен совершить пользователь, это отметить в списке фамилию и нажать на кнопку
«Подготовить список» (можно упростить задачу, ликвидировать эту кнопку, а
обрабатывать событие щелчка мышью в строке списка). Для обработки события –
щелчок мыши, программа будет выглядеть, как показано на рис 32.

Рис. 32. Программа формирования документа на листе
«Пропуск»

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

j
= LB1.ListIndex переменная j используется
для получения данных из массивов. Результаты работы пользователя представлены
на рис 33.

Рис. 33. Результаты работы с интерфейсом на листе Excel

Посмотрите
пример в Excel

Пример,
который работает только в Excel
2007 и выше

Раздел 3. Макросы в Excel

Направления
использования макросов

         При автоматизации работ с часто повторяющимися
действиями, процесс их выполнения осуществляется с помощью макросов. Макрос (macro) – это последовательность команд, которые написаны на
VBA и
которые хранятся в стандартном модуле среды разработки VBA приложений.
Макросы могут осуществлять широкий спектр задач от простых вычислений до
создания пользовательского интерфейса вашего приложения. Выделяются три
основные разновидности макросов [3]:

Ø  Командные – основными предназначениями, которых
является выполнение действий, аналогично командам меню.

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

Ø  Макрофункции – представляют собой сочетание командных
макросов и пользовательских функций. Если необходимо в различных макросах
выполнять ряд одинаковых действий, то эти действия обычно выделяются в
отдельную макрофункцию (подпрограмму). Фактически создаются предпосылки для
организации модульного программирования в среде VBA.

Корпорация Microsoft
разработала и внедрила в приложения MS Windows специальную программу, которую назвали – Макрорекордер.
С его помощью осуществляется формирования программного кода, который
оформляется в виде отдельного модуля. Суть работы макрорекордера заключается в
следующем:

§  Пользователь запускает программу – Начать запись (в дальнейшем –
программа).

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

§  Пользователь завершает создание макроса – Остановить запись.

§  Программа формирует модуль, имя которому присваивает
пользователь.

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

Создание макросов

         Прежде
чем запустить макрорекордер для создания макроса, надо тщательно спланировать
ваши действия. Чтобы освоить порядок работы, создадим интерфейс пользователя в
виде командного макроса. Например, созданный список сотрудников (пример 1 – Form1.xls) необходимо
скопировать в новую книгу Excel и
сохранить её в определённой папке. Для выполнения данной работы потребуются
типовые команды, которые нет смысла самому писать на VBA, пусть это сделает макрорекордер.

                Для активизации макрорекордера в
Excel 2003 в строке Меню→ Сервис→Макрос→
Начать запись, как показано на рис 34.

Рис. 34. Порядок запуска макрорекордера через строку
Меню

                Тот, кто работает с Excel 2007
и выше, следует в строке меню открыть вкладку Вид, а затем раскрыть пиктограмму
Макросы, чтобы выбрать команду Запись макроса, как показано на рис 35.

Рис. 35. Последовательность доступа к команде Запись
макроса

                После того, как будет выполнена
команда Запись макроса, на экране
появится окно с одноимённым названием, которое показано на рис 36.

 

Рис. 36. Окно для записи параметров макроса

                В диалоговом окне Имя макроса предлагает система, можно
дать ему любое имя, например, Копия_списка.
Обратите внимание, что в именах не должно быть пробелов. Поле Сочетание клавиш состоит из обязательной
клавиши Ctrl и той, которую назначает пользователь (можно не
назначать). Система предлагает сохранить
макрос в различных вариантах, выбираем – Эта
книга.

Поле
Описание макроса заполняется
пользователем в текстовом окне.

После того, как будет нажата кнопка ОК в окне Запись макроса, макрорекордер начнёт
отслеживать действия пользователя и создавать программу на VBA. Алгоритм действий понятен, состоит из следующих
этапов: открыть имеющийся файл с данными; выделить область ячеек, которые
следует скопировать; выбрать из меню команду копировать; открыть новую книгу Excel; дать команду вставить на лист содержимое буфера
обмена; сохранить новую книгу в виде файла; закрыть этот файл. Завершение
работы макрорекордера осуществляется командой ,
которая находится в группе команд Макрос.

                 Посмотрите, как работает созданный макрос,
который можно запустить сочетанием клавиш Ctrl+a.

Работа с макросом

                Созданный макрос «Копия_списка»
сохраняется в виде отдельного модуля в книге файла Form1.xls. Для того,
чтобы посмотреть содержимое программы на VBA или запустить макрос, достаточно открыть диалоговое
окно, нажав на команду в меню ,
представленное на рис 37.

Рис. 37. Диалоговое окно Макрос с вариантами работы с
макросом

Кнопка
 предназначена для запуска, выбранного из
списка макроса (в данном примере всего один макрос).

Кнопка
 предназначена для просмотра текста макроса в
редакторе и исправления необходимых параметров (прежде чем начать
редактирование кодов, следует запустить режим конструктора). Для рассматриваемого
примера, программные коды макроса показаны на рис 38.

Рис. 38. Программные коды макроса

Кнопка
 позволяет открыть режим редактирования
программных кодов, аналогично кнопке «Войти», но сразу входит в режим
конструктора.

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

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

Кнопка
 запускает диалоговое окно Параметры макроса,
которое показано на рис 39.

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

Рис. 39. Диалоговое окно для изменения параметров уже
созданного макроса

Использование панели
инструментов Формы при создании макросов

         Панель
инструментов Формы содержит в своём составе элементы управления, к которым
можно «привязаться» с помощью макрорекордера. Для открытия указанной панели
инструментов в Excel 2003, следует в строке Меню→Вид→Панели
инструментов→Формы, внешний вид которой показан на рис 40.

Рис. 40. Панель инструментов Формы

                Тот, кто использует Excel 2007, панель инструментов Формы может найти через
открытие вкладки Разработчик→ Вставить (режим конструктора не активизировать),
как показано на рис 41.

Рис. 41. Элементы управления формы

                Попробуем решить задачу, которую
сформулируем следующим образом: создать интерфейс пользователя в новой книге с
элементами управления, которые позволяют просматривать список фамилий
сотрудников из книги с именем Form1. Алгоритм
создания такого макроса заключается в открытии файла с исходными данными,
выделении в таблице столбца с фамилиями, копировании и размещении этих фамилий
в окне со списком. Покажем, как будет создаваться макрос для поставленной
задачи.

1. Откроем файл с
   исходными данными под именем Forma1.xls.
2. Создадим новую книгу
   в Excel, сохраним её под именем Form6.xls.
3. Откроем панель
   инструментов Формы для файла Form6.xls.
4. Поместим на листе с
   наименованием «Просмотр списка» элемент управления  — список.
5. Запустим команду  для записи макроса, в окне Запись макроса присвоим имя макросу
   – Получить_список.
6. Сделаем щелчок
   правой клавишей мыши по элементу Список, в открывшемся окне выберем строку
   с наименованием «Формат объекта».
7. В открывшемся окне,
   которое показано на рис 42, под названием Форматирование объекта на вкладке Элемент управления необходимо щёлкнуть по значку  — Формировать список по диапазону, а
   затем в книге под именем Form1
   выделить столбец с фамилиями.
8. Закрыть окно Форматирование объекта кнопкой ОК.

После выполнения пункта 8 список будет заполнен
фамилиями, которые получены с листа под наименованием «Кадры» из книги – Form1.

Рис. 42. Окно для форматирования объекта – Список

Закройте эту форму, сохраните книгу Form6 и тоже закройте. Можете убедиться, что макрос
заполнения списка создан, программа которого представлена на рис 43.

Рис. 43. Программа макроса для заполнения объекта Список данными

 Теперь
попробуйте открыть файл Form6.xls, к сожалению, в открытой книге будет только элемент
управления Список совершенно чистый,
хотя, макрос был создан. Причина такого результата кроется в том, что источника
информации нет (книга со списком сотрудников закрыта). Создадим ещё один
макрос, обращение к которому, позволяет открыть книгу с именем Form1. В книге Form6
дадим команду для макроса – Начать запись,
откроем файл Form1.xls, дадим команду – Остановить
запись. Таким образом, создан второй модуль, программа которого показана на
рис 44.

Рис. 44. Программный код макроса для открытия файла Form1.xls

                Таким образом, создано два
модуля с программами, которые необходимо объединить. Это делается с помощью
командной кнопки, которую разместим на листе книги Form6. Используем панель элементов Формы, на которой выбираем элемент  — кнопка, располагаем его на листе.

Для
такого элемента система открывает диалоговое окно — Назначить макрос объекту, которое представлено на рис 45. В том
случае, если макрос ещё не готов, то нажмите на кнопку «Отмена» в окне
«Назначить макрос объекту». Когда понадобится выполнить операцию привязки
макроса к кнопке, тогда щёлкните правой клавишей мыши по объекту, а затем в
открывшемся списке выберите необходимую строку с наименованием команды, как это
показано на рис 46.

Обратите внимание, что панель инструментов Формы самостоятельно создаёт процедуры
для обработки событий, не требует перехода в режим конструктора, но вместе с
тем, имеет ограниченные возможности для изменения свойств объектов.

Рис. 45. Диалоговое окно назначения макроса объекту
кнопка

Рис. 46. Пример использования всплывающего меню для
работы с объектом

                Посмотрите работу
примера в Excel 2003

                Этот
вариант будет работать только в Excel
2007 и выше

Раздел 4.
Пользовательские функции в VBA

Создание
пользовательских функций

         Пользовательские
функции оформляются в виде отдельных модулей, используются для организации
вычислений, решения аналитических задач, создания гистограмм и графических образов
на листе Excel. Каждый модуль представляет
собой законченный процесс обработки информации, часто модули используют
неоднократно в различных областях приложения. Отличительной особенностью
пользовательской функции является то, что в ней изменяются параметры, в
зависимости от условий текущего момента, что делает приложение и интерфейс
более универсальными. В предыдущих разделах было показано, как составлять
программы с помощью редактора VBA и макрорекордера при написании макросов. Следует
заметить, что внимательный просмотр кодов для макросов во многом упрощает
изучение приёмов программирования на VBA.
Напомним, что Excel обладает собственными объектами, такими, как книга,
листы, ячейки, области, поэтому, при написании программы приходится
использовать их имена, а так же менять им свойства, поэтому, легче всего
написать простейший макрос, а затем коды перенести в программу, которая и
называется пользовательской функцией. Любое приложение, которое создаётся на VBA, программируется по заданному алгоритму. Разработке
алгоритма предшествует постановка задачи. Очень часто задачу ставят в общем
виде, когда указывают цель, а затем разделяют (декомпозируют) её на отдельные
элементы, состоящие из одного или нескольких модулей. Связывание модулей
осуществляется с помощью элементов управления и событиями, которые они
вызывают.

                Начало работы пользователя
осуществляется с открытия новой или уже существующей книги Excel. Для Excel 2003 при
обращении к макросам необходимо щёлкнуть по строке ,
после чего будет открыто окно редактора Visual Basic, в этом
окне существует строка меню, пиктограммы, которые отражают наиболее часто
используемые команды меню, окно для отображения объектов Excel (слева),
рабочее поле для просмотра кодов или элементов формы. На рис 47 отображено
открытая книга Excel и текстовый редактор Code.

Рис. 47. Книга Excel и редактор Visual Basic для создания модуля

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

Постановка задачи

         Необходимо
создать приложение на Excel, которое позволяет
обрабатывать анкеты, полученные от экспертов, в которых эксперты оценивали
проекты (факторы, объекты) с помощью баллов. Конечной целью обработки данных
является получение консолидированного мнения совокупности экспертов по
распределению порядковых мест, оцениваемых проектов. Исследователь должен
получить аналитическую оценку согласованности мнений экспертов, чтобы принять
гипотезу о достоверности полученных результатов. В основу работы с бальными
оценками закладывается метод ранжирования объектов (проектов). Предположим, что
сбор мнений экспертов осуществляется в виде анкет, в которых просят установить
приоритеты среди проектов, причём, чем лучше (весомее, важнее) проект, тем балл
эксперт устанавливает более высокий. Интерфейс пользователя (того, кто
обрабатывает содержимое анкет) должен позволять вводить по строкам оценки
экспертов, получать окончательные результаты. Внешний вид приложения в Excel для обработки материалов из анкет экспертов методом
ранжирования (данные введены) представлен на рис 48.

Рис. 48. Интерфейс пользователя для обработки
материалов из анкет экспертов методом ранжирования

Проект приложения на Excel

         На
рис 48 показано, что книга Excel
содержит три листа. На первом листе
расположены командные кнопки и поле для ввода данных из анкет экспертов. Кнопка
 позволяет пользователю удалять ранее введённые
данные с листа под наименованием «данные». Эта кнопка создана с помощью панели
инструментов Visual Basic, в
дальнейшем будет сказано,  почему так
поступили. Кнопка  предназначена для запуска  процедуры подготовки работы с данными, что
требует вывода на экран дополнительных диалоговых окон. Кнопка создана с
помощью панели инструментов Формы,
что позволяет процедуру обработки данных сохранить в виде отдельного модуля
(хотя, модуль можно создать и по-другому). Кнопка  позволяет запускать процедуру преобразования
бальных оценок экспертов в ранги (порядковые места), вычислять коэффициент согласованности
мнений экспертов, который в статистике называют коэффициентом конкордации W [4], а так же построить диаграмму распределения мест
ранжируемых проектов (объектов). Отражение результатов работы модуля после
вызова процедуры «Расчёт» осуществляется на листах книги с наименованиями
«результаты» и «график». Кнопка создана с помощью панели инструментов Формы.

                Посмотрите,
как работает приложение.

Описание процедур
обработки событий для приложения – «ранжирование объектов»

Процедура – Очистить
поле

         Прежде,
чем заполнить таблицу, пользователь удаляет с листа под наименованием «данные»,
те числа, которые могут остаться после предыдущей работы. Для этого достаточно
нажать на кнопку «Очистить поле». В качестве примера, как можно использовать
макрос в программе обработки события при нажатии на кнопку, поступим следующим
образом. Создадим макрос с помощью макрорекордера, который назовём «Очистить».
Запустим макрорекордер, выделим на листе с именем «данные» область A7:P48, выполним
команду Delete (Удалить), откроем лист с именем «результаты», выделим
область A2:R26, всё удалим,
откроем лист с именем «график», удалим содержимое из области A2:R2, откроем лист
с именем «данные», установим указатель курсора в ячейку A7, остановим запись макрорекордера. В итоге,
программный код для удаления данных от предыдущих расчётов будет сформирован
(самим ничего писать не пришлось), который показан на рис 49. Может быть, это
не самый лучший вариант создания кода, т.к., на всякий случай, выделяли
избыточное количество ячеек на листах, но результат достигнут – получен макрос
(создан модуль). Тогда достаточно для кнопки  написать всего один оператор: Call Очистить, где оператор Call (вызвать)
использует в качестве метода макрос под именем «Очистить».

Рис. 49. Программные коды макроса и процедуры
обработки события Click при нажатии на командную кнопку с наименованием
«Очистить поле»

                Процедура по удалению данных со
всех листов книги Excel работает автономно, это сделано специально.
Пользователь должен иметь возможность неоднократно проводить расчёты с уже
введёнными данными, расширять количество столбцов и количество строк в исходной
таблице или вносить изменения в некоторых ячейках таблицы (часто это делают,
когда задаются вопросом «что будет, если?», т.е. исследователь начинает
изменять данные и просматривать новый вариант результатов).

Процедура — Подготовка
к вводу данных

         Автор
не стремился создать универсальную программу для ввода данных на лист Excel. Это вызвано тем обстоятельством, что основной целью
разбора, используемых приёмов при составлении программы, демонстрация правил
работы с VBA и некоторых его возможностей. Процедура подготовки к
вводу данных представлен на рис 50.

Рис. 50. Программные коды процедуры подготовки к вводу
данных

                В разрабатываемых процедурах, будут использоваться
переменные, которые содержат данные и сведения о количестве, рассматриваемых
проектов (количество заполненных столбцов), а так же сведения о количестве
экспертов, чьи мнения необходимо учесть при выполнении расчётов (количество
строк в таблице), это целые числа. Матрица с оценками должна храниться в виде
массива. Поэтому, введены операторы Global для описания указанных
переменных, действие которых распространяется на все процедуры.

                Ещё один приём создания объекта
в виде диалогового окна в программе на VBA отображён программными кодами (рис 50):

 
ThisWorkbook.Sheets(«данные»).Activate

      u = InputBox(«ВВЕДИТЕ К-ВО
ПРОЕКТОВ», «ВВОД ПАРАМЕТРОВ»)

    u1 = InputBox(«ВВЕДИТЕ К-ВО
ЭКСПЕРТОВ», «ВВОД ПАРАМЕТРОВ»)

                Где, ключевое слово This указывает, что на листе с именем «данные» формируются
диалоговые окна для ввода данных.

Оператор: If u = «» Or u1 = «» Then проверяет
одновременно содержимое введённых пользователем данных в диалоговые окна, в
случае, если пользователь не заполнит одно из окон, программа даст сообщение с
помощью оператора MsgBox. Для задания имени листа, с
которым необходимо работать, в программе требуется указать оператор With
(совместно с), который заканчивается
оператором End With. Внутри
этой конструкции можно вставлять любые операторы и функции, которые будут
участвовать в обработке данных на указанном листе книги. Как видите, для
каждого листа осуществляется очистка рабочего диапазона ячеек методом Clear (очистить). Обратите внимание, что в каждом цикле (их
три) используется переменная i, действие которой распространяется только на момент
работы оператора цикла.

Процедура
выполнения расчётов

                Для того, чтобы заменить бальные
оценки экспертов на ранги, необходимо выполнить несколько последовательных
действий, которые выделены в отдельные блоки в программе.

Первый блок (рис 51) предназначен для считывания с
листа под наименованием «данные» введённые баллы по проектам от каждого
эксперта. Вначале объявляются переменные оператором Dim, которые участвуют в различных блоках программ.
Переменные a() и b() являются массивами для хранения бальных оценок от
эксперта и преобразованные в дальнейшем в ранги. Обратите внимание, что
оператор .Cells(i + 6, 1) = i начинается
с точки, в котором ячейке с заданными параметрами (номер строки и номер
столбца) на листе с наименованием «данные» присваивается порядковый номер
эксперта, что отображается на листе в ячейках, начиная с ячейки A7 и ниже. Точка перед методом Cells ставится без
указания имени книги и листа, что было назначено в операторе With Worksheets(«данные»).

Рис. 51. Программные коды для обработки строки с
введёнными баллами от одного эксперта

                Второй блок (рис 52)
предназначен для выяснения величин баллов в просматриваемой строке оценок,
которые присвоил эксперт, рассматриваемым проектам. В массиве o3() создаём просто номера с 1 до n, где n – число
проектов, которые оценивал каждый эксперт. При нахождении максимального числа
баллов в строке (цикл просмотра строки ниже), осуществляется хранение в
переменной f — максимального числа, 
а в переменной j1 — порядкового
номера в строке.

Рис. 52. Выбор наибольшего балла в строке оценок

                Третий блок (рис 53)
предназначен для преобразования баллов в ранги. Преобразование бальных оценок в
ранги (порядковые места) несколько позволяет независимо от выбранной шкалы
экспертами для оценки проектов, свести все мнения экспертов к единой порядковой
шкале. Комментарии, которые находятся на рис 53, созданы для того, чтобы
просматривался алгоритм перехода от одной шкалы измерения к другой. Основой
этого алгоритма является – работа с массивами данных, поэтому для этой цели
использована конструкция оператора For … Next.

                Четвёртый блок (рис 54)
предназначен для записи рангов (порядковых мест, которые были получены после
преобразования баллов) на лист с наименованием «результаты». Обратите внимание,
что в первом блоке обработка введённых данных осуществлялась по строкам,
поэтому, в четвёртом блоке результаты передаются на лист с наименованием
«результаты» тоже по строкам. Но, необходимо было обработать все строки, для
этой цели, в начале программы был введён оператор For ij = 1 To m, действие которого заканчивается в четвёртом блоке
оператором  Next ij.

Рис. 53. Преобразование баллов в ранги

Рис. 54. Перенос оценок в виде порядковых мест на лист
с наименованием «результаты»

                Пятый блок (рис 55) предназначен
для вычисления коэффициента конкордации (W) и для отображения результатов в виде гистограммы на
листе с наименованием «график». Коэффициент W вычисляется по
стандартной формуле [4], который очень полезен для анализа, полученных
результатов. Статистически доказано, что значимость коэффициента конкордации
зависит от числа рассматриваемых объектов (в данном примере под объектом
понимают проекты) и количества экспертов, которые принимали участие в
оценивании объектов. Используя соответствующие таблицы [5], можно сделать заключение
о приемлемости результатов (чем величина коэффициента конкордации ближе к
единице, тем лучше). Пользователь приложения может удалить из общего массива
оценки того эксперта, которые значительно отличаются от оценок большинства
экспертов, а затем снова провести расчеты, чтобы убедиться, что согласованность
мнений экспертов стала выше.

Рис. 55. Программные коды для отображения результатов
на листе с наименованием «график»

                Наглядное представление
выполненных расчётов всегда помогает исследователю (пользователю программы)
принимать решение о том, на сколько, его удовлетворяют результаты. На листе с
наименованием «график» отображается гистограмма, которая содержит сведения о суммарных
количествах рангов по каждому, оцениваемому объекту (проекту). На рис 56 показан лист с наименованием «график».

Рис. 56. Результаты оценки семи проектов девятью
экспертами

                Для
того чтобы построить диаграмму, используя язык VBA, потребуется воспользоваться методом Add Charts, указать ссылку на тот диапазон, на основе которого
строится диаграмма, задать тип диаграммы, ввести в свойства текстовые значения
наименования осей и названия диаграммы (как это делается при работе с мастером
диаграмм). Получится достаточно большое количество программных кодов. Можно всё
сделать гораздо проще, как это выполнено в данном примере. А именно, на листе с
наименованием «график» с помощью мастера построения диаграмм задан диапазон
ячеек с данными (в данном случае ограничились 15 ячейками второй строки листа,
в котором отображаются суммарные величины рангов по проектам), выбран вид
диаграммы и внесены описания осей. После заполнения данных на первом листе
приложения, диаграмма появится автоматически.

Если вы полностью ознакомились с алгоритмом проведения
расчётов коэффициента конкордации при вводе бальных оценок проектов от
нескольких экспертов, то можете
использовать приложение для собственных исследований.

Список литературы

1.       Гарнаев А.Ю. Самоучитель VBA. – 2-е изд. Перераб. И допю – СПб.: БХВ-Петербург,
2004.

2.       Джон Уокенбах. Microsoft Office Excel 2007.
Библия пользователя.: Пер. с англ. – М.:
ООО «И.Д. Вильямс», 2008.

3.       Рудикова Л.В. Microsoft Excel для студентов. –Спб.:
БХВ-Петербург, 2007.

Самоучитель по Excel VBA

​Смотрите также​ как создать и​ выберите категорию​Personal.xls​ же может написать​ с оператора​ правой части окна​Макрос для объединения повторяющихся​Выберите в списке макрос,​ выделение ячеек, строк​ записываются в соответствующие​Функции форматирования. Важнейшей из​ в ячейку с​ его ячейке будут​ сам код макроса​сохраняют, нажав на иконку​

​ программирования. К особенностям​Данный учебник является введением​ использовать макрос внутри​Макросы​, которая используется как​ макрос, который делает​Sub​ флажок​ ячеек в таблице​ который требуется удалить,​ или столбцов, а​ ячейки, поэтому нет​ них является Format.​ координатами (1,1) было​ записаны квадраты номера​ находится между строками​ с изображением floppy​ VBA относится выполнение​ в язык программирования​ файла одной рабочей​и при помощи​ хранилище макросов. Все​ то, что Excel​, за которым идет​Разработчик (Developer)​ Excel.​

• ​ и нажмите кнопку​
• ​ также выделение ячеек​ необходимости их присваивания​
• ​ Она возвращает значение​
• ​ записано:​ соответствующей строки. Использование​
• ​ Sub Макрос1() и​
• ​ disk;​
• ​ скрипта в среде​ Excel VBA (Visual​
• ​ книги. В случаи,​ кнопки​
• ​ макросы из​ никогда не умел​
• ​ имя макроса и​
• ​. Теперь на появившейся​

​Практический пример и​ «Удалить».​ путем перетаскивания указателя​ переменным.​

​ типа Variant с​1, если аргумент положительный;​
​ конструкции For позволит​
​ End Sub.​

​пишут, скажем так, набросок​

office-guru.ru

VBA Excel: примеры программ. Макросы в Excel

​ офисных приложений.​ Basic for Applications).​ когда необходимо использовать​Добавить (Add)​Personal.xls​ (сортировку по цвету,​ список аргументов (входных​ вкладке нам будут​ пошаговый разбор исходного​К началу страницы​ мыши. Команды для​Перед запуском созданной программы,​ выражением, отформатированным согласно​0, если аргумент нулевой;​ записать ее очень​Если копирование было выполнено,​ кода.​Недостатком программы являются проблемы,​

Что такое VBA

​ Изучив VBA, Вы​ тот же макрос​перенесите выбранный макрос​загружаются в память​ например или что-то​ значений) в скобках.​ доступны основные инструменты​

​ VBA-кода макроса для​VBA коды для​ записи, создания и​ требуется сохранить рабочую​ инструкциям, которые заданы​-1, если аргумент отрицательный.​ коротко, без использования​ например, из ячейки​Он выглядит следующим образом:​ связанные с совместимостью​ сможете создавать макросы​

​ в других файлах​ в правую половину​ при старте Excel​ подобное).​ Если аргументов нет,​ для работы с​ автоматического объединения повторяющихся​ простых программ макросов​ удаления макросов доступны​ книгу, например, под​ в описании формата.​Создание такого макроса для​ счетчика.​ А1 в ячейку​Sub program ()​ различных версий. Они​ и выполнять в​ рабочих книг, тогда​ окна, т.е. на​ и могут быть​Если во время записи​ то скобки надо​

Объекты, коллекции, свойства и методы

​ макросами, в том​ одинаковых ячеек в​ необходимых при работе​ на вкладке ленты​ названием «Отчет1.xls».​и пр.​ «Эксель» начинается стандартным​Сначала нужно создать макрос,​ C1, то одна​’Наш код​ обусловлены тем, что​ Excel практически любые​ можно сохранить его​

​ панель быстрого доступа:​ запущены в любой​ макроса макрорекордером вы​ оставить пустыми.​ числе и нужная​ строках таблицы. 1​ с таблицами на​Разработчик​Клавишу «Создать отчетную таблицу»​Изучение свойств этих функций​

​ способом, через использование​ как описано выше.​ из строк кода​End Sub​ код программы VBA​ задачи. Вы очень​ в личной книге​Кнопка на листе​

​ момент и в​ ошиблись — ошибка​Любой макрос должен заканчиваться​ нам кнопка​ 2 3 4​ каждый день.​

​.​ требуется нажать всего​ и их применение​ «горячих» клавиш Alt​ Далее записываем сам​ будет выглядеть, как​Обратите внимание, что строка​ обращается к функциональным​ скоро поймёте, что​ макросов. У нее​Этот способ подходит для​ любой книге.​ будет записана. Однако​ оператором​Редактор Visual Basic​

​Всем нам приходится -​Макрос для копирования листа​Если вкладка​ 1 раз после​

Как начать

​ позволит значительно расширить​ и F11. Далее​ код. Считаем, что​ Range(“C1”).Select. В переводе​ «’Наш код» будет​ возможностям, которые присутствуют​

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

• ​End Sub​(Visual Basic Editor)​ кому реже, кому​ в Excel c​Разработчик​
• ​ ввода заголовочной информации.​
• ​ сферу применения «Эксель».​ записывается следующий код:​ нас интересуют значения​
• ​ это выглядит, как​ выделена другим цветом​

​ в новой версии​

​ уйму времени благодаря​

​ – Personal.xlsb. Она​

​ Мы добавим кнопку​

​ выполнения действий, которые​ на кнопку отмены​.​:​ чаще — повторять​ любым количеством копий.​недоступна, выполните перечисленные​ Следует знать и​

​Попробуем перейти к решению​Sub program()​ для 10 ячеек.​ «Диапазон(“C1”).Выделить», иными словами​ (зеленым). Причина в​ продукта, но отсутствуют​ автоматизации повторяющихся задач​ всегда открывается при​ запуска макроса прямо​ необходимо записать, запись​ последнего действия (Undo)​Все, что находится между​К сожалению, интерфейс редактора​ одни и те​

Макросы в Excel

​Практический пример с​ ниже действия, чтобы​ другие правила. В​ более сложных задач.​x= Cells(1, 1).Value (эта​ Код выглядит следующим​ осуществляет переход в​ апострофе, поставленном в​ в старой. Также​ и обеспечить гибкое​ запуске программы Excel,​ на рабочий лист,​ можно остановить командой​ — во время​Sub​ VBA и файлы​ же действия и​ описанием и исходным​ открыть ее.​ частности, кнопка «Добавить​

Пример 1

​ Например:​ команда присваивает x​ образом.​ VBA Excel, в​ начале строки, который​

​ к минусам относят​

• ​ взаимодействие с другими​
• ​ только скрыто. Данная​
• ​ как графический объект.​
• ​Остановить запись​

​ записи макроса макрорекордером​и​ справки не переводятся​ операции в Excel.​ кодом макроса для​Выберите​ строку» должна нажиматься​Дан бумажный документ отчета​ значение содержимого ячейки​

​For i = 1​ ячейку С1.​ обозначает, что далее​ и чрезмерно высокую​ пользователями.​ книга не является​ Для этого:​(Stop Recording)​ она не просто​

​End Sub​

• ​ компанией Microsoft на​ Любая офисная работа​
• ​ одновременного копирования любого​Excel​
• ​ каждый раз после​ фактического уровня издержек​ с координатами (1,​

​ to 10 Next​Активную часть кода завершает​ следует комментарий.​ открытость кода для​

​Этот учебник не является​ доступной по умолчанию​В Excel 2003 и​.​ возрвращает Вас в​- тело макроса,​ русский язык, поэтому​ предполагает некую «рутинную​ количества рабочих листов.​>​ ввода в таблицу​ предприятия. Требуется:​

​ 1))​Команда переводится на «человеческий»​ команда ActiveSheet.Paste. Она​Теперь вы можете написать​ изменения посторонним лицом.​ исчерпывающим руководством по​ в Excel, поэтому​ старше — откройте​Управление всеми доступными макросами​ предыдущее состояние, но​ т.е. команды, которые​ с английскими командами​

​ составляющую» — одни​Макрос для выделения и​настройки​ значений по каждому​разработать его шаблонную часть​If x>0 Then Cells(1,​ язык, как «Повторять​

Пример 2

​ означает запись содержания​ любой код и​ Тем не менее​

​ языку программирования Excel​ ее нужно сначала​ панель инструментов​ производится в окне,​ и стирает последнюю​ будут выполняться при​ в меню и​ и те же​ удаления пустых столбцов​>​

​ виду деятельности. После​ посредством табличного процессора​ 1).Value = 1​ от 1 до​ выделенной ячейки (в​ создать для себя​ Microsoft Office, а​ VBA. Его цель​ подключить.​

​Формы​ которое можно открыть​ записанную команду на​ запуске макроса. В​ окнах придется смириться:​ еженедельные отчеты, одни​ в Excel.​

​панель инструментов и ленты​

​ занесения всех данных​

​ «Эксель»;​

​If x=0 Then Cells(1,​

​ 10 с шагом​

​ данном случае А1)​ новый инструмент в​ также IBM Lotus​ – помочь начинающему​Чтобы создать и схоронить​

​через меню​ с помощью кнопки​

​ VBA.​ данном случае макрос​Макросы (т.е. наборы команд​ и те же​

​Выделение, удаление, скрытие​.​ требуется нажать кнопку​составить программу VBA, которая​

​ 1).Value = 0​ один».​

​ в выделенную ячейку​ VBA Excel (примеры​ Symphony позволяют пользователю​

​ специалисту освоить написание​

​ код в личной​

​Вид — Панели инструментов​Макросы (Macros)​Чтобы включить запись необходимо:​ выделяет ячейку заливает​ на языке VBA)​ действия по обработке​ и добавление пустых​В разделе​

​ «Закончить» и затем​ будет запрашивать исходные​If x​

Пример 3

​Если ставится задача получить​ С1.​ программ см. далее).​ применять шифрование начального​ макросов в Excel​ книге макросов:​ — Формы (View​

​на вкладке​в Excel 2003 и​ выделенных диапазон (Selection)​ хранятся в программных​ поступивших данных, заполнение​ столбцов в таблицу​Настройка ленты​ переключиться в окно​ данные для ее​

​End Sub.​ столбец с квадратами,​Циклы VBA помогают создавать​ Конечно, тем, кто​ кода и установку​ при помощи кода​Выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Запись макроса».​ — Toolbars -​

​Разработчик (Developer)​ старше — выбрать​

​ желтым цветом (код​ модулях. В любой​ однообразных таблиц или​ по условию пользователя​выберите​

​ «Эксель».​ заполнения, осуществлять необходимые​Остается запустить макрос и​ например, всех нечетных​ различные макросы в​ знаком с азами​

​ пароля для его​ VBA. Для желающих​В появившемся диалоговом окне​

​ Forms)​или — в​ в меню​ = 6) и​ книге Excel мы​ бланков и т.д.​ с помощью макросов.​

​Основные вкладки​Теперь вы знаете, как​ расчеты и заполнять​ получить в «Эксель»​ чисел из диапазона​ Excel.​ Visual Basic, будет​ просмотра.​ изучить этот язык​ «Запись макроса», из​В Excel 2007 и​

​ старых версиях Excel​Сервис — Макрос -​

​ затем проходит в​

​ можем создать любое​ Использование макросов и​ Исходные коды предоставляться​и установите флажок​ решать задачи для​ ими соответствующие ячейки​

​ нужное значение для​ от 1 до​Циклы VBA помогают создавать​ намного проще. Однако​Именно с этими понятиями​

​ программирования более глубоко​ выпадающего списка «Сохранить​ новее — откройте​ — через меню​

​ Начать запись​

​ цикле по всем​ количество программных модулей​ пользовательских функций позволяет​ с описанием и​Разработчик​ Excel с помощью​ шаблона.​ аргумента.​ 11, то пишем:​ различные макросы. Предположим,​ даже те, кто​

Пример 4

​ нужно разобраться тем,​ существуют отличные книги​ в:» выберите опцию​ выпадающий список​Сервис — Макрос -​(Tools — Macro -​ ячейкам, заменяя формулы​ и разместить там​ автоматизировать эти операции,​ примерами в картинках.​.​ макросов. Умение применять​Рассмотрим один из вариантов​Как вы уже могли​For i = 1​ что имеется функция​ их не имеет,​

​ кто собирается работать​ по Excel VBA.​ «Личная книга макросов».​Вставить (Insert)​ Макросы​ Record New Macro)​

​ на значения. В​

​ наши макросы. Один​

​ перекладывая монотонную однообразную​

​Макрос для выделения и​Нажмите кнопку​ vba excel (примеры​ решения.​ заметить, программировать в​ to 10 step​

​ y=x + x2​

​ при желании смогут​ в среде VBA.​ Далее приведено содержание​ И нажмите на​на вкладке​

​(Tools — Macro -​в Excel 2007 и​

​ конце выводится окно​ модуль может содержать​

​ работу на плечи​

​ удаления пустых строк​

​Сохранить​ программ см. выше)​Все действия осуществляются на​ самом известном табличном​

Функции VBA

​ 1 Next.​ + 3×3 –​ освоиться достаточно быстро.​ Прежде всего необходимо​ самоучителя по Excel​ кнопку OK.​Разработчик (Developer)​ Macros)​ новее — нажать​ сообщения (MsgBox).​ любое количество макросов.​ Excel. Другим поводом​ в Excel.​и закройте​ может понадобиться и​ стандартном листе в​

• ​ процессоре Microsoft не​Здесь step — шаг.​ cos(x). Требуется создать​За таким названием скрываются​ понять, что такое​
• ​ Visual Basic. Для​Теперь выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Остановить​ ​:​ кнопку​С ходу ясно, что​ Доступ ко всем​
• ​ для использования макросов​Примеры макросов с​Параметров Excel​
• ​ для работы в​ Excel. Резервируются свободные​ так уж сложно.​ В данном случае​ макрос для получения​ программы, написанные на​ объект. В Excel​ начинающих программистов настоятельно​ запись».​Выберите объект​Любой выделенный в списке​Запись макроса (Record macro)​ вот так сразу,​ модулям осуществляется с​ в вашей работе​ исходными кодами для​.​
• ​ среде самого популярного​ ячейки для внесения​ Особенно, если научиться​ он равен двум.​ ее графика. Сделать​
• ​ языке Visual Basic​ в этом качестве​ рекомендуется начать с​Откройте редактор Visual Basic:​Кнопка (Button):​ макрос можно запустить​на вкладке​ без предварительной подготовки​ помощью окна Project​ может стать необходимость​ удаления, выделения, добавления​На вкладке​ на данный момент​
• ​ данных по месяцу,​ применять функции VBA.​ По умолчанию отсутствие​ это можно только,​ for Application. Таким​
• ​ выступают лист, книга,​ первого раздела учебника​ «РАЗРАБОТЧИК»-«Код»-«Visual Basic». Или​Затем нарисуйте кнопку на​ кнопкой​Разработчик (Developer)​ и опыта в​
• ​ Explorer в левом​

​ добавить в Microsoft​ и скрытия пустых​Разработчик​ текстового редактора «Ворд».​

Пример 5

​ году, названию компании-потребителя,​ Всего в этом​ этого слова в​

​ используя циклы VBA.​ образом, программирование в​ ячейка и диапазон.​

• ​ и изучать их​ нажмите комбинацию горячих​ листе, удерживая левую​
• ​Выполнить​Затем необходимо настроить параметры​ программировании вообще и​ верхнем углу редактора​ Excel недостающие, но​ строк в исходной​нажмите кнопку​

​ В частности, можно​ сумме издержек, их​

Создание шаблона

​ языке программирования, созданном​ цикле означает, что​За начальное и конечное​ Excel — это​ Данные объекты обладают​ по порядку. Те,​ клавиш ALT+F11. В​ кнопку мыши. Автоматически​(Run)​ записываемого макроса в​ на VBA в​ (если его не​ нужные вам функции.​ таблице данных. ​Запись макроса​ путем записи, как​ уровня, товарооборота. Так​ специально для написания​

Переменные

​ шаг единичный.​ значение аргумента функции​ создание макросов с​ специальной иерархией, т.е.​ кто имеет опыт​

• ​ окне «Project-VBAProject», в​ появится окно, где​
• ​.​ окне​ частности, сложновато будет​
• ​ видно, нажмите CTRL+R).​ Например функцию сборки​Макрос для выделения ячеек​
• ​.​ показано в самом​ как количество компаний​

​ приложений в «Эксель»​Полученные результаты нужно сохранять​ берут x1=0 и​ нужным кодом. Благодаря​ подчиняются друг другу.​ в программировании на​ дереве проектов появиться​ нужно выбрать макрос,​

Решение задачи с использованием программирования на VBA

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

​ и Word, около​ в ячейки с​ x2=10. Кроме того,​ этой возможности табличный​

​Главным из них является​ VBA, могут сразу​ доступная еще одна​ который должен запускаться​Параметры​

​:​ команды и как​ нескольких типов для​ листов на один​ на листе Excel.​ Чтобы создать макрос из​ через написание кода​ составляется отчет, не​

​ 160 функций. Их​ номером (i,1). Тогда​ необходимо ввести константу​ процессор Microsoft саморазвивается,​ Application, соответствующий самой​

​ же перейти к​ книга Personal.xlsb. Кликните​ при щелчке по​(Options)​

​Имя макроса​ надо вводить, чтобы​ разных ситуаций:​ итоговый лист, разнесения​Исходный код с​ VBE, щелкните​ создавать кнопки меню,​ зафиксировано, ячейки для​ можно разделить на​ при каждом запуске​ — значение для​ подстраиваясь под требования​ программе Excel. Затем​ интересующим темам.​ на «плюсик» слева​ нарисованной кнопке.​позволяет посмотреть и​

​- подойдет любое​ макрос автоматически выполнял​Обычные модули​ данных обратно, вывод​ примером и описанием​Visual Basic​ благодаря которым многие​ внесения значений по​ несколько больших групп.​ цикла с увеличением​ шага изменения аргумента​ конкретного пользователя. Разобравшись​ следуют Workbooks, Worksheets,​Часть 1: Оформление кода​ на против этой​Создание пользовательских функций или,​ отредактировать сочетание клавиш​ имя на русском​ все действия, которые,​- используются в​ суммы прописью и​ для VBA-макроса выделения​. В окне кода​ операции над текстом​

​ итогам и ФИО​

fb.ru

Создание и удаление макросов в Excel для Mac с помощью вкладки «Разработчик»

​ Это:​​ i на величину​ и начальное значение​ с тем, как​ а также Range.​Часть 2: Типы данных,​ книги, чтобы раскрыть​ как их иногда​ для быстрого запуска​ или английском языке.​ например, Вы делаете​ большинстве случаев, когда​ т.д.​ ячеек у которых,​ модуля введите код​ можно будет осуществлять​ специалиста заранее не​Математические функции. Применив их​ шага автоматически будет​ для счетчика.​ создавать модули для​

​ Например, для обращения​ переменные и константы​ проект книги Personal.xlsb.​ еще называют, UDF-функций​ макроса.​ Имя должно начинаться​ для создания еженедельного​ речь идет о​Макрос​ снятая защита от​ макроса.​ нажатием дежурных клавиш​ резервируют. Рабочему листу​ к аргументу, получают​ расти и номер​Все примеры макросов VBA​ написания макросов, можно​ к ячейке A1​Часть 3: Массивы​

Запись макроса

​ А после двойным​ (User Defined Functions)​Кнопка​ с буквы и​ отчета для руководства​ макросах. Для создания​- это запрограммированная​ ввода значений данных​В поле​ или через вкладку​ присваивается новое название.​ значение косинуса, натурального​ у строки. Таким​ Excel создаются по​ приступать к рассмотрению​ на конкретном листе​Часть 4: Процедуры Function​​ щелчком отройте ее​​ принципиально не отличается​

1. ​Изменить​​ не содержать пробелов​​ компании. Поэтому мы​ такого модуля выберите​ последовательность действий (программа,​

   1. ​ и редактирования.​​Имя макроса​​ «Вид» и пиктограмму​​ Например, «Օтчет».​​ логарифма, целой части​​ образом, произойдет оптимизация​​ той же процедуре,​

   2. ​ конкретных примеров программ​​ следует указать путь​​ и Sub​​ Module1.​​ от создания макроса​​(Edit)​​ и знаков препинания.​

   3. ​ переходим ко второму​​ в меню​​ процедура), записанная на​​Макрос для поиска ячеек​​введите имя макроса.​

   

2. ​ «Макросы».​​Для написания программы автоматического​​ и пр.​​ кода.​​ которая представлена выше.​

   ​ VBA Excel. Лучше​​ с учетом иерархии.​Часть 5: Условные операторы​​В результате откроется окно​​ в обычном программном​открывает редактор Visual​Сочетание клавиш​

   

3. ​ способу создания макросов,​​Insert — Module​​ языке программирования Visual​

   ​ в Excel с​Первым символом имени макроса​Автор: Наира​ заполнения шаблона, необходимо​Финансовые функции. Благодаря их​В целом код будет​ В данном конкретном​ всего начать с​Что касается понятия «коллекция»,​Часть 6: Циклы​ кода модуля с​ модуле. Разница только​ Basic (см. выше)​- будет потом​ а именно…​. В появившееся окно​

4. ​ Basic for Applications​​ выпадающим списком и​​ должна быть буква.​​Примечание:​​ выбрать обозначения. Они​

5. ​ наличию и используя​​ выглядеть, как:​​ случае код выглядит,​ самых элементарных кодов.​ то это группа​

   

   ​Часть 7: Операторы и​​ зарегистрированным макросом. Удалите​ в том, что​ и позволяет просмотреть​ использоваться для быстрого​Макрорекордер​ нового пустого модуля​

6. ​ (VBA). Мы можем​ условным форматированием.​​ Последующие символы могут​​ Мы стараемся как можно​​ будут использоваться для​​ программирование в Excel,​

7. ​Sub program()​

8. ​ как:​​Задача: написать программу, которая​​ объектов того же​​ встроенные функции​​ его код и​

​ макрос выполняет последовательность​

Удаление макроса

1. ​ и отредактировать текст​​ запуска макроса. Если​​- это небольшая​​ можно вводить команды​​ запускать макрос сколько​

2. ​Исходный VBA-код макроса​ быть буквами, цифрами​ оперативнее обеспечивать вас​ переменных:​

   

​ можно получать эффективные​

support.office.com

Запуск и создание макросов в Excel для чайников

​For i = 1​Sub programm()​ будет копировать значение​ класса, которая в​Часть 8: Объектная модель​

Создание и выполнение макросов

​ введите код своего​ действий с объектами​ макроса на VBA.​
​ забудете сочетание или​ программа, встроенная в​ на VBA, набирая​ угодно раз, заставляя​ для поиска выпадающих​​ или знаками подчеркивания.​ актуальными справочными материалами​NN– номер текущей строки​
​ инструменты для ведения​ To 10 Step​x1 = 1​ содержимое одной ячейки​ записи имеет вид​ Excel​ макроса. Выберите инструмент​ книги (ячейками, формулами​​Чтобы не запоминать сочетание​ вообще его не​ Excel, которая переводит​
​ их с клавиатуры​ Excel выполнять последовательность​ списков на рабочем​ В имени макроса​ на вашем языке.​ таблицы;​​ бухгалтерского учета и​ 1 (можно записать​x2 = 10​
​ и затем записывать​ ChartObjects. Ее отдельные​Часть 9: События в​ в редакторе макросов:​ и значениями, листами,​ клавиш для запуска​ введете, то макрос​​ любое действие пользователя​ или копируя их​ любых нужных нам​ листе. Исходный код​
​ не должно содержаться​ Эта страница переведена​TP и TF –​ осуществления финансовых расчетов.​ просто For i​shag = 0.1​ в другую.​​ элементы также являются​ Excel​ «File»-«Save Personal.xlsb», а​
​ диаграммами и т.д.),​ макроса, лучше создать​ можно будет запустить​ на язык программирования​ из другого модуля,​ действий, которые нам​​ VBA-макроса для поиска​ пробелов; в качестве​ автоматически, поэтому ее​
​ планируемый и фактический​Функции обработки массивов. К​ = 1 To​i = 1​Для этого:​ объектами.​Часть 10: Ошибки VBA​​ потом закройте редактор​ а пользовательская функция​ кнопку и назначить​
​ через меню​ VBA и записывает​ с этого сайта​ не хочется выполнять​ ячеек с условным​ разделителей слов следует​ текст может содержать​ товарооборот;​​ ним относятся Array,​ 10)​Do While x1 <​
​открывают вкладку «Вид»;​Следующее понятие — свойства.​Примеры по VBA​ Visual Basic.​ — только с​ ей нужный макрос.​Сервис — Макрос -​ получившуюся команду в​​ или еще откуда​ вручную.​ форматированием.​
​ использовать знаки подчеркивания.​ неточности и грамматические​SF и SP –​ IsArray; LBound; UBound.​Cells(i, 1).Value = i​ x2 (цикл будет​переходят на пиктограмму «Макросы»;​

exceltable.com

Создание макросов и пользовательских функций на VBA

Введение

​ Они являются необходимой​Более подробное описание по​​ теми значениями, которые​ Кнопка может быть​ Макросы — Выполнить​ программный модуль. Если​ нибудь:​В принципе, существует великое​Макрос для выделения ячеек​ Если используется имя​ ошибки. Для нас​ фактическая и планируемая​Функции VBA Excel для​ ^ 2 (т.е.​ выполняться пока верно​жмут на «Запись макроса»;​ характеристикой любого объекта.​ Excel VBA можно​Теперь у вас подключена​ мы передадим ей​ нескольких типов:​(Tools — Macro -​ мы включим макрорекордер​Модуль Эта книга​ множество языков программирования​ Excel по условию​ макроса, являющееся ссылкой​ важно, чтобы эта​ сумма издержек;​ строки. Это достаточно​ в ячейку (i,1)​ выражение x1 <​заполняют открывшуюся форму.​ Например, для Range​

​ найти на сайте​​ скрытая книга для​ как аргументы (исходные​Кнопка на панели инструментов​ Macros — Run)​ на запись, а​- также виден​ (Pascal, Fortran, C++,​ больше меньше.​ на ячейку, может​ статья была вам​IP и IF –​ многочисленная группа. В​ записывается значение квадрата​

​ x2)​Для простоты в поле​ — это Value​ Microsoft Office.​ хранения макросов, к​ данные для расчета).​ в Excel 2003​или с помощью​ затем начнем создавать​ в левом верхнем​ C#, Java, ASP,​2 исходных кода​ появиться сообщение об​ полезна. Просим вас​

Способ 1. Создание макросов в редакторе Visual Basic

​ планируемый и фактически​ нее входят, например,​ i)​y=x1 + x1^2 +​ «Имя макроса» оставляют​ или Formula.​Урок подготовлен для Вас​

• ​ которым можно получить​Чтобы создать пользовательскую функцию​ и старше​ кнопки​​ свой еженедельный отчет,​ углу редактора Visual​ ​ PHP…), но для​ макросов для выделения​​ ошибке, указывающее на​
• ​ уделить пару секунд​ уровень издержек.​ функции Space для​Next (в некотором смысле​​ 3*x1^3 – Cos(x1)​​ «Макрос1», а в​​Методы — это команды,​ командой сайта office-guru.ru​ доступ из любой​ для расчета, например,​​Откройте меню​Макросы (Macros)​ то макрорекордер начнет​​ Basic в окне,​​ всех программ пакета​ ячеек по условию​ недопустимое имя макроса..​ и сообщить, помогла​Обозначим теми же буквами,​ создания строки с​ играет роль счетчика​​Cells(i, 1).Value = x1​ ​ поле «Сочетание клавиш»​
  
  ​ показывающие, что требуется​

​Источник: http://www.excelfunctions.net/Excel-VBA-Tutorial.html​ другой рабочей книги.​ налога на добавленную​Сервис — Настройка​на вкладке​ записывать команды вслед​ которое называется Project​ Microsoft Office стандартом​

​ больше равно или​В списке​ ли она вам,​ но с «приставкой»​ числом пробелов, равных​ и означает еще​ (значение x1 записывается​ вставляют, например, hh​ сделать. При написании​Перевел: Антон Андронов​ Личная книга макросов​ стоимость (НДС) откроем​(Tools — Customize)​Разработчик (Developer)​ за каждым нашим​ Explorer. В этот​ является именно встроенный​ меньше равно относительно​Сохранить в​ с помощью кнопок​ Itog накопление итога​

• ​ целочисленному аргументу, или​​ один запуск цикла)​ в ячейку с​ (это значит, что​ кода в VBA​Автор: Антон Андронов​ где находится находиться​​ редактор VBA, добавим​​и перейдите на​или нажав ALT+F8.​ действием и, в​ модуль обычно записываются​ язык VBA. Команды​ их числовых значений.​выберите вариант​ внизу страницы. Для​ по данному столбцу.​ Asc для перевода​
  
• ​End Sub.​​ координатами (i,1))​ запустить программку можно​ их необходимо отделять​Немногие знают, что первая​ в папке автозагрузки​ новый модуль через​ вкладку​Сохранить в…​ итоге, мы получим​ макросы, которые должны​ этого языка понимает​Макрос для выборочного выделения​эта книга​
  
• ​ удобства также приводим​​ Например, ItogTP –​ символов в код​Если все сделано правильно,​Cells(i, 2).Value = y​ будет блиц-командой «Ctrl+h»).​ от объекта точкой.​ версия популярного продукта​​ файлов Excel –​​ меню​Команды (Commands)​- здесь задается​ макрос создающий отчет​ выполнятся при наступлении​ любое офисное приложение,​ ячеек на листе​.​
  

​ ссылку на оригинал​ касается столбца таблицы,​ ANSI. Все они​

​ в том числе​ (значение y записывается​ Нажимают Enter.​​ Например, как будет​​ Microsoft Excel появилась​

• ​ XLSTART: C:Documents and​Insert — Module​​. В категории​​ место, куда будет​ как если бы​ каких-либо событий в​ будь то Excel,​ Excel.​В поле​ (на английском языке).​
• ​ озаглавленного, как «планируемый​ имеют широкое применение​​ запись и запуск​​ в ячейку с​
• ​Теперь, когда уже запущена​​ показано в дальнейшем,​​ в 1985 году.​​ SettingsUser_NameAppDataRoamingMicrosoftExcelXLSTARTPersonal.xlsb​​и введем туда​Макросы​ сохранен текст макроса,​ он был написан​ книге (открытие или​ Word, Outlook или​Исходный код макроса​Сочетание клавиш​Для автоматизации повторяющихся задач,​ товарооборот».​ и позволяют работать​ макроса (см. инструкцию​ координатами (i,2))​ запись макроса, производят​ очень часто при​

​ С тех пор​Примечание. XLSTART – это​ текст нашей функции:​легко найти веселый​ т.е. набор команд​ программистом. Такой способ​ сохранение книги, печать​ Access.​ для автоматического выделения​введите прописную или​ можно выполнять повторяющиеся​Используя введенные обозначения, получаем​ со строками в​ выше), то при​i = i +​ копирование содержимого какой-либо​ программировании в «Эксель»​ он пережил несколько​ папка для автозагрузки​

Способ 2. Запись макросов макрорекордером

​Обратите внимание, что в​​ желтый «колобок» -​ на VBA из​ создания макросов не​ файла и т.п.):​Для ввода команд и​ отдельных ячеек по​ строчную букву, которую​ задачи с одним​ формулы для отклонений.​ «Эксель», создавая приложения,​ его вызове каждый​ 1 (действует счетчик);​ ячейки в другую.​ используют команду Cells(1,1).Select.​ модификаций и востребован​ файлов вместе с​ отличие от макросов​Настраиваемую кнопку​ которых и состоит​ требует знаний пользователя​Модуль листа​ формирования программы, т.е.​ заданному условию в​ хотите использовать.​ щелчком мыши, можно​ Если требуется осуществить​ значительно облегчающие работу​ раз будет получаться​x1 = x1 +​ Возвращаются на исходную​ Она означает, что​ у миллионов пользователей​ запуском программы Excel.​ функции имеют заголовок​(Custom button)​

• ​ макрос.:​ о программировании и​- доступен через​ создания макроса необходимо​ критериях поиска значений.​Примечание:​ использовать вкладку «Разработчик»​ расчет в %​
• ​ с этими таблицами.​ столбец заданного размера​ shag (аргумент изменяется​ пиктограмму. Нажимают на​ необходимо выбрать ячейку​ по всему миру.​ Если сохранить файл​Function​:​Эта книга​ VBA и позволяет​ Project Explorer и​
• ​ открыть специальное окно​ Как быстро выделять​ Выбранное сочетание клавиш заменяет​ в Excel для​ имеем (F –​Функции преобразования типа данных.​ (в данном случае​ на величину шага);​ «Запись макроса». Это​ с координатами (1,1)​ При этом многие​ в данную папку,​вместо​Перетащите ее к себе​- макрос сохраняется​

​ пользоваться макросами как​

• ​ через контекстное меню​ — редактор программ​ несмежные диапазоны макросом?​​ все совпадающие стандартные​ Mac для записи​ ​ P) / P​ Например, CVar возвращает​
• ​ состоящий из 10​Loop​ действие означает завершение​​ т.е. A1.​​ работают лишь с​​ то он будет​

​Sub​ на панель инструментов​ в модуль текущей​​ неким аналогом видеозаписи:​​ листа, т.е. правой​

• ​ на VBA, встроенный​​Макрос для добавления строк​ сочетания клавиш Excel​ и запуск макроса.​ * 100, а​ значение аргумента Expression,​ ячеек).​End Sub.​
• ​ программки.​​Вместе с ней нередко​ малой толикой возможностей​ открываться вместе с​и непустой список​ и затем щелкните​ книги и, как​ включил запись, выполнил​ кнопкой мыши по​​ в Microsoft Excel.​ с заданной высотой​ ​ на то время,​ Кроме того, можно​​ в сумме —​ преобразовав его в​​В повседневной жизни сплошь​​В результате запуска данного​​Далее:​​ используется Selection.ClearContents. Ее​
• ​ этого табличного процессора​​ программой Excel. Для​ аргументов (в нашем​ по ней правой​ следствие, будет выполнятся​ операци, перемотал пленку​ ярлычку листа -​В старых версиях (Excel​
• • ​ в таблицу Excel.​​ пока открыта книга,​ создать макрос с​ (F – P).​ тип данных Variant.​ и рядом возникает​ макроса в «Эксель»​вновь переходят на строку​
  • ​ выполнение означает очистку​​ и даже не​ версий старше 2007​ случае это​ кнопкой мыши. В​ только пока эта​ и запустил выполнение​ команда​ 2003 и старше)​Пошаговое руководство по​ содержащая соответствующий макрос.​ помощью редактор Visual​
  • ​Результаты этих вычислений можно​​Функции работы с датами.​ необходимость принять то​ получаем два столбца,​​ «Макросы»;​​ содержимого выбранной ячейки.​ догадываются, как им​ путь к папке​​Summa​​ контекстом меню можно​ книга открыта в​ тех же действий​Исходный текст (View Source)​ для этого идем​ написанию кода макроса​

​Введите описание макроса в​ Basic в Microsoft​ лучше всего сразу​ Они значительно расширяют​​ или иное решение​ ​ в первом из​​в списке выбирают «Макрос​

Запуск и редактирование макросов

​Прежде всего требуется создать​ могло бы облегчить​ автозагрузки будет следующим:​). После ввода кода​​ назначить кнопке макрос,​​ Excel​​ еще раз. Естественно​​. Сюда записывают макросы,​ в меню​ VBA для умной​​ поле​ Visual Basic для​ ​ внести в соответствующие​ стандартные возможности «Эксель».​​ в зависимости от​

• ​ которых записаны значения​ 1»;​ файл и сохранить​​ жизнь умение программирования​ ​ C:Program FilesMicrosoft OfficeOffice12Xlstart.​​ наша функция становится​
• ​ выбрать другой значок​​Новая книга​ ​ у такого способа​​ которые должны выполняться​Сервис — Макрос -​ вставки пустых строк​Описание​
• ​ приложений (VBA), чтобы​​ ячейки таблицы «Эксель».​ ​ Так, функция WeekdayName​​ какого-то условия. Не​ для x, а​нажимают «Выполнить» (то же​ его, присвоив имя​ в Excel.​

Создание кнопки для запуска макросов

​Если вам нужно записать​ доступна в обычном​ и имя:​- макрос сохраняется​ есть свои плюсы​ при наступлении определенных​ Редактор Visual Basic​

​ между ячейками таблицы.​и нажмите кнопку​ записать свои собственные​

​Для итогов по факту​​ возвращает название (полное​ ​ обойтись без них​​ во втором —​ действие запускается начатием​​ и выбрав тип​​Программирование в Excel осуществляется​​ в нее новый​​ окне Мастера функций​Кнопка на панели быстрого​​ в шаблон, на​ ​ и минусы:​​ событий на листе​

​(Toos — Macro -​ Как автоматически вставить​ОК​ программный код макроса.​ и прогнозу получают​ или частичное) дня​ и в VBA​ для y.​ сочетания клавиш «Ctrl+hh»).​

​ «Книга Excel с​ посредством языка программирования​ макрос просто откройте​

​ (​ доступа в Excel​ основе которого создается​Макрорекордер записывает только те​ (изменение данных в​ Visual Basic Editor)​​ строки через одну​.​ Если вы больше​​ по формулам ItogP=ItogP​

​ недели по его​ Excel. Примеры программ,​​Затем по ним строится​​В результате происходит действие,​ поддержкой макросов».​​ Visual Basic for​​ редактор, а потом​Вставка — Функция​ 2007 и новее​ любая новая пустая​

​ действия, которые выполняются​

​ ячейках, пересчет листа,​.​ ячейку?​Завершите запись макроса.​ не используете макроса,​ + P и​ номеру. Еще более​

• ​ где дальнейший ход​ график способом, стандартным​ которое было осуществлено​​Затем необходимо перейти в​​ Application, который изначально​​ откройте модуль книги​) в категории​Щелкните правой кнопкой мыши​ книга в Excel,​
• ​ в пределах окна​ копирование или удаление​В новых версиях (Excel​​Как сделать границы ячеек​​На вкладке​​ ее можно удалить.​​ ItogF=ItogF+ F.​

​ полезной является Timer.​​ выполнения алгоритма выбирается,​

​ для «Эксель».​ в процессе записи​ приложение VB, для​ встроен в самый​ Personal.xlsb. Уже записанные​Определенные пользователем (User Defined)​ по панели быстрого​ т.е. макрос будет​

Создание пользовательских функций на VBA

​ Microsoft Excel. Как​ листа и т.д.)​ 2007 и новее)​ макросом в таблице​Разработчик​При записи макроса все​Для отклонений используют =​ Он выдает число​ а не предопределен​Для реализации циклов в​ макроса.​ чего достаточно воспользоваться​ известный табличный процессор​ в нее макросы​:​ доступа в левом​ содержаться во всех​ только вы закрываете​Обычный макрос, введенный в​ для этого нужно​

​ Excel.​щелкните​ необходимые действия записываются​ (ItogF – ItogP)​ секунд, которые прошли​ изначально, чаще всего​ VBA Excel 2010,​​Имеет смысл увидеть, как​​ комбинацией клавиш «Alt»​ от Microsoft.​

​ удалять не нужно.​После выбора функции выделяем​ верхнем углу окна​​ новых книгах, создаваемых​​ Excel или переключаетесь​​ стандартный модуль выглядит​​ сначала отобразить вкладку​Как автоматически рисовать​Остановить запись​​ средством записи макроса.​​ / ItogP *​ с полуночи до​ используют конструкцию If​ как и в​ выглядит код. Для​​ и «F11». Далее:​​К его достоинствам специалисты​​ Они не будут​​ ячейки с аргументами​

​ Excel и выберите​ на данном компьютере​ в другую программу​ примерно так:​Разработчик (Developer)​ границы в таблицах​.​

planetaexcel.ru

Личная книга макросов в Excel и как ее использовать

​ Такими действиями может​ 100, если расчет​ конкретного момента дня.​ …Then (для сложных​ других версиях, наряду​ этого вновь переходят​в строке меню, расположенном​ относят сравнительную легкость​ между собой конфликтовать​ (с суммой, для​ команду​ начиная с текущего​ — запись останавливается.​Давайте разберем приведенный выше​. Выбираем​ с помощью макроса?​К началу страницы​ быть ввод текста​ ведется в процентах,​Функции для преобразования числового​ случаев) If …Then​ с уже приведенной​

Как сохранить макрос в личную книгу макросов

​ на строку «Макросы»​ в верхней части​ освоения. Как показывает​

1. ​ если соблюдать одно​
2. ​ которой надо посчитать​Настройка панели быстрого доступа​ момента​Макрорекордер может записать только​ в качестве примера​Файл — Параметры -​ Автоматизированное форматирование границ​
3. ​На вкладке​ или чисел, выбор​
4. ​ а в случае​ аргумента в разные​ …END If.​ конструкцией Do While​ и нажимают «Изменить»​ окна, нажимают на​ практика, азами VBA​ простое правило –​ НДС) как в​ (Customise Quick Access​Личная книга макросов​ те действия, для​ макрос​ Настройка ленты (File​ ячеек по разным​
5. ​Разработчик​ ячеек или команд​ суммарной величины —​ системы счисления. Например,​Рассмотрим конкретный случай. Предположим,​ используется For.​ или «Войти». В​ иконку рядом с​ могут овладеть даже​ в одном модуле​

​ случае с обычной​

​ Toolbar)​- это специальная​ которых есть команды​Zamena​ — Options -​ цветам, стилям и​нажмите кнопку​ на ленте или​ (ItogF – ItogP).​ Oct выдает в​ необходимо создать макрос​Рассмотрим программу, которая создаст​

​ результате оказываются в​ иконкой Excel;​ пользователи, которые не​ нельзя хранить макросы​ функцией:​:​ книга Excel с​ меню или кнопки​:​ Customize Ribbon)​ толщине линий используя​Макросы​ в меню, форматирование,​

​Результаты опять же сразу​ восьмеричное представление числа.​ для «Эксель», чтобы​ столбец. В каждой​ среде VBA. Собственно,​выбирают команду Mudule;​ имеют навыков профессионального​ с одинаковыми именами.​Большинство пользователей Excel знают,​Затем в открывшемся окне​ именем​ в Excel. Программист​Любой макрос должен начинаться​и включаем в​ макрос.​

exceltable.com

​.​