Макрос excel своя процедура

Введение

Всем нам приходится — кому реже, кому чаще — повторять одни и те же действия и операции в Excel. Любая офисная работа предполагает некую «рутинную составляющую» — одни и те же еженедельные отчеты, одни и те же действия по обработке поступивших данных, заполнение однообразных таблиц или бланков и т.д. Использование макросов и пользовательских функций позволяет автоматизировать эти операции, перекладывая монотонную однообразную работу на плечи Excel. Другим поводом для использования макросов в вашей работе может стать необходимость добавить в Microsoft Excel недостающие, но нужные вам функции. Например функцию сборки данных с разных листов на один итоговый лист, разнесения данных обратно, вывод суммы прописью и т.д.

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

В принципе, существует великое множество языков программирования (Pascal, Fortran, C++, C#, Java, ASP, PHP…), но для всех программ пакета Microsoft Office стандартом является именно встроенный язык VBA. Команды этого языка понимает любое офисное приложение, будь то Excel, Word, Outlook или Access.

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

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

• В старых версиях (Excel 2003 и старше) для этого идем в меню Сервис — Макрос — Редактор Visual Basic (Toos — Macro — Visual Basic Editor).
• В новых версиях (Excel 2007 и новее) для этого нужно сначала отобразить вкладку Разработчик (Developer). Выбираем Файл — Параметры — Настройка ленты (File — Options — Customize Ribbon) и включаем в правой части окна флажок Разработчик (Developer). Теперь на появившейся вкладке нам будут доступны основные инструменты для работы с макросами, в том числе и нужная нам кнопка Редактор Visual Basic (Visual Basic Editor)
  
  
  
  :

К сожалению, интерфейс редактора VBA и файлы справки не переводятся компанией  Microsoft на русский язык, поэтому с английскими командами в меню и окнах придется смириться:

Макросы (т.е. наборы команд на языке VBA) хранятся в программных модулях. В любой книге Excel мы можем создать любое количество программных модулей и разместить там наши макросы. Один модуль может содержать любое количество макросов. Доступ ко всем модулям осуществляется с помощью окна Project Explorer в левом верхнем углу редактора (если его не видно, нажмите CTRL+R). Программные модули бывают нескольких типов для разных ситуаций:

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

  

• Модуль Эта книга — также виден в левом верхнем углу редактора Visual Basic в окне, которое называется Project Explorer. В этот модуль обычно записываются макросы, которые должны выполнятся при наступлении каких-либо событий в книге (открытие или сохранение книги, печать файла и т.п.):

  

• Модуль листа — доступен через Project Explorer и через контекстное меню листа, т.е. правой кнопкой мыши по ярлычку листа — команда Исходный текст (View Source). Сюда записывают макросы, которые должны выполняться при наступлении определенных событий на листе (изменение данных в ячейках, пересчет листа, копирование или удаление листа и т.д.)

  

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

Давайте разберем приведенный выше в качестве примера макрос Zamena:

• Любой макрос должен начинаться с оператора Sub, за которым идет имя макроса и список аргументов (входных значений) в скобках. Если аргументов нет, то скобки надо оставить пустыми.
• Любой макрос должен заканчиваться оператором End Sub.
• Все, что находится между Sub и End Sub — тело макроса, т.е. команды, которые будут выполняться при запуске макроса. В данном случае макрос выделяет ячейку заливает выделенных диапазон (Selection) желтым цветом (код = 6) и затем проходит в цикле по всем ячейкам, заменяя формулы на значения. В конце выводится окно сообщения (MsgBox).

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

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

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

• Макрорекордер записывает только те действия, которые выполняются в пределах окна Microsoft Excel. Как только вы закрываете Excel или переключаетесь в другую программу — запись останавливается.
• Макрорекордер может записать только те действия, для которых есть команды меню или кнопки в Excel. Программист же может написать макрос, который делает то, что Excel никогда не умел (сортировку по цвету, например или что-то подобное).
• Если во время записи макроса макрорекордером вы ошиблись — ошибка будет записана. Однако смело можете давить на кнопку отмены последнего действия (Undo) — во время записи макроса макрорекордером она не просто возрвращает Вас в предыдущее состояние, но и стирает последнюю записанную команду на VBA.

Чтобы включить запись необходимо:

• в Excel 2003 и старше — выбрать в меню Сервис — Макрос — Начать запись (Tools — Macro — Record New Macro)
• в Excel 2007 и новее — нажать кнопку Запись макроса (Record macro) на вкладке Разработчик (Developer)

Затем необходимо настроить параметры записываемого макроса в окне Запись макроса:

• Имя макроса — подойдет любое имя на русском или английском языке. Имя должно начинаться с буквы и не содержать пробелов и знаков препинания.
• Сочетание клавиш — будет потом использоваться для быстрого запуска макроса. Если забудете сочетание или вообще его не введете, то макрос можно будет запустить через меню Сервис — Макрос — Макросы — Выполнить (Tools — Macro — Macros — Run) или с помощью кнопки Макросы (Macros) на вкладке Разработчик (Developer) или нажав ALT+F8.
• Сохранить в… — здесь задается место, куда будет сохранен текст макроса, т.е. набор команд на VBA из которых и состоит макрос.:
• Эта книга — макрос сохраняется в модуль текущей книги и, как следствие, будет выполнятся только пока эта книга открыта в Excel
• Новая книга — макрос сохраняется в шаблон, на основе которого создается любая новая пустая книга в Excel, т.е. макрос будет содержаться во всех новых книгах, создаваемых на данном компьютере начиная с текущего момента
• Личная книга макросов — это специальная книга Excel  с именем Personal.xls, которая используется как хранилище макросов. Все макросы из Personal.xls загружаются в память при старте Excel и могут быть запущены в любой момент и в любой книге.

После включения записи и выполнения действий, которые необходимо записать, запись можно остановить командой Остановить запись (Stop Recording).

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

Управление всеми доступными макросами производится в окне, которое можно открыть с помощью кнопки Макросы (Macros) на вкладке Разработчик (Developer) или — в старых версиях Excel — через меню Сервис — Макрос — Макросы (Tools — Macro — Macros):

• Любой выделенный в списке макрос можно запустить кнопкой Выполнить (Run).
• Кнопка Параметры (Options) позволяет посмотреть и отредактировать сочетание клавиш для быстрого запуска макроса.
• Кнопка Изменить (Edit) открывает редактор Visual Basic (см. выше) и позволяет просмотреть и отредактировать текст макроса на VBA.

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

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

Кнопка на панели инструментов в Excel 2003 и старше

Откройте меню Сервис — Настройка (Tools — Customize) и перейдите на вкладку Команды (Commands). В категории Макросы легко найти веселый желтый «колобок» — Настраиваемую кнопку (Custom button):

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

Кнопка на панели быстрого доступа в Excel 2007 и новее

Щелкните правой кнопкой мыши по панели быстрого доступа в левом верхнем углу окна Excel и выберите команду Настройка панели быстрого доступа (Customise Quick Access Toolbar):

Затем в открывшемся окне выберите категорию Макросы и при помощи кнопки Добавить (Add) перенесите выбранный макрос в правую половину окна, т.е. на панель быстрого доступа:

Кнопка на листе

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

• В Excel 2003 и старше — откройте панель инструментов Формы через меню Вид — Панели инструментов — Формы (View — Toolbars — Forms)
• В Excel 2007 и новее — откройте выпадающий список Вставить (Insert) на вкладке Разработчик (Developer) 

Выберите объект Кнопка (Button):

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

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

Создание пользовательских функций или, как их иногда еще называют, UDF-функций (User Defined Functions) принципиально не отличается от создания макроса в обычном программном модуле. Разница только в том, что макрос выполняет последовательность действий с объектами книги (ячейками, формулами и значениями, листами, диаграммами и т.д.), а пользовательская функция — только с теми значениями, которые мы передадим ей как аргументы (исходные данные для расчета).

Чтобы создать пользовательскую функцию для расчета, например, налога на добавленную стоимость (НДС) откроем редактор VBA, добавим новый модуль через меню Insert — Module и введем туда текст нашей функции:

Обратите внимание, что в отличие от макросов функции имеют заголовок Function вместо Sub и непустой список аргументов (в нашем случае это Summa). После ввода кода наша функция становится доступна в обычном окне Мастера функций (Вставка — Функция) в категории Определенные пользователем (User Defined):

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

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

Как записать самый простой макрос?

Для начала запишем самый легкий макрос — зададим в ячейке А1 формат вида 12 345:

•  Открываем новую книгу, в ячейке А1 набираем шестизначное число 123456. Сейчас оно выдается без разделителей разрядов. Запишем макрос, который ставит эти разделители.
•  Заходим на панели инструментов в закладку Вид*, находим кнопку Макросы, жмем Запись макроса. В появившемся окне задаем имя макроса и книгу, в которой хотим этот макрос сохранить.

Важно

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

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

•  Выбираем Сохранить в… —  Личная книга макросов и нажимаем Ок (рис. 1).

Рис. 1. Запись макроса в личную книгу макросов

•  Записываем в макрос действия, которые хотим выполнить: вызываем контекстное меню Формат ячеек (можно воспользоваться комбинацией клавиш Сtrl+1) и задаем нужный нам формат числа: на закладке Число идем в блок (все форматы) и выбираем там формат вида # ##0.

К сведению

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

•  На закладке Вид — Макросы выбираем пункт Остановить запись.

Второй, более быстрый способ остановить запись макроса — нажать на появившийся в левом нижнем углу синий квадратик (рис. 2.).

Мы рекомендуем

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

Проверяем, что макрос записан и работоспособен:

•  в ячейку А2 вбиваем любое шестизначное число;
•  запускаем макрос одним из двух способов: на закладке Вид — Макросы выбираем пункт Макросы или нажимаем комбинацию клавиш Alt+F8, находим в списке наш макрос и нажимаем кнопку Выполнить.

Рис. 2. Форматирование числа и остановка записи макроса

Итак, вы записали свой первый макрос! Примите поздравления. Теперь давайте познакомимся с личной книгой макросов и синтаксисом написания команд для макроса.

Личная книга макросов

По умолчанию Excel не отображает личную книгу макросов. Чтобы убедиться, что она открыта, выбираем на вкладке Вид кнопку Отобразить — в появившемся окне должна быть книга под именем PERSONAL.

Мы убедились, что книга открыта, но отображать ее не будем, чтобы потом по ошибке не закрыть ее. По сути, в этой книге нас интересует так называемый Исходный текст — блок, в котором записываются макросы. Чтобы увидеть это окно, нажмите клавиши Alt+F11 или кликните правой кнопкой мыши на ярлыке любого листа Excel и выберите в контекстном меню Исходный текст. Откроется окно VBA-кодирования в Excel (рис. 3). Оно состоит из двух блоков:

1. В левой части экрана окно Project – VBAProject — это проводник, в котором отображаются все открытые в данный момент книги Excel (даже если вы их не видите, как, например, книгу Personal). Работа с этим блоком аналогична работе в обычном проводнике — двойной клик по наименованию книги раскрывает ее содержимое. Нас интересует блок Modules — Module1. Кликаем левой кнопкой мыши дважды по этому объекту.

2. В правой части экрана откроется блок записи и редактирования макросов. Здесь уже автоматически записался Макрос1. Рассмотрим на его примере основную канву макроса.

Рис. 3. Окно VBA-кодирования в Excel

Синтаксис макроса

Макросы — это команды, написанные на языке VBA (Visual Basic for Applications). И синтаксис кода макроса не отличается от записи кода в Visual Basic.

Любой макрос имеет следующий вид:

Sub Имя_Макроса_Без_Пробелов()

‘ комментарии к макросу — они нужны для вас, VBA не воспринимает такие строки как команды

команды, написанные на языке VBA

End Sub

3 обязательных блока макроса:

1. Начало макроса. Всегда начинается с команды Sub. Далее идет имя макроса — оно может быть на русском языке, но не должно содержать пробелы и специальные символы.

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

2. Блок команд. В нашем примере он состоит из одной строки: Selection.NumberFormat = «#,##0»

Каждая команда должна начинаться с новой строки. Если текст команды очень длинный и не помещается на экране, его можно разбить на несколько строк, заканчивая строку символом нижнего подчеркивания _ (далее в примере мы это увидим).

3. Конец макроса. Всегда обозначается как End Sub.

Есть и один необязательный блок — это комментарии, которые вы можете оставлять в любом месте внутри кода макроса, поставив перед началом комментариев знак апострофа ‘. Например, вы можете описать, что именно делает тот или иной макрос.

Обратите внимание!

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

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

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

Нам необходимо:

•  выделить групповые строки полужирным шрифтом;
•  отформатировать на печать — расположить отчет по центру листа, задать масштаб 75 %, вывести в колонтитулы название отчета (рис. 4).

Рис. 4. Изменения после написания макроса

Запишем алгоритм форматирования отчета в макрос.

Нажимаем кнопку записи макроса и выполняем следующие действия:

•  Даем макросу имя Форматирование_БДР, в блоке описания записываем, что будет делать этот макрос (например, Выделяет жирным курсивом итоги, форматирует на печать). Жмем Ок.
•  Выделяем столбцы А:С, ставим автофильтр — на закладке Данные находим кнопку Фильтр.
•  По столбцу КОД задаем условие не содержит точку: Текстовые фильтры — Не содержит и в поле текста ставим символ точки без пробелов (рис. 5).

Рис. 5. Использование автофильтра по столбцу «КОД»

•  Выделяем отфильтрованный диапазон и задаем ему полужирный шрифт.
•  Снимаем автофильтр (повторное нажатие на закладке Данные кнопки Фильтр).
•  Заходим в меню форматирования на печать (Кнопка Файл/Office — Печать — Предварительный просмотр — Параметры страницы) и задаем там три параметра:

1) на вкладке Страница задаем масштаб 75 %;

2) на вкладке Поля отмечаем пункт Горизонтально в блоке Центрировать на странице;

3) на вкладке Колонтитулы создаем верхний колонтитул с текстом Бюджет на январь.

•  Выходим из параметров страницы.
•  Заканчиваем запись макроса.
•  Нажимаем Alt+F11 и смотрим, что получилось (см. рис. 4).

Код этого макроса уже гораздо длиннее и непонятнее, но легко читаем для знающих английский язык и азы программирования в VBA.

Правила написания команд в VBA

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

Объектами в Excel являются, например:

•  книга: WorkBook, ActiveWorkbook;
•  лист, листы: WorkSheet, ActiveSheet, Sheets;
•  ячейка: Cells(1,1) — в скобках указываются номера строки (Row) и столбца (Column) ячейки на листе;
•  диапазон ячеек (может быть и одна ячейка): Range(«А1:С5»), Range(«А1»);
•  строки (Rows);
•  столбцы (Columns);
•  выделение (Selection) — выделенный в данный момент диапазон (это может быть как несколько смежных ячеек, так и смежные строки или столбцы).

Примеры действий с объектами:

•  ActiveWorkbook.Save — сохранить рабочую книгу (та, которая была активна в момент вызова пользователем макроса);
•  Sheets(«Лист3»).Name = «Отчет» — переименовать «Лист3» в «Отчет»;
•  Sheets(«Отчет»).Activate — перейти на лист с названием «Отчет»;
•  Range(«А1»).Copy — скопировать в буфер обмена данные из ячейки А1;
•  Rows(«13:13»).Delete Shift:=xlUp — удалить строку 13 со сдвигом вверх.

Примеры свойств объектов:

•  ActiveCell.FormulaR1C1 = «БДР» — в выделенной (активной) ячейке записан текст «БДР»;
•  ActiveCell.Row < 65 — номер ряда активной ячейки меньше 65.

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

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

Суть его в следующем: к объекту Выделенный диапазон (у нас одна ячейка, но это может быть и весь столбец/строка или диапазон смежных ячеек) применяется свойство Числовой формат вида # ##0 (если помните, именно этот формат мы выбрали в списке).

Код макроса Форматирование_БДР и расшифровка строк кода представлены в таблице.

Редактирование макроса

Как видите, код макроса легко читаем и понятен. Кроме того, нам не надо нагромождать его лишними строками: так как в параметрах печати мы меняли только три пункта, остальные строки можем удалить (они будут установлены по умолчанию). Удалим ненужные строки, поставим комментарии и в итоге получим вот такой элегантный код:

Sub Форматирование_БДР()

‘ Макрос выделяет жирным курсивом итоги, форматирует отчет на печать

‘——————

‘ Выделяем столбцы и ставим фильтр по столбцу КОД

 Columns(«A:C»).Select

 Selection.AutoFilter

 ActiveSheet.Range(«$A$1:$C$34″).AutoFilter Field:=1, Criteria1:=»<>*.*», _

 Operator:=xlAnd

‘ Выделяем отфильтрованный диапазон полужирным шрифтом, снимаем фильтр

 Range(«A1:C34»).Select

 Selection.Font.Bold = True

 Selection.AutoFilter

 ‘ Форматируем на печать: верхний колонтитул, центрирование по горизонтали, масштаб 75 %

 With ActiveSheet.PageSetup

 .CenterHeader = «Бюджет на январь»

 .CenterHorizontally = True

 .Zoom = 75

 End With

End Sub

Ввод в код макроса функций и процедур

Теперь усложним код макроса, задав ему два параметра:

1. Название месяца отчета запрашиваем у пользователя.

2. Последняя строка отчета БДР (в случае если она плавающая) рассчитывается в коде макроса.

Функция InputBox

Чтобы запросить у пользователя месяц отчета, воспользуемся функцией Inputbox, которая выводит диалоговое окно, в котором пользователь может самостоятельно задать значение переменной, используемой в коде. Синтаксис функции InputBox:

где Zapros — введенная вами переменная (имя придумываете вы сами), а в скобках через запятую перечисляются аргументы функции.

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

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

Важно

Имена вводимых переменных не должны совпадать с уже занятыми VBA словами под название объектов, свойств или функций!

В нашем примере присвоим результат вызова функции InputBox переменной Mes.

Например, нельзя завести свою переменную Range, Cells или Month — компилятор VBA предупредит вас, что делать этого нельзя, и не запустит макрос, пока вы не устраните ошибку (рис. 6).

Рис. 6. Пример ошибки при заведении переменной

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

Итак, приступим к редактированию кода макроса. Добавим в самое начало кода макроса строки:

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

Рис. 7. Диалоговое окно для указания месяца

С помощью функции InputBox можно запросить у пользователя и длину отчета. Но мы научим Excel высчитывать ее самостоятельно. Для этого нам потребуется процедура While.

Процедура While

Используется в коде, если надо сделать одинаковые действия несколько раз подряд до тех пор, пока выполняется какое-либо условие. Синтаксис процедуры While:

Условие может состоять из одного выражения или содержать несколько, перечисленных через оператор AND (то есть оба условия должны быть выполнены) или OR (достаточно выполнения только одного из перечисленных условий). Также условие обязательно должно содержать переменную-счетчик (это может быть номер строки или столбца ячейки, значения которой вы проверяете).

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

Если макрос ушел в цикл, прервите его с помощью комбинации клавиш Ctrl+Break и либо прекратите макрос (кнопка End), либо зайдите в код макроса и исправьте ошибку (кнопка Debug). Чтобы макрос не уходил в цикл, рекомендуется включить в блок условий «защиту от дурака». Например, добавляем в условие проверку, чтобы значение счетчика не превышало определенной, заведомо достаточной для нас величины.

Рассмотрим применение процедуры While для поиска конца отчета БДР.

Как видно на рис. 4, последняя строка отчета имеет код «500». Напишем процедуру, которая будет проверять значения в ячейках столбца «А» и остановит свои действия, когда найдет ячейку с кодом «500».

Обратите внимание!

Excel иногда воспринимает числа как текст, поэтому включим два условия проверки значения ячейки и добавим «защиту от дурака» на случай, если в форме отчета случайно затрется код последней строки.

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

‘ Ищем последнюю строку отчета

Dim Row_End As Integer     ‘ Вводим переменную «счетчик номера строки»

Row_End = 1             ‘ Присваиваем ей номер 1

‘ Начинаем процедуру поиска последней строки отчета по коду «500»

Do While Cells(Row_End, 1).Value <> «500» And Cells(Row_End, 1).Value <> 500 And Row_End < 100

‘ До тех пор, пока код не равен 500 и номер строки меньше 100, выполняем наращивание счетчика

Row_End = Row_End +1

Loop

Таким образом, процедура While нам нужна только для наращивания счетчика — никаких дополнительных действий она не производит. Запомните этот прием — он часто нужен в кодировании.

Теперь заменим в изначальном коде макроса номер последней ячейки (34) на переменную Row_End. Число 34 было частью текста А1:С34, а теперь нам надо часть текста заменить на переменную. Делается это с помощью символа амперсанд &:

В нашем случае ссылка на диапазон А1:С34 будет записана так: А1:С & Row_End.

Кроме того, вспоминаем, что и название отчета Бюджет на январь у нас тоже теперь содержит параметр и будет записываться так: Бюджет на & Mes.

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

Еще раз взглянем на получившийся код макроса:

Sub Форматирование_БДР()

‘ Макрос выделяет жирным курсивом итоги, форматирует отчет на печать

‘ ——————

‘ Запрашиваем у пользователя месяц отчета

Mes = InputBox(«Введите название месяца отчета», , «Январь»)

‘ Ищем последнюю строку отчета

Dim Row_End As Integer     ‘ Вводим переменную «счетчик номера строки»

Row_End = 1             ‘ Присваиваем ей номер 1

‘ Начинаем процедуру поиска последней строки отчета по коду «500»

‘ Критичным значением для «защиты от дурака» принимаем номер строки 100

Do While Cells(Row_End, 1).Value <> «500» And Cells(Row_End, 1).Value <> 500 And Row_End < 100

‘ До тех пор, пока код не равен 500 и номер строки меньше 100, выполняем наращивание счетчика

Row_End = Row_End +1

Loop

‘ Выделяем столбцы и ставим фильтр на КОД

 Columns(«A:C»).Select

 Selection.AutoFilter

 ActiveSheet.Range(«$A$1:$C$» & Row_End).AutoFilter Field:=1, Criteria1:=»<>*.*», _

 Operator:=xlAnd

‘ Выделяем отфильтрованный диапазон полужирным шрифтом, снимаем фильтр

 Range(«A1:C» & Row_End).Select

 Selection.Font.Bold = True

 Selection.AutoFilter

‘ Форматируем на печать: верхний колонтитул, центрирование по горизонтали, масштаб 75 %

 With ActiveSheet.PageSetup

 .CenterHeader = «Бюджет на » & Mes

 .CenterHorizontally = True

 .Zoom = 75

 End With

End Sub

Теперь макрос стал более универсальным. Добавим в него еще одну «защиту от дурака».

Если нам принципиально, правильно ли макрос нашел последнюю строку отчета, после окончания процедуры While (строка Loop) можно добавить блок проверки значения Row_End и запроса у пользователя подтверждения на продолжение макроса.

Для этого изучим функцию MsgBox, процедуру IF и команду Exit Sub.

Функция MsgBox

MsgBox — еще один способ общения с пользователем: сообщения ему какой-то информации по ходу выполнения макроса или запрос у него подтверждения по дальнейшим действиям макроса путем нажатия на кнопки вида Yes, No, Ок, Cancel.

Она имеет два вида записи:

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

На экране отобразится диалоговое окно, и после нажатия пользователем кнопки Ок продолжится выполнение макроса (рис. 8).

Рис. 8. Первый вид записи функции MsgBox

Как и в случае с функцией InputBox, обязательным здесь является только первый аргумент — Текст сообщения. Остальные можно даже не указывать, сократив вид записи функции до вида:

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

Рис. 9. Второй вид записи функции MsgBox

Варианты вида кнопок:

•  vbOKOnly — только кнопка ОК;
•  vbOKCanсel — кнопки ОК и Cancel;
•  vbYesNo — кнопки Yes и No;
•  vbYesNoCancel — кнопки Yes, No и Cancel.

Соответственно в зависимости от нажатой кнопки значения функции MsgBox могут быть vbOK, vbCancel, vbYes или vbNo.

Процедура If

С помощью данной процедуры можно разбить команды кода на две ветки в зависимости от выполнения заданного условия. Синтаксис процедуры If:

If <условие, которое должно быть верным> Then

 <список команд при выполнении указанного условия>

else

 <список команд при невыполнении указанного условия>

End If

Обязательным к заполнению является только условие. Список команд в обоих блоках заполнять не обязательно. В зависимости от ваших задач вы можете заполнить оба блока или только один из них. Условие может состоять из одного выражения или содержать несколько выражений, перечисленных через оператор AND (то есть оба условия должны быть выполнены) или оператор OR (достаточно выполнения только одного из перечисленных условий).

Команда Exit Sub

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

Итак, объединим новые знания в код «защиты от дурака» и запишем его после строки Loop:

‘ Проверяем, дошла ли процедура While до «критичной» строки 100

‘ и спрашиваем подтверждение о продолжении выполнения макроса

If Row_End = 100 Then      

YesNo = MsgBox(«Поиск последней строки отчета дошел до 100, продолжаем?», vbYesNo)

If YesNo = vbNo Then          ‘ Если нажата кнопка «No», то…

MsgBox «Процедура прервана пользователем»   ‘ 1. выдаем сообщение для пользователя,

Exit Sub          ‘ 2. останавливаем макрос

End If

End If

В нашем коде прошло вложение одной процедуры If в другую:

•  сначала мы проверили, дошел ли счетчик Row_End до значения 100;
•  если дошел, мы спрашиваем у пользователя, продолжать ли нам выполнение макроса;
•  если пользователь ответил «нет», останавливаем макрос.

В обеих процедурах If мы опустили второй блок (else): если Row_End не достиг значения 100 или пользователь ответил «да», макрос просто покинет процедуру If и продолжит выполнять команды, написанные ниже.

Каждая процедура If должна заканчиваться командой End If. Если количество строк с командой If не будет соответствовать количеству строк с командой End If, компилятор VBA сообщит об ошибке и вам придется искать, где вы потеряли конец процедуры If.

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

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

Подведем итоги

Мы с вами научились:

•  записывать макросы через команду Вид  Макросы  Запись макроса;
•  редактировать автоматически записанный макрос, удалять из него лишние команды;
•  унифицировать код макроса, вводя в него переменные, которые макрос запрашивает у пользователя или рассчитывает самостоятельно,

а также изучили функции InputBox и MsgBox, процедуры While и If, команду Exit Sub.

В следующем номере рассмотрим процедуру FOR, запишем макрос суммирования результирующих статей БДР, научимся тестировать макросы и выносить кнопки вызова макроса на панель быстрого доступа.

Встроенные функции VBA

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

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

• Откройте рабочую книгу Excel и запустите редактор VBA (нажмите для этого Alt+F11), и затем нажмите F2.
• В выпадающем списке в верхней левой части экрана выберите библиотеку VBA.
• Появится список встроенных классов и функций VBA. Кликните мышью по имени функции, чтобы внизу окна отобразилось её краткое описание. Нажатие F1 откроет страницу онлайн-справки по этой функции.

Кроме того, полный список встроенных функций VBA с примерами можно найти на сайте Visual Basic Developer Centre.

Пользовательские процедуры «Function» и «Sub» в VBA

В Excel Visual Basic набор команд, выполняющий определённую задачу, помещается в процедуру Function (Функция) или Sub (Подпрограмма). Главное отличие между процедурами Function и Sub состоит в том, что процедура Function возвращает результат, процедура Sub – нет.

Поэтому, если требуется выполнить действия и получить какой-то результат (например, просуммировать несколько чисел), то обычно используется процедура Function, а для того, чтобы просто выполнить какие-то действия (например, изменить форматирование группы ячеек), нужно выбрать процедуру Sub.

Аргументы

При помощи аргументов процедурам VBA могут быть переданы различные данные. Список аргументов указывается при объявлении процедуры. К примеру, процедура Sub в VBA добавляет заданное целое число (Integer) в каждую ячейку в выделенном диапазоне. Передать процедуре это число можно при помощи аргумента, вот так:

Sub AddToCells(i As Integer)

...

End Sub

Имейте в виду, что наличие аргументов для процедур Function и Sub в VBA не является обязательным. Для некоторых процедур аргументы не нужны.

Необязательные аргументы

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

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

Sub AddToCells(Optional i As Integer = 0)

В таком случае целочисленный аргумент i по умолчанию будет равен 0.

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

Передача аргументов по значению и по ссылке

Аргументы в VBA могут быть переданы процедуре двумя способами:

• ByVal – передача аргумента по значению. Это значит, что процедуре передаётся только значение (то есть, копия аргумента), и, следовательно, любые изменения, сделанные с аргументом внутри процедуры, будут потеряны при выходе из неё.
• ByRef – передача аргумента по ссылке. То есть процедуре передаётся фактический адрес размещения аргумента в памяти. Любые изменения, сделанные с аргументом внутри процедуры, будут сохранены при выходе из процедуры.

При помощи ключевых слов ByVal или ByRef в объявлении процедуры можно задать, каким именно способом аргумент передаётся процедуре. Ниже это показано на примерах:

Sub AddToCells(ByVal i As Integer)

...

End Sub

Sub AddToCells(ByRef i As Integer)

...

End Sub

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

Перед тем как продолжить изучение процедур Function и Sub более подробно, будет полезным ещё раз взглянуть на особенности и отличия этих двух типов процедур. Далее приведены краткие обсуждения процедур VBA Function и Sub и показаны простые примеры.

VBA процедура «Function»

Редактор VBA распознаёт процедуру Function, когда встречает группу команд, заключённую между вот такими открывающим и закрывающим операторами:

Function

...

End Function

Как упоминалось ранее, процедура Function в VBA (в отличие от Sub), возвращает значение. Для возвращаемых значений действуют следующие правила:

• Тип данных возвращаемого значения должен быть объявлен в заголовке процедуры Function.
• Переменная, которая содержит возвращаемое значение, должна быть названа так же, как и процедура Function. Эту переменную не нужно объявлять отдельно, так как она всегда существует как неотъемлемая часть процедуры Function.

Это отлично проиллюстрировано в следующем примере.

Пример VBA процедуры «Function»: Выполняем математическую операцию с 3 числами

Ниже приведён пример кода VBA процедуры Function, которая получает три аргумента типа Double (числа с плавающей точкой двойной точности). В результате процедура возвращает ещё одно число типа Double, равное сумме первых двух аргументов минус третий аргумент:

Function SumMinus(dNum1 As Double, dNum2 As Double, dNum3 As Double) As Double

   SumMinus = dNum1 + dNum2 - dNum3

End Function

Эта очень простая VBA процедура Function иллюстрирует, как данные передаются процедуре через аргументы. Можно увидеть, что тип данных, возвращаемых процедурой, определён как Double (об этом говорят слова As Double после списка аргументов). Также данный пример показывает, как результат процедуры Function сохраняется в переменной с именем, совпадающим с именем процедуры.

Вызов VBA процедуры «Function»

Если рассмотренная выше простая процедура Function вставлена в модуль в редакторе Visual Basic, то она может быть вызвана из других процедур VBA или использована на рабочем листе в книге Excel.

Вызов VBA процедуры «Function» из другой процедуры

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

Sub main()

   Dim total as Double
   total = SumMinus(5, 4, 3)

End Sub

Вызов VBA процедуры «Function» из рабочего листа

VBA процедуру Function можно вызвать из рабочего листа Excel таким же образом, как любую другую встроенную функцию Excel. Следовательно, созданную в предыдущем примере процедуру Function – SumMinus можно вызвать, введя в ячейку рабочего листа вот такое выражение:

=SumMinus(10, 5, 2)

VBA процедура «Sub»

Редактор VBA понимает, что перед ним процедура Sub, когда встречает группу команд, заключённую между вот такими открывающим и закрывающим операторами:

VBA процедура «Sub»: Пример 1. Выравнивание по центру и изменение размера шрифта в выделенном диапазоне ячеек

Рассмотрим пример простой VBA процедуры Sub, задача которой – изменить форматирование выделенного диапазона ячеек. В ячейках устанавливается выравнивание по центру (и по вертикали, и по горизонтали) и размер шрифта изменяется на заданный пользователем:

Sub Format_Centered_And_Sized(Optional iFontSize As Integer = 10)

   Selection.HorizontalAlignment = xlCenter
   Selection.VerticalAlignment = xlCenter
   Selection.Font.Size = iFontSize

End Sub

Данная процедура Sub выполняет действия, но не возвращает результат.

В этом примере также использован необязательный (Optional) аргумент iFontSize. Если аргумент iFontSize не передан процедуре Sub, то его значение по умолчанию принимается равным 10. Однако же, если аргумент iFontSize передается процедуре Sub, то в выделенном диапазоне ячеек будет установлен размер шрифта, заданный пользователем.

VBA процедура «Sub»: Пример 2. Выравнивание по центру и применение полужирного начертания к шрифту в выделенном диапазоне ячеек

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

Sub Format_Centered_And_Bold()

   Selection.HorizontalAlignment = xlCenter
   Selection.VerticalAlignment = xlCenter
   Selection.Font.Bold = True

End Sub

Вызов процедуры «Sub» в Excel VBA

Вызов VBA процедуры «Sub» из другой процедуры

Чтобы вызвать VBA процедуру Sub из другой VBA процедуры, нужно записать ключевое слово Call, имя процедуры Sub и далее в скобках аргументы процедуры. Это показано в примере ниже:

Sub main()

   Call Format_Centered_And_Sized(20)

End Sub

Если процедура Format_Centered_And_Sized имеет более одного аргумента, то они должны быть разделены запятыми. Вот так:

Sub main()

   Call Format_Centered_And_Sized(arg1, arg2, ...)

End Sub

Вызов VBA процедуры «Sub» из рабочего листа

Процедура Sub не может быть введена непосредственно в ячейку листа Excel, как это может быть сделано с процедурой Function, потому что процедура Sub не возвращает значение. Однако, процедуры Sub, не имеющие аргументов и объявленные как Public (как будет показано далее), будут доступны для пользователей рабочего листа. Таким образом, если рассмотренные выше простые процедуры Sub вставлены в модуль в редакторе Visual Basic, то процедура Format_Centered_And_Bold будет доступна для использования на рабочем листе книги Excel, а процедура Format_Centered_And_Sized – не будет доступна, так как она имеет аргументы.

Вот простой способ запустить (или выполнить) процедуру Sub, доступную из рабочего листа:

• Нажмите Alt+F8 (нажмите клавишу Alt и, удерживая её нажатой, нажмите клавишу F8).
• В появившемся списке макросов выберите тот, который хотите запустить.
• Нажмите Выполнить (Run)

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

• Нажмите Alt+F8.
• В появившемся списке макросов выберите тот, которому хотите назначить сочетание клавиш.
• Нажмите Параметры (Options) и в появившемся диалоговом окне введите сочетание клавиш.
• Нажмите ОК и закройте диалоговое окно Макрос (Macro).

Внимание: Назначая сочетание клавиш для макроса, убедитесь, что оно не используется, как стандартное в Excel (например, Ctrl+C). Если выбрать уже существующее сочетание клавиш, то оно будет переназначено макросу, и в результате пользователь может запустить выполнение макроса случайно.

Область действия процедуры VBA

В части 2 данного самоучителя обсуждалась тема области действия переменных и констант и роль ключевых слов Public и Private. Эти ключевые слова так же можно использовать применительно к VBA процедурам:

Public Sub AddToCells(i As Integer)

...

End Sub

Private Sub AddToCells(i As Integer)

...

End Sub

Помните о том, что если перед объявлением VBA процедуры Function или Sub ключевое слово не вставлено, то по умолчанию для процедуры устанавливается свойство Public (то есть она будет доступна везде в данном проекте VBA). В этом состоит отличие от объявления переменных, которые по умолчанию бывают Private.

Ранний выход из VBA процедур «Function» и «Sub»

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

Function VAT_Amount(sVAT_Rate As Single) As Single

   VAT_Amount = 0
   If sVAT_Rate <= 0 Then
      MsgBox "Expected a Positive value of sVAT_Rate but Received " & sVAT_Rate
      Exit Function
   End If

...

End Function

Обратите внимание, что перед тем, как завершить выполнение процедуры Function – VAT_Amount, в код вставлена встроенная VBA функция MsgBox, которая показывает пользователю всплывающее окно с предупреждением.

Создание макросов в программе Microsoft Excel

​Смотрите также​ опцию «Настройка панели​ одинаково.​ выпадающий список​ на данном компьютере​ получившуюся команду в​ хранятся в программных​Код​ расчет в %​ 160 функций. Их​ коротко, без использования​ Нажимают Enter.​

​ выступают лист, книга,​ .ThemeColor = xlThemeColorLight2​

Способы записи макросов

​(Параметры Excel) >​ – это очень​

• ​ помним, что записали​
• ​Макросы программы Microsoft Excel​

​ быстрого доступа».​Внимание! Макросы, созданные в​Вставить (Insert)​ начиная с текущего​ программный модуль. Если​ модулях. В любой​нажмите кнопку​ имеем (F –​ можно разделить на​ счетчика.​Теперь, когда уже запущена​ ячейка и диапазон.​ .TintAndShade = 0​

​Popular​ трудно, но это​ сочетание «горячих клавиш»​ позволяют значительно ускорить​В левом выпадающем списке​ надстройках Excel, могут​на вкладке​ момента​

Автоматическая запись макросов

​ мы включим макрорекордер​ книге Excel мы​Макросы​ P) / P​

​ несколько больших групп.​Сначала нужно создать макрос,​ запись макроса, производят​ Данные объекты обладают​ End With End​(Основные) и ставим​

​ не так. В​ для быстрого вызова​ работу с документами​ «Выбрать команду из:»​ быть по умолчанию​Разработчик (Developer)​Личная книга макросов​ на запись, а​ можем создать любое​.​ * 100, а​ Это:​ как описано выше.​ копирование содержимого какой-либо​

​ специальной иерархией, т.е.​ If End Sub​ галочку напротив опции​ этой статье Вы​ макроса. В нашем​ в этом табличном​ выберите опцию «Макросы».​ не доступны в​ ​- это специальная​ затем начнем создавать​ количество программных модулей​

​В поле​ в сумме —​Математические функции. Применив их​ Далее записываем сам​ ячейки в другую.​ подчиняются друг другу.​Для проверки этого кода​Show Developer tab in​ найдёте несколько интересных​ случае, это Ctrl+М.​ редакторе. Это достигается​В левом списке элементов​

​ списке диалогового окна​Выберите объект​ книга Excel с​ свой еженедельный отчет,​ и разместить там​Имя макроса​ (F – P).​

​ к аргументу, получают​ код. Считаем, что​ Возвращаются на исходную​

​Главным из них является​ выберем ячейку со​ the Ribbon​ и простых примеров,​ Набираем данную комбинацию​ путем автоматизации повторяющихся​ ниже выберите необходимый​ «Макрос» в целях​

​Кнопка (Button):​ именем​ то макрорекордер начнет​ наши макросы. Один​

​щелкните макрос, который​Результаты этих вычислений можно​ значение косинуса, натурального​ нас интересуют значения​ пиктограмму. Нажимают на​ Application, соответствующий самой​

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

​ значением​(Показывать вкладку «Разработчик»​ как можно автоматизировать​ на клавиатуре, после​ действий, записанных в​ макрос и нажмите​ политики безопасности. Ведь​Затем нарисуйте кнопку на​

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

​ «Запись макроса». Это​ программе Excel. Затем​больше 20​ на ленте). Excel​ Ваши повседневные задачи​ чего макрос запускается.​ специальный код. Давайте​ на кнопку «Добавить».​ имена макросов в​ листе, удерживая левую​, которая используется как​ за каждым нашим​

​ любое количество макросов.​Нажмите кнопку​ внести в соответствующие​ и пр.​

Редактирование макроса

​ Код выглядит следующим​ действие означает завершение​ следуют Workbooks, Worksheets,​:​ 2010: жмем по​ в Excel. Макрос​Как видим, макрос выполнил​

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

​ хранилище макросов. Все​ действием и, в​ Доступ ко всем​Изменить​ ячейки таблицы «Эксель».​Финансовые функции. Благодаря их​ образом.​ программки.​ а также Range.​Когда Вы запустите макрос,​ вкладке​ – это программа​ в точности все​ макросы в программе​ в правом списке​

​ скрыты от сторонних​ появится окно, где​ макросы из​

​ итоге, мы получим​
​ модулям осуществляется с​

​, чтобы открыть редактор​Для итогов по факту​ наличию и используя​

​For i = 1​Далее:​ Например, для обращения​ цвет шрифта изменится​File​ на Visual Basic,​ те действия, которые​ Excel, и как​ элементов появиться кнопка​ пользователей. Но если​

​ нужно выбрать макрос,​Personal.xls​ макрос создающий отчет​ помощью окна Project​ Visual Basic.​ и прогнозу получают​ программирование в Excel,​ to 10 Next​вновь переходят на строку​ к ячейке A1​ на красный:​(Файл) >​ созданная для того,​ были записаны ранее.​ их можно отредактировать.​ для нового инструмента​ ввести правильно соответственное​ который должен запускаться​загружаются в память​ как если бы​ Explorer в левом​

​Совет:​ по формулам ItogP=ItogP​ можно получать эффективные​Команда переводится на «человеческий»​ «Макросы»;​ на конкретном листе​При выполнении второго условия​Options​ чтобы автоматизировать задачи​Для того, чтобы отредактировать​Скачать последнюю версию​ быстрого запуска вашего​ значение в поле​ при щелчке по​ при старте Excel​ он был написан​ верхнем углу редактора​

Написание кода макроса с нуля

​ Для получения справки во​ + P и​ инструменты для ведения​ язык, как «Повторять​в списке выбирают «Макрос​ следует указать путь​ шрифт станет синим:​(Параметры) >​ в Microsoft Office.​ макрос, снова жмем​ Excel​ макроса. Справа от​

​ «Имя макроса:» то​ нарисованной кнопке.​ и могут быть​

​ программистом. Такой способ​ (если его не​

​ время работы в​ ItogF=ItogF+ F.​ бухгалтерского учета и​ от 1 до​ 1»;​ с учетом иерархии.​Вы также можете использовать​Customize Ribbon​ В своих примерах​ на кнопку «Макросы».​Макрос можно записать двумя​ правого списка элементов​ все кнопки в​Создание пользовательских функций или,​ запущены в любой​

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

lumpics.ru

Руководство и примеры работы с макросами в Excel

• ​ видно, нажмите CTRL+R).​ редакторе Visual Basic​
• ​Для отклонений используют =​
• ​ осуществления финансовых расчетов.​
• ​ 10 с шагом​

​нажимают «Выполнить» (то же​Что касается понятия «коллекция»,​ конструкцию​(Настройка ленты) и​ я использую Excel​ В открывшемся окне​ способами:​ можно использовать стрелки​ диалоговом окне будут​ как их иногда​ момент и в​ требует знаний пользователя​ Программные модули бывают​ в меню​ (ItogF – ItogP)​Функции обработки массивов. К​ один».​ действие запускается начатием​ то это группа​Case​ в правом списке​ 2010, но с​

Создаем макрос при помощи команды «Запись макроса»

1. ​ выбираем нужный макрос,​​автоматически;​​ для настройки положения​ активными. А значит​​ еще называют, UDF-функций​​ любой книге.​​ о программировании и​​ нескольких типов для​​Справка​​ / ItogP *​​ ним относятся Array,​

   

2. ​Если ставится задача получить​ сочетания клавиш «Ctrl+hh»).​ объектов того же​, чтобы связать выполнение​ включаем вкладку​ таким же успехом​ и кликаем по​вручную.​ и порядка расположения​
3. ​ готовы к работе​ (User Defined Functions)​После включения записи и​ VBA и позволяет​​ разных ситуаций:​​выберите команду​​ 100, если расчет​​ IsArray; LBound; UBound.​
4. ​ столбец с квадратами,​​В результате происходит действие,​​ класса, которая в​ действия с появлением​​Developer​​ Вы можете использовать​

​ кнопке «Изменить».​Воспользовавшись первым вариантом, вы​ кнопок инструментов на​​ с данным макросом​​ принципиально не отличается​ выполнения действий, которые​​ пользоваться макросами как​​Обычные модули​Справка Microsoft Visual Basic​​ ведется в процентах,​​Функции VBA Excel для​ например, всех нечетных​​ которое было осуществлено​​ записи имеет вид​ определённого значения в​(Разработчик).​ Excel 2007.​Открывается Microsoft Visual Basic​

​ просто записываете определенные​ панели быстрого доступа.​ из надстройки и​

1. ​ от создания макроса​​ необходимо записать, запись​​ неким аналогом видеозаписи:​​- используются в​​или нажмите клавишу​​ а в случае​​ строки. Это достаточно​
2. ​ чисел из диапазона​​ в процессе записи​​ ChartObjects. Ее отдельные​ ячейке. В следующем​​В следующем примере Вы​​Для начала откройте вкладку​
3. ​ (VBE) – среда,​​ действия в программе​​ И нажмите ОК.​ пользователь является автором​ в обычном программном​​ можно остановить командой​​ включил запись, выполнил​ большинстве случаев, когда​ F1.​​ суммарной величины —​​ многочисленная группа. В​​ от 1 до​​ макроса.​ элементы также являются​
4. ​ примере отображается сообщение,​ увидите, как использовать​View​ где происходит редактирование​ Microsoft Excel, которые​Теперь на панели быстрого​
5. ​ надстройки или доверительным​

​ модуле. Разница только​​Остановить запись​ операци, перемотал пленку​​ речь идет о​​Всем нам приходится -​ (ItogF – ItogP).​ нее входят, например,​ 11, то пишем:​Имеет смысл увидеть, как​ объектами.​​ содержание которого зависит​​ цикл​(Вид) на Ленте.​​ макросов.​​ выполняете в данный​ доступа появилась еще​ лицом.​

​ в том, что​(Stop Recording)​​ и запустил выполнение​​ макросах. Для создания​ кому реже, кому​​Результаты опять же сразу​​ функции Space для​​For i = 1​​ выглядит код. Для​​Следующее понятие — свойства.​​ от указанного возраста​FOR​​ В выпадающем списке​Запись каждого макроса начинается​​ момент времени. Потом,​ одна кнопка для.​​ макрос выполняет последовательность​​.​​ тех же действий​​ такого модуля выберите​​ чаще — повторять​​ записываются в соответствующие​​ создания строки с​ to 10 step​ этого вновь переходят​​ Они являются необходимой​​ человека.​

Цикл FOR

​. Цикл​Macros​ с команды Sub,​​ можно будет воспроизвести​​ Достаточно нажать на​​Для каждого макроса в​​ действий с объектами​Управление всеми доступными макросами​ еще раз. Естественно​ в меню​ одни и те​​ ячейки, поэтому нет​​ числом пробелов, равных​​ 1 Next.​​ на строку «Макросы»​​ характеристикой любого объекта.​​Sub MacroName() Dim​

​FOR​​(Макросы) нажмите кнопку​​ а заканчивается командой​​ эту запись. Данный​​ нее и сразу​ Excel можно присвоить​​ книги (ячейками, формулами​​ производится в окне,​ у такого способа​Insert — Module​ же действия и​

​ необходимости их присваивания​ целочисленному аргументу, или​Здесь step — шаг.​ и нажимают «Изменить»​ Например, для Range​ CellValue As Integer​

​позволяет нам выполнить​Record Macro​​ End Sub. Сразу​​ способ очень легкий,​​ же запуститься макрос.​​ свою комбинацию горячих​​ и значениями, листами,​​ которое можно открыть​ есть свои плюсы​. В появившееся окно​ операции в Excel.​ переменным.​​ Asc для перевода​​ В данном случае​

​ или «Войти». В​ — это Value​​ CellValue = ActiveCell.Value​​ повторение цикла с​(Запись макроса).​

​ же после команды​ и не требует​Полезный совет! Чтобы изменить​

​ клавиш. Благодаря этому​ диаграммами и т.д.),​ с помощью кнопки​​ и минусы:​​ нового пустого модуля​​ Любая офисная работа​​Перед запуском созданной программы,​ символов в код​​ он равен двум.​​ результате оказываются в​ или Formula.​

​ Select Case CellValue​ разными значениями. Давайте​Откроется диалоговое окно​ Sub указывается имя​ знания кода, но​ внешний вид кнопки​ вы можете вызывать​ а пользовательская функция​Макросы (Macros)​Макрорекордер записывает только те​ можно вводить команды​ предполагает некую «рутинную​

​ требуется сохранить рабочую​ ANSI. Все они​ По умолчанию отсутствие​ среде VBA. Собственно,​Методы — это команды,​

​ Case 60 To​​ посмотрим, как можно​​Record Macro​ макроса. Оператор «Range(«…»).Select»​ применение его на​​ для макроса в​​ свою макропрограмму при​ — только с​

Конструкция IF

​на вкладке​ действия, которые выполняются​ на VBA, набирая​​ составляющую» — одни​​ книгу, например, под​ имеют широкое применение​ этого слова в​ сам код макроса​ показывающие, что требуется​ 200 MsgBox «The​​ заполнить числами от​​(Запись Макроса).​ указывает выбор ячейки.​ практике довольно ограничено.​

​ окне «Параметры Excel»-«Панель​ нажатии определенной комбинации​ теми значениями, которые​Разработчик (Developer)​ в пределах окна​ их с клавиатуры​ и те же​ названием «Отчет1.xls».​ и позволяют работать​ цикле означает, что​ находится между строками​ сделать. При написании​

​ person is old»​1​Задайте имя макросу (не​​ Например, при команде​​Ручная запись макросов, наоборот,​

​ быстрого доступа», из​ клавиш на клавиатуре.​ мы передадим ей​

​или — в​ Microsoft Excel. Как​

Конструкция CASE

​ или копируя их​ еженедельные отчеты, одни​​Клавишу «Создать отчетную таблицу»​​ со строками в​ шаг единичный.​ Sub Макрос1() и​ кода в VBA​ Case 30 To​до​ допускаются пробелы и​ «Range(«C4»).Select» выбирается ячейка​

​ требует знаний программирования,​ правого списка элементов​ Что может быть​ как аргументы (исходные​ старых версиях Excel​ только вы закрываете​ из другого модуля,​ и те же​ требуется нажать всего​ «Эксель», создавая приложения,​Полученные результаты нужно сохранять​ End Sub.​ их необходимо отделять​ 59 MsgBox «The​5​ специальные символы), клавишу​ C4. Оператор «ActiveCell.FormulaR1C1»​ так как код​ «Настройка панели быстрого​ ее проще?​

​ данные для расчета).​ — через меню​ Excel или переключаетесь​ с этого сайта​ действия по обработке​ 1 раз после​ значительно облегчающие работу​​ в ячейки с​​Если копирование было выполнено,​ от объекта точкой.​

Заключение

​ person is adult»​​ячейки​ быстрого вызова, а​ используется для записи​ набирается вручную с​ доступа» следует выделить​Чтобы присвоить свою комбинацию​Чтобы создать пользовательскую функцию​

​Сервис — Макрос -​ в другую программу​
​ или еще откуда​
​ поступивших данных, заполнение​

​ ввода заголовочной информации.​

office-guru.ru

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

​ с этими таблицами.​ номером (i,1). Тогда​ например, из ячейки​ Например, как будет​ Case 18 To​A1:A5​ также, где бы​ действий в формулах,​ клавиатуры. Но, грамотно​ макрос и нажать​ клавиш для определенного​ для расчета, например,​ Макросы​ — запись останавливается.​ нибудь:​ однообразных таблиц или​ Следует знать и​Функции преобразования типа данных.​

Что такое VBA

​ при каждом запуске​ А1 в ячейку​ показано в дальнейшем,​ 29 MsgBox «The​.​ Вы хотели сохранить​ и для других​

​ написанный таким образом​ на кнопку «Изменить».​ макроса следует сделать​ налога на добавленную​(Tools — Macro -​Макрорекордер может записать только​Модуль Эта книга​ бланков и т.д.​ другие правила. В​ Например, CVar возвращает​ цикла с увеличением​

​ C1, то одна​ очень часто при​ person is young»​Для этого на вкладке​ свой макрос. При​ расчетов.​ код, может значительно​ Будет предложена небольшая​ так:​ стоимость (НДС) откроем​ Macros)​ те действия, для​- также виден​ Использование макросов и​ частности, кнопка «Добавить​ значение аргумента Expression,​ i на величину​ из строк кода​ программировании в «Эксель»​ Case 0 To​Developer​ желании, Вы можете​

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

​Попытаемся немного изменить макрос.​ ускорить выполнение процессов.​ галерея иконок для​Снова выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы».​ редактор VBA, добавим​:​ которых есть команды​ в левом верхнем​ пользовательских функций позволяет​ строку» должна нажиматься​ преобразовав его в​ шага автоматически будет​ будет выглядеть, как​

​ используют команду Cells(1,1).Select.​ 17 MsgBox «The​(Разработчик) нажмите​ добавить описание.​ Для этого, в​Прежде, чем начать автоматическую​ нового оформления внешнего​В появившемся диалоговом окне​ новый модуль через​Любой выделенный в списке​

​ меню или кнопки​ углу редактора Visual​ автоматизировать эти операции,​ каждый раз после​ тип данных Variant.​ расти и номер​ Range(“C1”).Select. В переводе​ Она означает, что​

​ person is a​Visual Basic​С этого момента макрос​ макрос допишем выражение:​ запись макросов, нужно​ вида кнопки запуска​

​ «Макрос» выберите желаемую​ меню​ макрос можно запустить​ в Excel. Программист​ Basic в окне,​ перекладывая монотонную однообразную​ ввода в таблицу​Функции работы с датами.​ у строки. Таким​ это выглядит, как​ необходимо выбрать ячейку​ child» Case Else​. Дважды кликните по​ записывает действия. Например,​Range(«C3»).Select​

​ включить макросы в​ макроса с панели​ макропрограмму из списка​Insert — Module​

Как начать

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

​ образом, произойдет оптимизация​ «Диапазон(“C1”).Выделить», иными словами​ с координатами (1,1)​ MsgBox «Unknown age»​ объекту из списка​

• ​ Вы можете ввести​ActiveCell.FormulaR1C1 = «11»​ программе Microsoft Excel.​ инструментов.​ и нажмите на​
• ​и введем туда​
• ​Выполнить​ макрос, который делает​ Explorer. В этот​
• ​ Excel. Другим поводом​ виду деятельности. После​

​ стандартные возможности «Эксель».​

​ кода.​

​ осуществляет переход в​

​ т.е. A1.​

​ End Select End​Microsoft Excel Objects​ слово «​Выражение «ActiveCell.FormulaR1C1 = «=R[-3]C+R[-2]C+R[-1]C»»​Далее, переходим во вкладку​Главным недостатком размещения кнопки​ кнопку «Параметры».​ текст нашей функции:​

​(Run)​ то, что Excel​ модуль обычно записываются​ для использования макросов​ занесения всех данных​ Так, функция WeekdayName​В целом код будет​ VBA Excel, в​Вместе с ней нередко​ Sub​, в котором должен​Hello​ заменим на «ActiveCell.FormulaR1C1​ «Разработчик». Кликаем по​

Макросы в Excel

​ с макросом на​В появившемся диалоговом окне​Обратите внимание, что в​.​ никогда не умел​ макросы, которые должны​ в вашей работе​ требуется нажать кнопку​ возвращает название (полное​ выглядеть, как:​ ячейку С1.​ используется Selection.ClearContents. Ее​Чтобы протестировать этот пример,​ быть сохранён макрос.​» в ячейку​ = «= R[-4]C+R[-3]C+R[-2]C+R[-1]C»».​ кнопке «Запись макроса»,​ панели инструментов является​ «Параметры макроса» в​ отличие от макросов​

Пример 1

​Кнопка​ (сортировку по цвету,​ выполнятся при наступлении​ может стать необходимость​ «Закончить» и затем​

​ или частичное) дня​

• ​Sub program()​
• ​Активную часть кода завершает​
• ​ выполнение означает очистку​
• ​ Вы должны выбрать​

​ Введите вот такой​A1​Закрываем редактор, и запускаем​ которая расположена на​ то, что кнопка​ поле ввода «Сочетание​ функции имеют заголовок​Параметры​ например или что-то​

​ каких-либо событий в​ добавить в Microsoft​ переключиться в окно​ недели по его​For i = 1​ команда ActiveSheet.Paste. Она​ содержимого выбранной ячейки.​ ячейку со значением​ код:​

​.​

• ​ макрос, как и​ ленте в блоке​
• ​ будет всегда доступна​ клавиш: CTRL+» введите​
• ​Function​(Options)​ подобное).​

​ книге (открытие или​ Excel недостающие, но​ «Эксель».​ номеру. Еще более​

​ To 10 Step​ означает запись содержания​Прежде всего требуется создать​ и запустить макрос.​Sub Macro1 ()​Теперь снова нажмите иконку​ в прошлый раз.​ инструментов «Код».​ для других файлов,​ маленькую или большую​вместо​позволяет посмотреть и​

​Если во время записи​ сохранение книги, печать​ нужные вам функции.​Теперь вы знаете, как​ полезной является Timer.​ 1 (можно записать​ выделенной ячейки (в​ файл и сохранить​ Если значение выбранной​ For n =​Macros​ Как видим, вследствие​

​Открывается окно настройки записи​ даже когда файл​ латинскую букву. И​Sub​ отредактировать сочетание клавиш​ макроса макрорекордером вы​ файла и т.п.):​

Пример 2

​ Например функцию сборки​ решать задачи для​ Он выдает число​

​ просто For i​ данном случае А1)​ его, присвоив имя​ ячейки, к примеру,​ 1 To 5​(Макросы) и в​ введенных нами изменений​ макроса. Тут можно​ с этим макросом​ нажмите на кнопку​

​и непустой список​ для быстрого запуска​ ошиблись — ошибка​Модуль листа​ данных с разных​ Excel с помощью​ секунд, которые прошли​ = 1 To​ в выделенную ячейку​

​ и выбрав тип​ равно​ Cells(n, 1) =​ раскрывшемся меню выберите​ была добавлена ещё​ указать любое имя​ будет закрыт. И​

​ ОК.​

​ аргументов (в нашем​

​ макроса.​

​ будет записана. Однако​

​- доступен через​

​ листов на один​ макросов. Умение применять​ с полуночи до​ 10)​ С1.​

​ «Книга Excel с​44​

​ n Next n​Stop Recording​ одна ячейка с​ макроса, если установленное​

​ если в такие​Теперь нажмите свою комбинацию​ случае это​Кнопка​

​ смело можете давить​ Project Explorer и​

​ итоговый лист, разнесения​ vba excel (примеры​ конкретного момента дня.​

​Cells(i, 1).Value = i​

​Циклы VBA помогают создавать​

​ поддержкой макросов».​, то будет показано​ End Sub​(Остановить запись).​ данными. Она также​ по умолчанию вас​ случаи нажать на​ горячих клавиш для​

​Summa​Изменить​ на кнопку отмены​

Пример 3

​ через контекстное меню​ данных обратно, вывод​ программ см. выше)​Функции для преобразования числового​ ^ 2 (т.е.​ различные макросы в​Затем необходимо перейти в​

​ вот такое сообщение:​Сохраните файл. Чтобы выполнить​Доступ к записанному макросу​ была включена в​ не устраивает. Главное,​ кнопку запуска макроса,​ вызова выбранного макроса.​). После ввода кода​(Edit)​

​ последнего действия (Undo)​ листа, т.е. правой​ суммы прописью и​ может понадобиться и​ аргумента в разные​ в ячейку (i,1)​ Excel.​ приложение VB, для​

​Макросы​ макрос, перейдите​

​ можно получить с​ расчет общей суммы.​ чтобы имя это​ тогда откроется файл​ Как видно теперь​

​ наша функция становится​открывает редактор Visual​ — во время​ кнопкой мыши по​ т.д.​ для работы в​

​ системы счисления. Например,​ записывается значение квадрата​Циклы VBA помогают создавать​

​ чего достаточно воспользоваться​– это отличный​View​ помощью команды​В случае, если макрос​ начиналось с буквы,​ где он находиться​

​ вашему макросу присвоена​ доступна в обычном​ Basic (см. выше)​ записи макроса макрорекордером​ ярлычку листа -​Макрос​ среде самого популярного​ Oct выдает в​ i)​ различные макросы. Предположим,​ комбинацией клавиш «Alt»​

​ способ автоматизировать задачи​>​

​View Macros​

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

​ она не просто​ команда​- это запрограммированная​ на данный момент​ восьмеричное представление числа.​

​Next (в некотором смысле​ что имеется функция​ и «F11». Далее:​ в Excel. Эта​

​Macros​

​(Макросы), которая находится​ выполнение может занять​ цифры. Также, в​ выполниться VBA код.​ для быстрого вызова.​ (​ и отредактировать текст​ возрвращает Вас в​Исходный текст (View Source)​ последовательность действий (программа,​ текстового редактора «Ворд».​

Пример 4

​Функции форматирования. Важнейшей из​ играет роль счетчика​ y=x + x2​в строке меню, расположенном​ статья показывает лишь​>​ на вкладке​ значительное время. Но,​ названии не должно​Если вы хотите запускать​Обратите внимание! В диалоговом​Вставка — Функция​ макроса на VBA.​ предыдущее состояние, но​. Сюда записывают макросы,​ процедура), записанная на​ В частности, можно​

​ них является Format.​ и означает еще​ + 3×3 –​ в верхней части​ немногие примеры того,​View Macros​

​View​

​ путем внесения ручного​

​ быть пробелов. Мы​

​ макрос только из​ окне «Параметры макроса»​) в категории​Чтобы не запоминать сочетание​ и стирает последнюю​ которые должны выполняться​

​ языке программирования Visual​

​ путем записи, как​ Она возвращает значение​ один запуск цикла)​ cos(x). Требуется создать​ окна, нажимают на​

​ что можно сделать​(Вид > Макросы​

​(Вид) в выпадающем​ изменения в код,​

​ оставили название по​

​ рабочей книги Excel,​

​ доступно поле для​Определенные пользователем (User Defined)​ клавиш для запуска​ записанную команду на​

Функции VBA

​ при наступлении определенных​ Basic for Applications​ показано в самом​ типа Variant с​End Sub.​ макрос для получения​ иконку рядом с​ при помощи макросов.​ > Макросы), выберите​ меню​ мы можем ускорить​ умолчанию – «Макрос1».​ где он содержит​ ввода его описания.​:​ макроса, лучше создать​

• ​ VBA.​ событий на листе​ (VBA). Мы можем​ начале статьи, или​ выражением, отформатированным согласно​
• ​Если все сделано правильно,​ ее графика. Сделать​ иконкой Excel;​Урок подготовлен для Вас​ из списка название​Macros​ процесс. Добавляем команду​
• ​Тут же, при желании,​ свой исходный код?​ Данное описание будет​
• ​После выбора функции выделяем​ кнопку и назначить​Чтобы включить запись необходимо:​ (изменение данных в​ запускать макрос сколько​ через написание кода​ инструкциям, которые заданы​ в том числе​ это можно только,​выбирают команду Mudule;​ командой сайта office-guru.ru​ нужного макроса и​(Макросы). Откроется диалоговое​ «Application.ScreenUpdating = False».​ можно установить сочетание​ В такие случаи​ доступно внизу при​
• ​ ячейки с аргументами​ ей нужный макрос.​в Excel 2003 и​ ячейках, пересчет листа,​ угодно раз, заставляя​
• ​ создавать кнопки меню,​ в описании формата.​ запись и запуск​ используя циклы VBA.​сохраняют, нажав на иконку​Источник: https://www.ablebits.com/office-addins-blog/2012/05/03/tutorial-excel-macros/​ нажмите​ окно​ Она позволит сохранить​ клавиш, при нажатии​ прекрасным решением будет​ выборе макроса из​ (с суммой, для​
• ​ Кнопка может быть​ старше — выбрать​ копирование или удаление​ Excel выполнять последовательность​ благодаря которым многие​
• ​и пр.​ макроса (см. инструкцию​За начальное и конечное​ с изображением floppy​Перевел: Антон Андронов​Run​Macro​
• ​ вычислительные мощности, а​

​ на которые макрос​ создание кнопки на​ списка. Рекомендуем всегда​ которой надо посчитать​

Пример 5

​ нескольких типов:​ в меню​ листа и т.д.)​

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

• ​ выше), то при​ значение аргумента функции​ disk;​
• ​Автор: Антон Андронов​(Выполнить).​(Макрос), в котором​ значит ускорить работу.​ будет запускаться. Первой​ листе Excel и​ подписывать свои макросы.​

​ НДС) как в​Кнопка на панели инструментов​

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

​Сервис — Макрос -​Обычный макрос, введенный в​ действий, которые нам​ можно будет осуществлять​ и их применение​ его вызове каждый​ берут x1=0 и​пишут, скажем так, набросок​Немногие знают, что первая​Следующий код отображает фразу​ Вы сможете выбрать​ Это достигается путем​ клавишей обязательно должна​ назначить ей запуск​ Такой пользовательский тон​ случае с обычной​ в Excel 2003​ Начать запись​

Переменные

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

• ​ x2=10. Кроме того,​ кода.​
• ​ версия популярного продукта​ «​ нужный. Дважды кликните​
• ​ отказа от обновления​ быть клавиша Ctrl,​ конкретного макроса. Для​
• ​ этики работы с​ функцией:​ и старше​

​(Tools — Macro -​ примерно так:​ вручную.​ или через вкладку​ сферу применения «Эксель».​ столбец заданного размера​ необходимо ввести константу​Он выглядит следующим образом:​

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

​ Microsoft Excel появилась​Hello World​ по имени макроса,​ экрана во время​ а вторую клавишу​ этого:​ Excel будет высоко​Если уже имеете код​Откройте меню​

​ Record New Macro)​Давайте разберем приведенный выше​В принципе, существует великое​ «Вид» и пиктограмму​

​Попробуем перейти к решению​ (в данном случае​ — значение для​Sub program ()​ в 1985 году.​

​» в окне сообщений​ чтобы выполнить программу.​ выполнения вычислительных действий.​ пользователь устанавливает самостоятельно.​Выберите инструмент: «РАЗРАБОТЧИК»-«Элементы управления»-«Вставить»-«Кнопка​ оценен, когда список​ макроса записанный в​Сервис — Настройка​

​в Excel 2007 и​ в качестве примера​ множество языков программирования​ «Макросы».​ более сложных задач.​

​ состоящий из 10​ шага изменения аргумента​’Наш код​ С тех пор​

​ Windows.​Кроме этого, Вы можете​ Чтобы возобновить обновление​ Например, мы, в​ (элемент управления формы».​ пополниться десятками макросов.​ рабочей книге или​(Tools — Customize)​ новее — нажать​ макрос​ (Pascal, Fortran, C++,​Автор: Наира​ Например:​ ячеек).​ и начальное значение​End Sub​ он пережил несколько​

​Sub MacroName() MsgBox​ связать макрос с​ после выполнения макроса,​ качестве примера, установили​Выделите курсором мышки место​Полезный совет! Старайтесь не​ надстройке, можно его​и перейдите на​ кнопку​Zamena​ C#, Java, ASP,​Примечание:​Дан бумажный документ отчета​В повседневной жизни сплошь​ для счетчика.​Обратите внимание, что строка​ модификаций и востребован​ («Hello World!») End​ кнопкой. Для этого:​ в его конце​ клавишу М.​ где и как​ использовать популярные комбинации​ запустить и выполнить​

​ вкладку​

fb.ru

Редактирование макроса

​Запись макроса (Record macro)​​:​ PHP…), но для​Мы стараемся как​ фактического уровня издержек​ и рядом возникает​Все примеры макросов VBA​ «’Наш код» будет​ у миллионов пользователей​ Sub​На вкладке​ пишем команду «Application.ScreenUpdating​Далее, нужно определить, где​ будет вставлена кнопка​ горячих клавиш для​ несколькими способами. Если​Команды (Commands)​на вкладке​Любой макрос должен начинаться​ всех программ пакета​ можно оперативнее обеспечивать​ предприятия. Требуется:​

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

​В следующем примере мы​​File​ = True»​ будет храниться макрос.​ для запуска макроса.​

Изменение параметров безопасности макросов

​ работы с Excel:​ еще нет кода​. В категории​

1. ​Разработчик (Developer)​​ с оператора​​ Microsoft Office стандартом​​ вас актуальными справочными​​разработать его шаблонную часть​​ или иное решение​​ той же процедуре,​

   

2. ​ (зеленым). Причина в​​ При этом многие​​ создаём сообщение с​​(Файл) нажмите​Добавим также команду «Application.Calculation​ По умолчанию, он​​В появившемся окне «Назначить​ CTRL+S; CTRL+A; CTRL+T;​​ макроса или вы​​Макросы​

   ​Затем необходимо настроить параметры​​Sub​ является именно встроенный​ материалами на вашем​ посредством табличного процессора​ в зависимости от​ которая представлена выше.​

Редактирование макроса

1. ​ апострофе, поставленном в​​ работают лишь с​​ выбором​​Options​​ = xlCalculationManual» вначале​​ будет храниться в​​ макрос объекту» из​

2. ​ CTRL+C; CTRL+V; CTRL+SHIFT+L​​ еще не знаете,​​легко найти веселый​ записываемого макроса в​

3. ​, за которым идет​​ язык VBA. Команды​​ языке. Эта страница​ «Эксель»;​

​ какого-то условия. Не​​ В данном конкретном​ начале строки, который​ малой толикой возможностей​Yes​​(Параметры) >​​ кода, а в​​ этой же книге​​ списка доступным макросов​ и т.п. Ведь​

support.office.com

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

Введение

​ как его написать,​ желтый «колобок» -​ окне​ имя макроса и​ этого языка понимает​ переведена автоматически, поэтому​составить программу VBA, которая​ обойтись без них​ случае код выглядит,​ обозначает, что далее​ этого табличного процессора​(Да) или​Quick Access Toolbar​ конце кода дописываем​ (файле), но при​ выберите желаемый и​ тогда их предназначение​ тогда сначала прочитайте​Настраиваемую кнопку​Запись макроса​ список аргументов (входных​ любое офисное приложение,​ ее текст может​ будет запрашивать исходные​ и в VBA​ как:​ следует комментарий.​ и даже не​No​(Панель быстрого доступа).​ «Application.Calculation = xlCalculationAutomatic».​ желании можно установить​ нажмите на кнопку​ будет изменено. В​ статью: Как написать​

​(Custom button)​​:​ значений) в скобках.​ будь то Excel,​ содержать неточности и​ данные для ее​ Excel. Примеры программ,​Sub programm()​Теперь вы можете написать​ догадываются, как им​(Нет). Если выбрать​В поле​ Этим мы вначале​ хранение в новой​

​ ОК.​ окне «Параметры макроса»​ макрос в Excel​:​Имя макроса​ Если аргументов нет,​ Word, Outlook или​ грамматические ошибки. Для​ заполнения, осуществлять необходимые​ где дальнейший ход​x1 = 1​ любой код и​ могло бы облегчить​ вариант​

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

​Choose commands from​ макроса отключаем автоматический​ книге, или в​Теперь нужно назначить кнопку​ так же присутствует​ на языке программирования​Перетащите ее к себе​

• ​- подойдет любое​ то скобки надо​ Access.​ нас важно, чтобы​​ расчеты и заполнять​ выполнения алгоритма выбирается,​ ​x2 = 10​ создать для себя​​ жизнь умение программирования​
• ​Yes​(Выбрать команды из)​ пересчет результата после​ отдельной книге макросов.​​ макросу. Правой кнопкой​​ возможность использовать в​​ VBA.​ на панель инструментов​ имя на русском​ оставить пустыми.​​Для ввода команд и​ эта статья была​ ими соответствующие ячейки​​ а не предопределен​​shag = 0.1​ новый инструмент в​ в Excel.​(Да), то значение​ выберите​ каждого изменения ячеек,​ Мы оставим значение​​ мышки щелкните по​ ​ комбинациях клавиш клавишу​
  
  ​В данной статье для​

​ и затем щелкните​ или английском языке.​Любой макрос должен заканчиваться​ формирования программы, т.е.​ вам полезна. Просим​ шаблона.​ изначально, чаще всего​i = 1​

​ VBA Excel (примеры​Программирование в Excel осуществляется​ ячейки будет удалено.​All Commands​ а в конце​ по умолчанию.​ созданной кнопке и​ SHIFT. Как только​ Вас буде приведет​ по ней правой​ Имя должно начинаться​ оператором​ создания макроса необходимо​ вас уделить пару​Рассмотрим один из вариантов​ используют конструкцию If​Do While x1 <​ программ см. далее).​ посредством языка программирования​Sub MacroName() Dim​(Все команды).​

• ​ макроса – включаем.​​В самом нижнем поле​ в появившемся контекстном​ вы придадите фокус​ пошаговый пример с​ кнопкой мыши. В​ с буквы и​​End Sub​​ открыть специальное окно​ секунд и сообщить,​ решения.​ …Then (для сложных​ x2 (цикл будет​ Конечно, тем, кто​ Visual Basic for​ Answer As String​Найдите команду​ Таким образом, Excel​
  
• ​ настройки макросов можно​​ меню выберите опцию​ клавиатуры для поля​ картинками и фрагментом​ контекстом меню можно​ не содержать пробелов​.​ — редактор программ​ помогла ли она​Все действия осуществляются на​ случаев) If …Then​ выполняться пока верно​ знаком с азами​ Application, который изначально​
  
• ​ Answer = MsgBox(«Are​​Option Button​ подсчитает результат только​ оставить любое подходящее​ «Изменить текст». Удалите​ ввода «Сочетание клавиш:​ простейшего готового кода​ назначить кнопке макрос,​​ и знаков препинания.​​Все, что находится между​ на VBA, встроенный​ вам, с помощью​ стандартном листе в​ …END If.​ выражение x1 <​ Visual Basic, будет​ встроен в самый​
  

​ you sure you​(Кнопка), нам нужна​ один раз, а​

​ по контексту описание​ старый и введите​ CTRL+» и попытаетесь​​ VBA.​​ выбрать другой значок​

• ​Сочетание клавиш​Sub​​ в Microsoft Excel.​​ кнопок внизу страницы.​ Excel. Резервируются свободные​Рассмотрим конкретный случай. Предположим,​ x2)​ намного проще. Однако​ известный табличный процессор​ want to delete​
• ​ та, что относится​ не будет его​​ данного макроса. Но,​​ новый текст «Мой​
• ​ ввести большую букву​​Например, самый простой способ​​ и имя:​​- будет потом​​и​В старых версиях (Excel​ Для удобства также​ ячейки для внесения​ необходимо создать макрос​y=x1 + x1^2 +​ даже те, кто​ от Microsoft.​ the cell values​ к разделу​ постоянно пересчитывать, чем​ это делать не​ макрос».​ для комбинации, естественно​ запустить макрос для​

​Кнопка на панели быстрого​ использоваться для быстрого​End Sub​ 2003 и старше)​ приводим ссылку на​ данных по месяцу,​ для «Эксель», чтобы​ 3*x1^3 – Cos(x1)​ их не имеет,​К его достоинствам специалисты​ ?», vbQuestion +​Form Control​ сэкономит время.​ обязательно.​После создания кнопки можно​ с использованием клавиши​ понимания, но сложный​ доступа в Excel​ запуска макроса. Если​

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

​- тело макроса,​​ для этого идем​ оригинал (на английском​ году, названию компании-потребителя,​ в ячейку с​Cells(i, 1).Value = x1​ при желании смогут​ относят сравнительную легкость​ vbYesNo, «Delete cell»)​(Элементы управления формы).​Продвинутые пользователи могут выполнять​Когда все настройки выполнены,​ ее настроить, изменив​ SHIFT на клавиатуре,​ для реализации:​ 2007 и новее​ забудете сочетание или​ т.е. команды, которые​ в меню​ языке) .​ сумме издержек, их​ координатами (1,1) было​ (значение x1 записывается​ освоиться достаточно быстро.​ освоения. Как показывает​ If Answer =​ Выделите ее и​ не только редактирование​ жмем на кнопку​ ее размеры и​ сразу название поля​Выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы».​Щелкните правой кнопкой мыши​ вообще его не​ будут выполняться при​Сервис — Макрос -​

• ​Чтобы отредактировать макрос, который​ уровня, товарооборота. Так​ записано:​ в ячейку с​За таким названием скрываются​ практика, азами VBA​ vbYes Then ActiveCell.ClearContents​ нажмите​
• ​ и оптимизацию записанных​ «OK».​ положение на листе.​ ввода поменяется на​В появившемся окне «Макрос»​ по панели быстрого​ введете, то макрос​ запуске макроса. В​ Редактор Visual Basic​ вложен в книге​ как количество компаний​1, если аргумент положительный;​
• ​ координатами (i,1))​ программы, написанные на​ могут овладеть даже​ End If End​Add​ макросов, но и​После этого, все ваши​ Для этого снова​ «Сочетание клавиш: CTRL+​ из списка всех​ доступа в левом​ можно будет запустить​ данном случае макрос​(Toos — Macro -​ Microsoft Excel, используйте​

​ (обществ), относительно которых​

• ​0, если аргумент нулевой;​Cells(i, 2).Value = y​ языке Visual Basic​​ пользователи, которые не​ Sub​ ​(Добавить). Затем нажмите​ записывать код макросов​
• ​ действия в данной​ щелкните правой кнопкой​ SHIFT+».​​ в первую очередь​​ верхнем углу окна​​ через меню​

​ выделяет ячейку заливает​ Visual Basic Editor)​ редактор Visual Basic.​​ составляется отчет, не​​-1, если аргумент отрицательный.​

• ​ (значение y записывается​​ for Application. Таким​ имеют навыков профессионального​Давайте проверим этот код.​ОК​ с нуля. Для​ книге (файле) Excel​ мышки по кнопке,​
• ​В результате будет немного​​ доступных макросов для​ Excel и выберите​Сервис — Макрос -​ выделенных диапазон (Selection)​.​Важно:​ зафиксировано, ячейки для​Создание такого макроса для​​ в ячейку с​ образом, программирование в​ ​ программирования. К особенностям​ Выделите ячейку и​​, чтобы закрыть параметры​ того, чтобы приступить​​ будут записываться в​​ а потом нажмите​​ длиннее комбинация, которая​​ данной рабочей книги​
• ​ команду​​ Макросы — Выполнить​ желтым цветом (код​В новых версиях (Excel​ Перед началом работы с​ внесения значений по​ «Эксель» начинается стандартным​ координатами (i,2))​
• • ​ Excel — это​​ VBA относится выполнение​ запустите макрос. Вам​ Excel.​ к этому, нужно​ макрос до тех​ клавишу Esc на​ позволит расширить варианты,​
  • ​ Excel выберите любой​​Настройка панели быстрого доступа​(Tools — Macro -​ = 6) и​ 2007 и новее)​ макросами, необходимо включить​ итогам и ФИО​ способом, через использование​i = i +​ создание макросов с​ скрипта в среде​ будет показано вот​
  • ​Выберите команду, только что​​ нажать на кнопку​ пор, пока вы​ клавиатуре, чтобы скрыть​​ чтобы обойти часто​​ понравившийся вам и​ (Customise Quick Access​ Macros — Run)​​ затем проходит в​​ для этого нужно​ вкладки «Разработчик». Подробнее​ специалиста заранее не​ «горячих» клавиш Alt​ 1 (действует счетчик);​ нужным кодом. Благодаря​

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

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

​ нажмите на кнопку​ Toolbar)​или с помощью​ цикле по всем​​ сначала отобразить вкладку​​ читайте вкладку «Разработчик».​​ резервируют. Рабочему листу​​ и F11. Далее​x1 = x1 +​ этой возможности табличный​​Недостатком программы являются проблемы,​Если Вы нажмёте​ ​ быстрого доступа, и​ расположена в самом​​ запись.​

• ​ кнопки появляться маркеры,​Excel позволяет пользователям запускать​ «Выполнить».​​:​ ​ кнопки​​ ячейкам, заменяя формулы​
• ​Разработчик (Developer)​​Для редактирования и запуска​ ​ присваивается новое название.​​ записывается следующий код:​ shag (аргумент изменяется​ процессор Microsoft саморазвивается,​ связанные с совместимостью​
• ​Yes​​ начертите контур кнопки​ ​ начале ленты разработчика.​​Для примера, запишем простейшее​ с помощью которых​ макросы с помощью​Программа макроса выполнить свои​Затем в открывшемся окне​

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

​Макросы (Macros)​ на значения. В​. Выбираем​ макросов требуется временно​ Например, «Օтчет».​Sub program()​ на величину шага);​

​ подстраиваясь под требования​ различных версий. Они​(Да), значение в​

​ на рабочем листе​​После этого, открывается знакомое​ ​ арифметическое действие: сложение​​ можно изменять ее​ панели быстрого доступа​​ функции.​​ выберите категорию​​на вкладке​​ конце выводится окно​Файл — Параметры -​​ включить их.​ ​Для написания программы автоматического​​x= Cells(1, 1).Value (эта​

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

​Теперь мы можем двигаться​Макросы​Разработчик (Developer)​

​ сообщения (MsgBox).​ Настройка ленты (File​На вкладке​ заполнения шаблона, необходимо​ команда присваивает x​End Sub.​​ с тем, как​ код программы VBA​ удалено. А если​​Назначьте макрос объекту.​

​ VBE.​ (=C4+C5+C6).​​ мышки на любой​​ панель по умолчанию​ от простого к​​и при помощи​​или нажав ALT+F8.​С ходу ясно, что​ — Options -​Разработчик​

​ выбрать обозначения. Они​

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

• ​После этого, жмем на​ маркер на гранях​ находиться в самом​​ еще простейшему) Ведь​​ кнопки​​Сохранить в…​ вот так сразу,​ Customize Ribbon)​в группе​
• ​ будут использоваться для​ с координатами (1,​ макроса в «Эксель»​​ написания макросов, можно​​ возможностям, которые присутствуют​​(Нет) – значение​​Если у вас​

​ макроса вручную.​​ кнопку «Остановить запись».​

​ или углах кнопки​ верху окна программы.​ запускать макросы таким​Добавить (Add)​- здесь задается​ без предварительной подготовки​и включаем в​Код​

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

​ переменных:​ 1))​ получаем два столбца,​ приступать к рассмотрению​ в новой версии​ сохранится.​ включена вкладка​Как видим, макросы в​ Эта кнопка преобразовалась​ и удерживая левую​Чтобы запустить макрос с​ способом весьма неудобно.​перенесите выбранный макрос​ место, куда будет​ и опыта в​ правой части окна​нажмите кнопку​NN– номер текущей строки​If x>0 Then Cells(1,​ в первом из​

​ конкретных примеров программ​ продукта, но отсутствуют​В Microsoft Excel Вы​Developer​ Microsoft Excel могут​ из кнопки «Запись​ клавишу мышки перетягивайте,​​ помощью панели быстрого​​ Далее рассмотрим более​ в правую половину​

​ сохранен текст макроса,​ программировании вообще и​ флажок​​Безопасность макросов​​ таблицы;​​ 1).Value = 1​​ которых записаны значения​ VBA Excel. Лучше​ в старой. Также​​ также можете использовать​​(Разработчик), то получить​ значительно ускорить выполнение​ макроса», после включения​ изменяя таким образом​ доступа, требуется сделать​​ простые варианты.​​ окна, т.е. на​​ т.е. набор команд​​ на VBA в​

​Разработчик (Developer)​.​TP и TF –​If x=0 Then Cells(1,​ для x, а​ всего начать с​ к минусам относят​

planetaexcel.ru

Как запустить макрос в Excel разными способами

​ конструкцию​ доступ к элементам​ рутинных и однообразных​ записи.​ ее размеры. Теперь​ так:​Полезный совет! Если вы​ панель быстрого доступа:​ на VBA из​ частности, сложновато будет​. Теперь на появившейся​В разделе​ планируемый и фактический​ 1).Value = 0​ во втором —​

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

Как выполнить макрос VBA в Excel

​ нажмите на кнопку​Щелкните на самую последнюю​ хотите отредактировать макрос​Кнопка на листе​

1. ​ которых и состоит​
2. ​ сообразить какие именно​ вкладке нам будут​Параметры макросов​ товарооборот;​If x​ для y.​Задача: написать программу, которая​ открытость кода для​. В этом коде​

​ с нее. Для​ большинстве случаев, для​

​ как работает записанный​ левой кнопкой мышки​ кнопку на панели​ тогда выберите его​Этот способ подходит для​ макрос.:​ команды и как​

​ доступны основные инструменты​выберите параметр​SF и SP –​End Sub.​Затем по ним строится​ будет копировать значение​ изменения посторонним лицом.​ мы будем раскрашивать​ этого перейдите на​ этого больше подходят​ макрос, кликаем в​ и удерживая ее​ быстрого доступа (стрелка​ в списке выше​ любой версии Excel.​Эта книга​ надо вводить, чтобы​ для работы с​Включить все макросы (не​ фактическая и планируемая​Остается запустить макрос и​

​ график способом, стандартным​ содержимое одной ячейки​ Тем не менее​ ячейки в зависимости​ вкладку​ макросы, код которых​ том же блоке​ перемещайте кнопку по​ вниз), чтобы получить​ описанного инструмента и​ Мы добавим кнопку​- макрос сохраняется​ макрос автоматически выполнял​ макросами, в том​ рекомендуется, возможен запуск​ сумма издержек;​ получить в «Эксель»​ для «Эксель».​ и затем записывать​ Microsoft Office, а​ от их значения.​Developer​ написан вручную, а​

​ инструментов «Код» по​

Запуск макроса с помощью горячих клавиш

​ листу документа Excel​ доступ к меню​ нажмите на кнопку​ запуска макроса прямо​ в модуль текущей​ все действия, которые,​ числе и нужная​ опасной программы)​IP и IF –​ нужное значение для​

​Для реализации циклов в​ в другую.​ также IBM Lotus​ Если значение в​

1. ​(Разработчик), нажмите на​
2. ​ не автоматически записанные​ кнопке «Макросы», или​ в любое другое​ «Настроить панель», в​ «Войти», а не​
3. ​ на рабочий лист,​ книги и, как​ например, Вы делаете​ нам кнопка​, а затем нажмите​ планируемый и фактически​ аргумента.​ VBA Excel 2010,​

​Для этого:​ Symphony позволяют пользователю​ ячейке больше​ иконку​ действия. Кроме того,​ жмем сочетание клавиш​ место. Чтобы затвердить​

​ котором необходимо выбрать​ используйте кнопку «Изменить».​ как графический объект.​ следствие, будет выполнятся​ для создания еженедельного​Редактор Visual Basic​ кнопку​ уровень издержек.​Как вы уже могли​ как и в​открывают вкладку «Вид»;​ применять шифрование начального​20​Insert​

​ код макроса можно​ Alt+F8.​ все изменения кнопки​ опцию «Другие команды».​ С помощью кнопки​ Для этого:​ только пока эта​ отчета для руководства​(Visual Basic Editor)​ОК​Обозначим теми же буквами,​ заметить, программировать в​ других версиях, наряду​переходят на пиктограмму «Макросы»;​ кода и установку​, то шрифт станет​(Вставить) и из​ оптимизировать через редактор​После этого, открывается окно​ сделайте щелчок левой​ В результате чего​ войти вы всегда​В Excel 2003 и​ книга открыта в​ компании. Поэтому мы​:​

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

Как запустить макрос на панели быстрого доступа

​ пароля для его​ красным, иначе –​ раскрывающегося меню выберите​ VBE для ускорения​ со списком записанных​ кнопкой мышки в​ откроется окно «Параметры​

​ сможете перейти к​ старше — откройте​ Excel​ переходим ко второму​

1. ​К сожалению, интерфейс редактора​Предупреждение:​ Itog накопление итога​ процессоре Microsoft не​ конструкцией Do While​заполняют открывшуюся форму.​ просмотра.​ синим.​ нужный элемент.​ процесса выполнения задачи.​ макросов. Ищем макрос,​ любую область листа​ Excel», к которому​ исходному коду выбранного​ панель инструментов​Новая книга​ способу создания макросов,​ VBA и файлы​ Для защиты от запуска​ по данному столбцу.​ так уж сложно.​
2. ​ используется For.​Для простоты в поле​Именно с этими понятиями​
3. ​Sub MacroName() Dim​Не знаете, как отобразить​Автор: Максим Тютюшев​ который мы записали,​ (например, по любой​ можно было получить​ макроса. Автоматически откроется​Формы​- макрос сохраняется​ а именно…​ справки не переводятся​ потенциально опасных программ​ Например, ItogTP –​ Особенно, если научиться​Рассмотрим программу, которая создаст​ «Имя макроса» оставляют​ нужно разобраться тем,​

​ CellValue As Integer​ вкладку​Создаём макрос при помощи​ выделяем его, и​ ячейке) вне области​ доступ и другим​

​ редактор Visual Basic​через меню​ в шаблон, на​Макрорекордер​ компанией Microsoft на​ после окончания работы​ касается столбца таблицы,​ применять функции VBA.​ столбец. В каждой​ «Макрос1», а в​ кто собирается работать​ CellValue = ActiveCell.Value​Developer​ команды Запись макроса​ жмем на кнопку​ кнопки.​

​ путем: «ФАЙЛ»-«Параметры»-«Панель быстрого​ именно в том​Вид — Панели инструментов​ основе которого создается​- это небольшая​ русский язык, поэтому​ с макросами рекомендуется​ озаглавленного, как «планируемый​ Всего в этом​ его ячейке будут​ поле «Сочетание клавиш»​ в среде VBA.​ If CellValue >​(Разработчик)? Excel 2007:​Цикл FOR​ «Выполнить».​

Запуск макроса с помощью кнопки на рабочем листе Excel

​Теперь если мы нажмем​ доступа». Или щелкнув​ месте где написан​ — Формы (View​ любая новая пустая​ программа, встроенная в​ с английскими командами​ вернуть настройки, отключающие​ товарооборот».​ языке программирования, созданном​ записаны квадраты номера​ вставляют, например, hh​

1. ​ Прежде всего необходимо​ 20 Then With​
2. ​ жмем на кнопку​Конструкция IF​Можно поступить ещё проще,​ на кнопку левой​
3. ​ правой кнопкой мышки​ код данного макроса.​ — Toolbars -​ книга в Excel,​ Excel, которая переводит​ в меню и​
4. ​ все макросы.​Используя введенные обозначения, получаем​ специально для написания​ соответствующей строки. Использование​ (это значит, что​ понять, что такое​ Selection.Font .Color =​Office​Конструкция CASE​ и не вызывать​

​ кнопкой мышки сразу​ по любой панели​ Кнопка «Изменить» к​ Forms)​ т.е. макрос будет​ любое действие пользователя​ окнах придется смириться:​На вкладке​ формулы для отклонений.​ приложений в «Эксель»​ конструкции For позволит​ запустить программку можно​ объект. В Excel​ -16776961 End With​>​Многие люди думают, что​ даже окно выбора​ же выполниться назначенный​ Excel на любой​ сожалению, не для​В Excel 2007 и​ содержаться во всех​ на язык программирования​Макросы (т.е. наборы команд​Разработчик​ Если требуется осуществить​ и Word, около​ записать ее очень​ будет блиц-командой «Ctrl+h»).​ в этом качестве​ Else With Selection.Font​Excel Options​ макросы в Excel​ макросов. Мы же​ ей код VBA.​ закладке и выбрать​

​ всех макросов работает​ новее — откройте​ новых книгах, создаваемых​ VBA и записывает​ на языке VBA)​

exceltable.com

​в группе​

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

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

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

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

Создать макрос в Excel с помощью макрорекордера

Для начала проясним, что собой представляет макрорекордер и при чём тут макрос.

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

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

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

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

• в версии Excel от 2007 и к более новым вам нужно на вкладке «Разработчик» нажать кнопочку «Запись макроса»
• в версиях Excel от 2003 и к более старым (они еще очень часто используются) вам нужно в меню «Сервис» выбрать пункт «Макрос» и нажать кнопку «Начать запись».

 Sub ОтносительныеСсылки() ' ' ОтносительныеСсылки Макрос ' ' ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.FormulaR1C1 = "Excel" ActiveCell.Offset(1, 0).Range("A1").Select End Sub 

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

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

В этом руководстве я расскажу о создании и использовании пользовательских функций в VBA.

Что такое функциональная процедура в VBA?

Процедура Function — это код VBA, который выполняет вычисления и возвращает значение (или массив значений).

Используя процедуру Function, вы можете создать функцию, которую вы можете использовать на рабочем листе (как и любую обычную функцию Excel, такую ​​как SUM или VLOOKUP).

Когда вы создали процедуру Function с использованием VBA, вы можете использовать ее тремя способами:

1. В качестве формулы на рабочем листе, где она может принимать аргументы в качестве входных данных и возвращать значение или массив значений.
2. Как часть кода вашей подпрограммы VBA или другого кода функции.
3. В условном форматировании

Хотя на рабочем листе уже имеется более 450 встроенных функций Excel, вам может потребоваться настраиваемая функция, если:

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

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

Функция против Подпрограммы в VBA

«Подпрограмма» позволяет вам выполнять набор кода, в то время как «Функция» возвращает значение (или массив значений).

Например, если у вас есть список чисел (как положительных, так и отрицательных), и вы хотите идентифицировать отрицательные числа, вот что вы можете сделать с помощью функции и подпрограммы.

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

С пользовательской функцией вы можете использовать ее в отдельном столбце, и она может возвратить TRUE, если значение в ячейке отрицательное, и FALSE, если оно положительное. С помощью функции вы не можете изменять свойства объекта. Это означает, что вы не можете изменить цвет ячейки с помощью самой функции (однако вы можете сделать это, используя условное форматирование с пользовательской функцией).

Когда вы создаете пользовательскую функцию (UDF) с использованием VBA, вы можете использовать эту функцию на листе, как и любую другую функцию. Я расскажу об этом подробнее в разделе «Различные способы использования пользовательских функций в Excel».

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

Позвольте мне создать простую пользовательскую функцию в VBA и показать вам, как она работает.

Приведенный ниже код создает функцию, которая извлекает числовые части из буквенно-цифровой строки.

Function GetNumeric(CellRef As String) as Long
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1)
Next i
GetNumeric = Result
End Function

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

Ниже показано, как эту функцию — GetNumeric — можно использовать в Excel.

Теперь, прежде чем я расскажу вам, как эта функция создается в VBA и как она работает, вам нужно знать несколько вещей:

• Когда вы создаете функцию в VBA, она становится доступной во всей книге, как и любая другая обычная функция.
• Когда вы вводите имя функции, за которым следует знак равенства, Excel покажет вам имя функции в списке совпадающих функций. В приведенном выше примере, когда я ввел = Get, Excel показал мне список, в котором была моя пользовательская функция.

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

Анатомия пользовательской функции в VBA

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

Теперь давайте углубимся и посмотрим, как создается эта функция. Вы должны поместить приведенный ниже код в модуль в VB Editor. Я рассматриваю эту тему в разделе «Где разместить код VBA для пользовательской функции».

Function GetNumeric(CellRef As String) as Long
' Эта функция извлекает числовую часть из строки
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1)
Next i
GetNumeric = Result
End Function

Первая строка кода начинается со слова «Функция».

Это слово говорит VBA, что наш код является функцией (а не подпрограммой). За словом Function следует имя функции — GetNumeric. Это имя, которое мы будем использовать на листе, чтобы использовать эту функцию.

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

За именем функции следуют некоторые аргументы в скобках. Это аргументы, которые нужны нашей функции от пользователя. Это как аргументы, которые мы должны предоставить встроенным функциям Excel. Например, в функции COUNTIF есть два аргумента (диапазон и критерии).

В скобках необходимо указать аргументы.

В нашем примере есть только один аргумент — CellRef.

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

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

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

Здесь я могу использовать числовой тип данных (например, Long или Double), но это ограничит диапазон возвращаемых чисел. Если у меня есть строка длиной 20 номеров, которую мне нужно извлечь из общей строки, объявление функции как Long или Double приведет к ошибке (так как число будет вне диапазона). Поэтому я сохранил тип выходных данных функции как String.

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

Третья строка кода объявляет переменную StringLength как тип данных Integer. Это переменная, в которой мы храним значение длины строки, которая анализируется по формуле.

В четвертой строке переменная Result объявляется как тип данных String. Это переменная, в которой мы будем извлекать числа из буквенно-цифровой строки.

Пятая строка назначает длину строки во входном аргументе переменной «StringLength». Обратите внимание, что «CellRef» относится к аргументу, который будет предоставлен пользователем при использовании формулы в рабочей таблице (или при использовании ее в VBA — которую мы увидим позже в этом руководстве).

Шестая, седьмая и восьмая строки являются частью цикла For Next. Цикл выполняется столько раз, сколько символов во входном аргументе. Этот номер задается функцией LEN и присваивается переменной «StringLength».

Таким образом, цикл проходит от «1 до Stringlength».

Внутри цикла оператор IF анализирует каждый символ строки и, если он числовой, добавляет этот числовой символ в переменную Result. Для этого он использует функцию MID в VBA.

Вторая последняя строка кода присваивает значение результата функции. Именно эта строка кода гарантирует, что функция вернет значение «Result» обратно в ячейку (откуда она вызывается).

Последняя строка кода — End Function. Это обязательная строка кода, которая сообщает VBA, что код функции заканчивается здесь.

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

Аргументы в пользовательской функции в VBA

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

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

Создание функции в VBA без каких-либо аргументов

В листе Excel у нас есть несколько функций, которые не принимают аргументов (например, RAND, TODAY, NOW).

Эти функции не зависят от входных аргументов. Например, функция TODAY возвращает текущую дату, а функция RAND возвращает случайное число в диапазоне от 0 до 1.

Вы можете создать такую же функцию в VBA.

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

Function WorkbookName() As String
WorkbookName = ThisWorkbook.Name
End Function

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

Эта функция присваивает функции значение «ThisWorkbook.Name», которое возвращается, когда функция используется на рабочем листе.

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

Выше есть одна проблема, хотя.

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

При желании вы можете форсировать пересчет с помощью сочетания клавиш — Control + Alt + F9.

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

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

Function WorkbookName() As String
Application.Volatile True
WorkbookName = ThisWorkbook.Name
End Function

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

Создание функции в VBA с одним аргументом

В одном из разделов выше мы уже видели, как создать функцию, которая принимает только один аргумент (функция GetNumeric, описанная выше).

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

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

Function ConvertToUpperCase(CellRef As Range)
ConvertToUpperCase = UCase(CellRef)
End Function

Эта функция использует функцию UCase в VBA для изменения значения переменной CellRef. Затем он присваивает значение функции ConvertToUpperCase.

Поскольку эта функция принимает аргумент, нам не нужно использовать здесь часть Application.Volatile. Как только аргумент изменится, функция автоматически обновится.

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

Точно так же, как функции рабочего листа, вы можете создавать функции в VBA, которые принимают несколько аргументов.

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

Function GetDataBeforeDelimiter(CellRef As Range, Delim As String) as String
Dim Result As String
Dim DelimPosition As Integer
DelimPosition = InStr(1, CellRef, Delim, vbBinaryCompare) - 1
Result = Left(CellRef, DelimPosition)
GetDataBeforeDelimiter = Result
End Function

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

Обратите внимание, что для каждого аргумента вы можете указать тип данных. В приведенном выше примере «CellRef» был объявлен как тип данных диапазона, а «Delim» был объявлен как тип данных String. Если вы не укажете какой-либо тип данных, VBA считает, что это вариант данных.

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

Затем он проверяет положение разделителя с помощью функции INSTR в VBA. Эта позиция затем используется для извлечения всех символов перед разделителем (используя функцию LEFT).

Наконец, он присваивает результат функции.

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

Function GetDataBeforeDelimiter(CellRef As Range, Delim As String) as String
Dim Result As String
Dim DelimPosition As Integer
DelimPosition = InStr(1, CellRef, Delim, vbBinaryCompare) - 1
If DelimPosition < 0 Then DelimPosition = Len(CellRef)
Result = Left(CellRef, DelimPosition)
GetDataBeforeDelimiter = Result
End Function

Мы можем дополнительно оптимизировать эту функцию.

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

Это происходит, когда мы указали «CellRef» в качестве типа данных диапазона.

Или, если вы хотите, чтобы разделитель находился в ячейке и использовал ссылку на ячейку вместо жесткого кодирования в формуле, вы не можете сделать это с помощью приведенного выше кода. Это потому, что Delim был объявлен как строковый тип данных.

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

Код ниже сделает это:

Function GetDataBeforeDelimiter(CellRef, Delim) As String
Dim Result As String
Dim DelimPosition As Integer
DelimPosition = InStr(1, CellRef, Delim, vbBinaryCompare) - 1
If DelimPosition < 0 Then DelimPosition = Len(CellRef)
Result = Left(CellRef, DelimPosition)
GetDataBeforeDelimiter = Result
End Function

Создание функции в VBA с необязательными аргументами

В Excel есть много функций, некоторые из которых не являются обязательными.

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

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

Но необязательные аргументы не бесполезны. Они позволяют вам выбирать из целого ряда вариантов.

Например, в функции VLOOKUP, если вы не указали четвертый аргумент, VLOOKUP выполняет приблизительный поиск, а если вы указываете последний аргумент как FALSE (или 0), то он выполняет точное совпадение.

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

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

Функция только с необязательным аргументом

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

Но мы можем создать один с VBA.

Ниже приведен код функции, которая выдаст вам текущую дату в формате dd-mm-yyyy, если вы не вводите никаких аргументов (т.е. оставьте это поле пустым), и в формате «dd mmmm, yyyy», если вы введете что-либо в качестве аргумента (т. е. что угодно, чтобы аргумент не был пустым).

Function CurrDate(Optional fmt As Variant)
Dim Result
If IsMissing(fmt) Then
CurrDate = Format(Date, "dd-mm-yyyy")
Else
CurrDate = Format(Date, "dd mmmm, yyyy")
End If
End Function

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

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

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

Function CurrDate(Optional fmt As Variant)
Dim Result
If IsMissing(fmt) Then
CurrDate = Format(Date, "dd-mm-yyyy")
ElseIf fmt = 1 Then
CurrDate = Format(Date, "dd mmmm, yyyy")
Else
CurrDate = CVErr(xlErrValue)
End If
End Function

Приведенный выше код создает функцию, которая показывает дату в формате «дд-мм-гггг», если аргумент не указан, и в формате «дд мммм, гггг», если аргумент равен 1. Во всех других случаях выдается ошибка.

Функция с необходимыми и необязательными аргументами

Мы уже видели код, который извлекает числовую часть из строки.

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

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

Function GetText(CellRef As Range, Optional TextCase = False) As String
Dim StringLength As Integer
Dim Result As String
StringLength = Len(CellRef)
For i = 1 To StringLength
If Not (IsNumeric(Mid(CellRef, i, 1))) Then Result = Result & Mid(CellRef, i, 1)
Next i
If TextCase = True Then Result = UCase(Result)
GetText = Result
End Function

Обратите внимание, что в приведенном выше коде мы инициализировали значение «TextCase» как False (смотрите в скобках в первой строке).

Сделав это, мы убедились, что необязательный аргумент начинается со значения по умолчанию, то есть FALSE. Если пользователь указывает значение как ИСТИНА, функция возвращает текст в верхнем регистре, а если пользователь указывает необязательный аргумент как ЛОЖЬ или пропускает его, то возвращаемый текст остается как есть.

Создание функции в VBA с массивом в качестве аргумента

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

Вы также можете создать функцию, которая может принимать массив в качестве аргумента. В функциях листа Excel есть много функций, которые принимают аргументы массива, такие как SUM, VLOOKUP, SUMIF, COUNTIF и т.д.

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

Function AddEven(CellRef as Range)
 Dim Cell As Range
 For Each Cell In CellRef
 If IsNumeric(Cell.Value) Then
 If Cell.Value Mod 2 = 0 Then
 Result = Result + Cell.Value
 End If
 End If
 Next Cell
 AddEven = Result
 End Function

Вы можете использовать эту функцию на листе и указать диапазон ячеек, в которых в качестве аргумента используются числа. Функция будет возвращать одно значение — сумму всех четных чисел (как показано ниже).

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

В приведенном выше коде я указал аргумент CellRef как Range (который может принимать массив в качестве входных данных). Вы также можете использовать вариантный тип данных здесь.

В коде есть цикл For Each, который проходит через каждую ячейку и проверяет, является ли это число не. Если это не так, ничего не происходит, и он перемещается в следующую ячейку. Если это число, оно проверяет, является ли оно четным или нет (с помощью функции MOD).

В конце все четные числа добавляются, и сумма возвращается обратно в функцию.

Создание функции с неопределенным числом аргументов

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

Примером такой функции рабочего листа является функция SUM. Вы можете предоставить несколько аргументов (например, это):

= SUM (A1, A2: A4, B1: B20)

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

Вы можете создать такую ​​функцию в VBA, указав последний аргумент (или единственный аргумент) в качестве необязательного. Кроме того, этому необязательному аргументу должно предшествовать ключевое слово «ParamArray».

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

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

Function AddArguments(ParamArray arglist() As Variant)
For Each arg In arglist
AddArguments = AddArguments + arg
Next arg
End Function

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

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

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

Function AddArguments(ParamArray arglist() As Variant)
For Each arg In arglist
For Each Cell In arg
AddArguments = AddArguments + Cell
Next Cell
Next arg
End Function

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

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

Создание функции, которая возвращает массив

До сих пор мы видели функции, которые возвращают одно значение.

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

Формулы массивов также доступны в виде встроенных функций на листах Excel. Если вы знакомы с формулами массива в Excel, вы знаете, что они вводятся клавишами Control + Shift + Enter (а не только Enter). Вы можете прочитать больше о формулах массива здесь. Если вы не знаете формул массива, не беспокойтесь, продолжайте читать.

Давайте создадим формулу, которая возвращает массив из трех чисел (1,2,3).

Код ниже сделает это.

Function ThreeNumbers() As Variant
Dim NumberValue(1 To 3)
NumberValue(1) = 1
NumberValue(2) = 2
NumberValue(3) = 3
ThreeNumbers = NumberValue
End Function

В приведенном выше коде мы указали функцию ThreeNumbers в качестве варианта. Это позволяет ему содержать массив значений.

Переменная NumberValue объявлена как массив из 3 элементов. Он содержит три значения и присваивает его функции «Три числа».

Вы можете использовать эту функцию на рабочем листе. Введите эту функцию и нажмите клавиши Control + Shift + Enter (удерживайте клавиши Control и Shift и затем нажмите Enter).

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

= MAX (ThreeNumbers ())

Используйте вышеуказанную функцию с Control + Shift + Enter. Вы заметите, что теперь результат равен 3, так как это самые большие значения в массиве, возвращаемом функцией Max, которая получает три числа в результате нашей пользовательской функции — ThreeNumbers.

Вы можете использовать ту же технику для создания функции, которая возвращает массив названий месяцев, как показано в приведенном ниже коде:

Function Months() As Variant
Dim MonthName(1 To 12)
MonthName(1) = "Январь"
MonthName(2) = "Февраль"
MonthName(3) = "Март"
MonthName(4) = "Апрель"
MonthName(5) = "Май"
MonthName(6) = "Июнь"
MonthName(7) = "Июль"
MonthName(8) = "Август"
MonthName(9) = "Сентябрь"
MonthName(10) = "Октябрь"
MonthName(11) = "Ноябрь"
MonthName(12) = "Декабрь"
Months = MonthName
End Function

Теперь, когда вы введете функцию = Months () на листе Excel и используете Control + Shift + Enter, она вернет весь массив названий месяцев. Обратите внимание, что вы видите только январь в ячейке, поскольку это первое значение в массиве. Это не означает, что массив возвращает только одно значение.

Чтобы показать вам тот факт, что он возвращает все значения, сделайте это — выберите ячейку с формулой, перейдите на панель формул, выберите всю формулу и нажмите F9. Это покажет вам все значения, которые возвращает функция.

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

=INDEX(Months(),ROW())

Теперь, если у вас много значений, не рекомендуется назначать эти значения одно за другим (как мы делали выше). Вместо этого вы можете использовать функцию Array в VBA.

Поэтому тот же код, в котором мы создаем функцию «Месяцы», станет короче, как показано ниже:

Function Months() As Variant
Months = Array("Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", _
"Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь")
End Function

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

Обратите внимание, что все функции, созданные выше, возвращают горизонтальный массив значений. Это означает, что если вы выберете 12 горизонтальных ячеек (скажем, A1: L1) и введете формулу = Months () в ячейку A1, вы получите все названия месяцев.

Но что, если вы хотите эти значения в вертикальном диапазоне ячеек.

Вы можете сделать это, используя формулу TRANSPOSE на листе.

Просто выберите 12 вертикальных ячеек (смежные) и введите приведенную ниже формулу.

Функция может иметь две области действия — Public или Private.

• Общая область означает, что функция доступна для всех листов в рабочей книге, а также для всех процедур (вспомогательных и функциональных) во всех модулях в рабочей книге. Это полезно, когда вы хотите вызвать функцию из подпрограммы (мы увидим, как это делается в следующем разделе).
• Частная область означает, что функция доступна только в том модуле, в котором она существует. Вы не можете использовать его в других модулях. Вы также не увидите его в списке функций на рабочем листе. Например, если имя вашей функции — «Месяцы ()», и вы вводите функцию в Excel (после знака =), она не будет отображать вам имя функции. Однако вы все равно можете использовать его, если вводите название формулы

Если вы ничего не указали, функция по умолчанию является публичной.

Ниже приведена функция, которая является частной функцией:

Private Function WorkbookName() As String
WorkbookName = ThisWorkbook.Name
End Function

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

Приведенный ниже код сделает эту функцию публичной. Это также будет отображаться на листе.

Function WorkbookName() As String
WorkbookName = ThisWorkbook.Name
End Function

Различные способы использования пользовательской функции в Excel

Создав пользовательскую функцию в VBA, вы можете использовать ее по-разному.

Давайте сначала рассмотрим, как использовать функции на листе.

Использование пользовательских функций в рабочих листах

Мы уже видели примеры использования функции, созданной в VBA, на листе.

Все, что вам нужно сделать, это ввести имя функции, и оно отобразится в intellisense.

Обратите внимание, что для того, чтобы функция отображалась на рабочем листе, она должна быть функцией Public (как описано в разделе выше).

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

• Перейдите на вкладку «Данные».
• Нажмите «Вставить функцию».

• В диалоговом окне «Вставка функции» выберите «Определено пользователем» в качестве категории. Эта опция отображается только тогда, когда у вас есть функция в редакторе VB (и функция Public).

• Выберите функцию из списка всех общедоступных пользовательских функций.
• Нажмите кнопку ОК

Вышеуказанные шаги вставят функцию в лист. Он также отображает диалоговое окно «Аргументы функции», которое предоставит вам подробную информацию об аргументах и результате.

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

=UPPER(WorkbookName())

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

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

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

Ниже приведена функция, которая возвращает имя рабочей книги.

Function WorkbookName() As String 
WorkbookName = ThisWorkbook.Name 
End Function

Приведенная ниже процедура вызывает функцию, а затем отображает имя в окне сообщения.

Sub ShowWorkbookName()
MsgBox WorkbookName
End Sub

Вы также можете вызвать функцию из другой функции.

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

Function WorkbookName() As String
WorkbookName = ThisWorkbook.Name
End Function

Function WorkbookNameinUpper()
WorkbookNameinUpper = UCase(WorkbookName)
End Function

Вызов пользовательской функции из других книг

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

Есть несколько способов сделать это:

1. Создание надстройки
2. Функция сохранения в персональной макрокоманде
3. Ссылка на функцию из другой рабочей книги.

Создание надстройки

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

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

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

• Перейдите на вкладку «Файл» и нажмите «Сохранить как».

• В диалоговом окне «Сохранить как» измените тип «Сохранить как» на .xlam. Имя, которое вы назначаете файлу, будет именем вашей надстройки. В этом примере файл сохраняется с именем GetNumeric.
  • Вы заметите, что путь к файлу, в котором он сохраняется, автоматически изменяется. Вы можете использовать по умолчанию или изменить его, если хотите.

• Откройте новую книгу Excel и перейдите на вкладку Разработчик.
• Выберите параметр «Надстройки Excel».

• В диалоговом окне «Надстройки» найдите и найдите сохраненный файл и нажмите «ОК».

Теперь надстройка была активирована.

Теперь вы можете использовать пользовательские функции во всех книгах.

Сохранение функции в персональной книге макросов

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

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

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

Ссылка на функцию из другой книги

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

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

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

=’Workbook with Formula’!GetNumeric(A1)

Приведенная выше формула будет использовать пользовательскую функцию в файле Workbook with Formula и даст вам результат.

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

Использование оператора выхода из VBA

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

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

Function GetNumericFirstThree(CellRef As Range) As Long
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If J = 3 Then Exit Function
If IsNumeric(Mid(CellRef, i, 1)) Then
J = J + 1
Result = Result & Mid(CellRef, i, 1)
GetNumericFirstThree = Result
End If
Next i
End Function

Вышеприведенная функция проверяет количество числовых символов, и когда она получает 3 числовых символа, она выходит из функции в следующем цикле.

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

Есть несколько методов, которые вы можете использовать при отладке пользовательской функции в VBA:

Отладка пользовательской функции с помощью окна сообщения

Используйте функцию MsgBox, чтобы показать окно сообщения с определенным значением.

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

Отладка пользовательской функции путем установки точки останова

Установите точку останова, чтобы иметь возможность проходить шаг за шагом по каждой строке. Чтобы установить точку останова, выберите нужную строку и нажмите F9 или нажмите на серую вертикальную область, которая слева от строк кода. Любой из этих методов вставил бы точку останова (вы увидите красную точку в серой области).

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

Отладка пользовательской функции с помощью Debug.Print в коде

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

Например, в приведенном ниже коде я использовал Debug.Print, чтобы получить значение двух переменных — «j» и «Result».

Function GetNumericFirstThree(CellRef As Range) As Long
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If J = 3 Then Exit Function
If IsNumeric(Mid(CellRef, i, 1)) Then
 J = J + 1
 Result = Result & Mid(CellRef, i, 1)
 Debug.Print J, Result
 GetNumericFirstThree = Result
End If
Next i
End Function

Когда этот код выполняется, он показывает следующее в immediate window.

Встроенные функции Excel против Пользовательской функции VBA

Есть несколько сильных преимуществ использования встроенных функций Excel по сравнению с пользовательскими функциями, созданными в VBA.

• Встроенные функции работают намного быстрее, чем функции VBA.
• Когда вы создаете отчет / панель мониторинга с использованием функций VBA и отправляете его клиенту / коллеге, им не нужно беспокоиться о том, включены макросы или нет. В некоторых случаях клиенты / клиенты пугаются, увидев предупреждение в желтой полосе (которое просто просит их включить макросы).
• Благодаря встроенным функциям Excel вам не нужно беспокоиться о расширениях файлов. Если у вас есть макросы или пользовательские функции в рабочей книге, вам нужно сохранить их в формате .xlsm

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

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

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

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

Ниже приведены инструкции по размещению кода для функции «GetNumeric» в книге.

1. Перейдите на вкладку Разработчик.
2. Нажмите на Visual Basic. Это откроет редактор VB в бэкэнде.
3. На панели Project Explorer в редакторе VB щелкните правой кнопкой мыши любой объект для книги, в которую вы хотите вставить код. Если вы не видите Project Explorer, перейдите на вкладку View и щелкните Project Explorer.
4. Перейти к Вставить и нажмите на модуль. Это вставит объект модуля для вашей книги.                 
5. Скопируйте и вставьте код в окно модуля. 

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

Время на прочтение
7 мин

Количество просмотров 312K

Приветствую всех.

В этом посте я расскажу, что такое VBA и как с ним работать в Microsoft Excel 2007/2010 (для более старых версий изменяется лишь интерфейс — код, скорее всего, будет таким же) для автоматизации различной рутины.

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

Еще при помощи Visual Studio Tools for Office можно писать макросы на C# и также встраивать их. Спасибо, FireStorm.

Сразу скажу — писать на других языках (C++/Delphi/PHP) также возможно, но требуется научится читать, изменять и писать файлы офиса — встраивать в документы не получится. А интерфейсы Microsoft работают через COM. Чтобы вы поняли весь ужас, вот Hello World с использованием COM.

Поэтому, увы, будем учить Visual Basic.

Чуть-чуть подготовки и постановка задачи

Итак, поехали. Открываем Excel.

Для начала давайте добавим в Ribbon панель «Разработчик». В ней находятся кнопки, текстовые поля и пр. элементы для конструирования форм.

Появилась вкладка.

Теперь давайте подумаем, на каком примере мы будем изучать VBA. Недавно мне потребовалось красиво оформить прайс-лист, выглядевший, как таблица. Идём в гугл, набираем «прайс-лист» и качаем любой, который оформлен примерно так (не сочтите за рекламу, пожалуйста):

То есть требуется, чтобы было как минимум две группы, по которым можно объединить товары (в нашем случае это будут Тип и Производитель — в таком порядке). Для того, чтобы предложенный мною алгоритм работал корректно, отсортируйте товары так, чтобы товары из одной группы стояли подряд (сначала по Типу, потом по Производителю).

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

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

Кодим

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

И вот мы в среде разработки VB. Также её можно вызвать из контекстного меню командой «Исходный текст»/«View code».

Перед вами окно с заглушкой процедуры. Можете его развернуть. Код должен выглядеть примерно так:

Sub FormatPrice()End Sub

Напишем Hello World:

Sub FormatPrice()
    MsgBox "Hello World!"
End Sub

И запустим либо щелкнув по кнопке (предварительно сняв с неё выделение), либо клавишей F5 прямо из редактора.

Тут, пожалуй, следует отвлечься на небольшой ликбез по поводу синтаксиса VB. Кто его знает — может смело пропустить этот раздел до конца. Основное отличие Visual Basic от Pascal/C/Java в том, что команды разделяются не ;, а переносом строки или двоеточием (:), если очень хочется написать несколько команд в одну строку. Чтобы понять основные правила синтаксиса, приведу абстрактный код.

Примеры синтаксиса

' Процедура. Ничего не возвращает
' Перегрузка в VBA отсутствует
Sub foo(a As String, b As String)
    ' Exit Sub ' Это значит "выйти из процедуры"
    MsgBox a + ";" + b
End Sub' Функция. Вовращает Integer
Function LengthSqr(x As Integer, y As Integer) As Integer
    ' Exit Function
    LengthSqr = x * x + y * y
End FunctionSub FormatPrice()
    Dim s1 As String, s2 As String
    s1 = "str1"
    s2 = "str2"
    If s1 <> s2 Then
        foo "123", "456" ' Скобки при вызове процедур запрещены
    End IfDim res As sTRING ' Регистр в VB не важен. Впрочем, редактор Вас поправит
    Dim i As Integer
    ' Цикл всегда состоит из нескольких строк
    For i = 1 To 10
        res = res + CStr(i) ' Конвертация чего угодно в String
        If i = 5 Then Exit For
    Next iDim x As Double
    x = Val("1.234") ' Парсинг чисел
    x = x + 10
    MsgBox xOn Error Resume Next ' Обработка ошибок - игнорировать все ошибки
    x = 5 / 0
    MsgBox xOn Error GoTo Err ' При ошибке перейти к метке Err
    x = 5 / 0
    MsgBox "OK!"
    GoTo ne

On Error GoTo 0 ' Отключаем обработку ошибок

    ' Циклы бывает, какие захотите
    Do While True
        Exit DoLoop 'While True
    Do 'Until False
        Exit Do
    Loop Until False
    ' А вот при вызове функций, от которых хотим получить значение, скобки нужны.
    ' Val также умеет возвращать Integer
    Select Case LengthSqr(Len("abc"), Val("4"))
    Case 24
        MsgBox "0"
    Case 25
        MsgBox "1"
    Case 26
        MsgBox "2"
    End Select' Двухмерный массив.
    ' Можно также менять размеры командой ReDim (Preserve) - см. google
    Dim arr(1 to 10, 5 to 6) As Integer
    arr(1, 6) = 8Dim coll As New Collection
    Dim coll2 As Collection
    coll.Add "item", "key"
    Set coll2 = coll ' Все присваивания объектов должны производится командой Set
    MsgBox coll2("key")
    Set coll2 = New Collection
    MsgBox coll2.Count
End Sub

Грабли-1. При копировании кода из IDE (в английском Excel) есь текст конвертируется в 1252 Latin-1. Поэтому, если хотите сохранить русские комментарии — надо сохранить крокозябры как Latin-1, а потом открыть в 1251.

Грабли-2. Т.к. VB позволяет использовать необъявленные переменные, я всегда в начале кода (перед всеми процедурами) ставлю строчку Option Explicit. Эта директива запрещает интерпретатору заводить переменные самостоятельно.

Грабли-3. Глобальные переменные можно объявлять только до первой функции/процедуры. Локальные — в любом месте процедуры/функции.

Еще немного дополнительных функций, которые могут пригодится: InPos, Mid, Trim, LBound, UBound. Также ответы на все вопросы по поводу работы функций/их параметров можно получить в MSDN.

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

Кодим много и под Excel

В этой части мы уже начнём кодить нечто, что умеет работать с нашими листами в Excel. Для начала создадим отдельный лист с именем result (лист с данными назовём data). Теперь, наверное, нужно этот лист очистить от того, что на нём есть. Также мы «выделим» лист с данными, чтобы каждый раз не писать длинное обращение к массиву с листами.

Sub FormatPrice()
    Sheets("result").Cells.Clear
    Sheets("data").Activate
End Sub

Работа с диапазонами ячеек

Вся работа в Excel VBA производится с диапазонами ячеек. Они создаются функцией Range и возвращают объект типа Range. У него есть всё необходимое для работы с данными и/или оформлением. Кстати сказать, свойство Cells листа — это тоже Range.

Примеры работы с Range

Sheets("result").Activate
Dim r As Range
Set r = Range("A1")
r.Value = "123"
Set r = Range("A3,A5")
r.Font.Color = vbRed
r.Value = "456"
Set r = Range("A6:A7")
r.Value = "=A1+A3"

Теперь давайте поймем алгоритм работы нашего кода. Итак, у каждой строчки листа data, начиная со второй, есть некоторые данные, которые нас не интересуют (ID, название и цена) и есть две вложенные группы, к которым она принадлежит (тип и производитель). Более того, эти строки отсортированы. Пока мы забудем про пропуски перед началом новой группы — так будет проще. Я предлагаю такой алгоритм:

1. Считали группы из очередной строки.
2. Пробегаемся по всем группам в порядке приоритета (вначале более крупные)
   1. Если текущая группа не совпадает, вызываем процедуру AddGroup(i, name), где i — номер группы (от номера текущей до максимума), name — её имя. Несколько вызовов необходимы, чтобы создать не только наш заголовок, но и всё более мелкие.
3. После отрисовки всех необходимых заголовков делаем еще одну строку и заполняем её данными.

Для упрощения работы рекомендую определить следующие функции-сокращения:

Function GetCol(Col As Integer) As String
    GetCol = Chr(Asc("A") + Col)
End FunctionFunction GetCellS(Sheet As String, Col As Integer, Row As Integer) As Range
    Set GetCellS = Sheets(Sheet).Range(GetCol(Col) + CStr(Row))
End FunctionFunction GetCell(Col As Integer, Row As Integer) As Range
    Set GetCell = Range(GetCol(Col) + CStr(Row))
End Function

Далее определим глобальную переменную «текущая строчка»: Dim CurRow As Integer. В начале процедуры её следует сделать равной единице. Еще нам потребуется переменная-«текущая строка в data», массив с именами групп текущей предыдущей строк. Потом можно написать цикл «пока первая ячейка в строке непуста».

Глобальные переменные

Option Explicit ' про эту строчку я уже рассказывал
Dim CurRow As Integer
Const GroupsCount As Integer = 2
Const DataCount As Integer = 3

FormatPrice

Sub FormatPrice()
    Dim I As Integer ' строка в data
    CurRow = 1
    Dim Groups(1 To GroupsCount) As String
    Dim PrGroups(1 To GroupsCount) As String

"data").Activate
    I = 2
    Do While True
        If GetCell(0, I).Value = "" Then Exit Do
        ' ...
        I = I + 1
    Loop
End Sub

Теперь надо заполнить массив Groups:

На месте многоточия

Dim I2 As Integer
For I2 = 1 To GroupsCount
    Groups(I2) = GetCell(I2, I)
Next I2
' ...
For I2 = 1 To GroupsCount ' VB не умеет копировать массивы
    PrGroups(I2) = Groups(I2)
Next I2
I =  I + 1

И создать заголовки:

На месте многоточия в предыдущем куске

For I2 = 1 To GroupsCount
    If Groups(I2) <> PrGroups(I2) Then
        Dim I3 As Integer
        For I3 = I2 To GroupsCount
            AddHeader I3, Groups(I3)
        Next I3
        Exit For
    End If
Next I2

Не забудем про процедуру AddHeader:

Перед FormatPrice

Sub AddHeader(Ty As Integer, Name As String)
    GetCellS("result", 1, CurRow).Value = Name
    CurRow = CurRow + 1
End Sub

Теперь надо перенести всякую информацию в result

For I2 = 0 To DataCount - 1
    GetCellS("result", I2, CurRow).Value = GetCell(I2, I)
Next I2

Подогнать столбцы по ширине и выбрать лист result для показа результата

После цикла в конце FormatPrice

Sheets("Result").Activate
Columns.AutoFit

Всё. Можно любоваться первой версией.

Некрасиво, но похоже. Давайте разбираться с форматированием. Сначала изменим процедуру AddHeader:

Sub AddHeader(Ty As Integer, Name As String)
    Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow)).Merge
    ' Чтобы не заводить переменную и не писать каждый раз длинный вызов
    ' можно воспользоваться блоком With
    With GetCellS("result", 0, CurRow)
        .Value = Name
        .Font.Italic = True
        .Font.Name = "Cambria"
        Select Case Ty
        Case 1 ' Тип
            .Font.Bold = True
            .Font.Size = 16
        Case 2 ' Производитель
            .Font.Size = 12
        End Select
        .HorizontalAlignment = xlCenter
    End With
    CurRow = CurRow + 1
End Sub

Уже лучше:

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

Поэтому чуть-чуть меняем код с добавлением стиля границ:

Sub AddHeader(Ty As Integer, Name As String)
    With Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow))
        .Merge
        .Value = Name
        .Font.Italic = True
        .Font.Name = "Cambria"
        .HorizontalAlignment = xlCenterSelect Case Ty
        Case 1 ' Тип
            .Font.Bold = True
            .Font.Size = 16
            .Borders(xlTop).Weight = xlThick
        Case 2 ' Производитель
            .Font.Size = 12
            .Borders(xlTop).Weight = xlMedium
        End Select
        .Borders(xlBottom).Weight = xlMedium ' По убыванию: xlThick, xlMedium, xlThin, xlHairline
    End With
    CurRow = CurRow + 1
End Sub

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

В начале FormatPrice

Dim I As Integer ' строка в  data
CurRow = 0 ' чтобы не было пропуска в самом начале
Dim Groups(1 To GroupsCount) As String

В цикле расстановки заголовков

If Groups(I2) <> PrGroups(I2) Then
    CurRow = CurRow + 1
    Dim I3 As Integer

В точности то, что и хотели.

Надеюсь, что эта статья помогла вам немного освоится с программированием для Excel на VBA. Домашнее задание — добавить заголовки «ID, Название, Цена» в результат. Подсказка: CurRow = 0 CurRow = 1.

Файл можно скачать тут (min.us) или тут (Dropbox). Не забудьте разрешить исполнение макросов. Если кто-нибудь подскажет человеческих файлохостинг, залью туда.

Спасибо за внимание.

Буду рад конструктивной критике в комментариях.

UPD: Перезалил пример на Dropbox и min.us.

UPD2: На самом деле, при вызове процедуры с одним параметром скобки можно поставить. Либо использовать конструкцию Call Foo(«bar», 1, 2, 3) — тут скобки нужны постоянно.