Skip to content
Мы продолжаем серию статей о работе с пользовательскими функциями. В наших предыдущих статьях мы познакомились с пользовательскими функциями и узнали, как их создавать и использовать. У пользовательских функций есть много преимуществ, но есть и много ограничений при их использовании.
В этой статье мы увидим преимущества и недостатки пользовательских функций в Excel. Вы также узнаете, что пользовательские функции и макросы VBA — это совсем не одно и то же, увидите разницу и выберете метод, который вам больше подходит.
- Отличия пользовательской функции и макроса VBA
- Ограничения и недостатки использования пользовательских функций
Мы надеемся, что эта статья расширит ваши знания об пользовательских функциях и поможет вам еще более эффективно использовать их в своих книгах Excel.
Пользовательская функция против макроса VBA
И пользовательские функции, и макросы VBA создаются при помощи редактора VBA. В чем же разница между ними и чему отдать предпочтение?
Самое главное отличие — функция производит вычисление, а макрос выполняет какое-то действие.
Поэтому функция работает только с текущей ячейкой, а макрос может производить действия вне ячейки.
Пользовательская функция, как и обычная функция Excel, должна быть записана в ячейке. В результате её выполнения ячейка получает какое-то значение. При этом невозможно изменить значения других ячеек, а также некоторые свойства текущей ячейки (в частности, форматирование). Однако, вы можете использовать пользовательскую функцию в формулах условного форматирования.
Макрос VBA использует другой вид процедур. Что это означает для нас? Когда вы создаете функцию в редакторе Visual Basic, то вы начинаете с оператора Function и заканчиваете End Function. При записи макроса вы ставите в начале оператор Sub и заканчиваете End Sub.
Не все операторы Visual Basic могут быть использованы при создании настраиваемых функций. По этой причине макрос является более универсальным решением.
Макрос Excel не требует передачи каких-либо аргументов, в отличие от пользовательской функции.
Если вы используете макросы, вам нужно быть очень внимательным и осторожными при изменении и форматировании вашей таблицы. Дело в том, что некоторые параметры макросов могут использовать адреса ячеек либо элементы форматирования (например, цвет). Если вы будете перемещать ячейки, добавлять либо удалять строки и столбцы, менять формат ячеек, то вы легко можете «сломать» ваши макросы. Особенно это возможно, если вы будете передавать ваш файл коллегам, которые не знают, как работают ваши макросы.
Например, у вас есть файл с отлично работающим макросом. Эта формула вычисляет процентное соотношение ячеек от A1 до A4. Макрос изменяет цвет этих ячеек на желтый. В активной ячейке устанавливается процентный формат.
Если вы или кто-то другой решите вставить новую строку, макрос продолжит поиск значения в ячейке (4,1), завершится ошибкой и вернет сообщение:
В данном случае ошибка возникла из-за деления на ноль. А если макрос будет выполнять, к примеру, суммирование, то вы просто получите неверный результат. Но не будете об этом знать, потому что просто не заметите.
В отличие от макросов, пользовательские функции не могут вызвать такую неприятную ситуацию.
Ниже вы видите те же вычисления, но с использованием UDF. Здесь вы можете указать ячейки ввода в любом месте рабочего листа, и вы не столкнетесь с какими-либо неожиданными проблемами при его изменении.
В ячейке C3 я написал формулу
= UDF_vs_Macro (A1, A4)
Затем я вставил пустую строку, и формула изменилась, как вы можете видеть на скриншоте выше.
Теперь мы можем перемещать ячейку ввода или ячейку с функцией куда угодно. Результат всегда будет верным.
Дополнительным преимуществом использования пользовательских функций является то, что они автоматически обновляются при изменении ячейки ввода. При использовании макросов пользователь всегда должен убедиться, все ли данные актуальны, и при необходимости перезапустить макрос.
Итак, исходя из этого, я предпочитаю использовать функции везде, где это возможно, и использовать макросы только для прочих действий, не связанных с расчетами.
Ограничения и недостатки использования пользовательских функций
Я уже упоминал о преимуществах пользовательских функций выше. Проще говоря, они умеют выполнять вычисления, которые невозможны со стандартными функциями Excel. Кроме того, они могут сохранять и использовать длинные и сложные формулы, превращая их в единую функцию. И вам не придется снова и снова писать сложные формулы либо корректировать старые. Рассмотрев все плюсы, давайте остановимся на минусах.
Поговорим подробнее о недостатках пользовательских функций:
- Создание их требует использования VBA. Нет никакого способа обойти это. Это означает, что пользователь не может записывать создаваемую функцию так же, как макрос Excel. Вы должны сами написать код. Однако вы можете копировать и вставлять части ранее записанного кода макроса в свою функцию. Вам просто нужно знать об ограничениях пользовательских функций.
- Еще одним недостатком является то, что, как и любая другая функция Excel, она может возвращать только одно значение или массив значений в ячейку. Он просто выполняет вычисления, не более того.
- Если вы хотите поделиться своей книгой с коллегами, обязательно сохраните созданную функцию в том же файле. В противном случае ваши пользовательские функции для них не будут работать.
- Пользовательские функции, созданные с помощью редактора VBA, работают медленнее, чем обычные функции. Особенно это заметно в больших таблицах. К сожалению, пока VBA — очень медленный язык программирования. Поэтому, если у вас много данных, по возможности старайтесь использовать стандартные функции или создавайте собственные с помощью функции LAMBDA.
Ограничения пользовательских функций:
- Они предназначены для выполнения вычислений и возврата значения. Их нельзя использовать вместо макросов.
- Они не могут изменять содержимое каких-либо других ячеек (только активной ячейки).
- Названия функций должны соответствовать определенным правилам. Например, вы не можете использовать имя, которое соответствует имени собственной функции Excel или адресу ячейки, например AB123.
- Ваша пользовательская функция не может содержать пробелов в имени, но может включать символ подчеркивания. Однако предпочтительным методом является использование заглавных букв в начале каждого нового слова (например, GetMaxBetween).
- Они не умеют копировать и вставлять ячейки в другие области рабочего листа.
- Они не могут изменить активный рабочий лист.
- Нет возможности изменить форматирование активной ячейки. Если вы хотите изменить форматирование ячейки при отображении разных значений, вам следует использовать условное форматирование.
- Они не могут открывать дополнительные книги.
- Их нельзя использовать для запуска макросов с помощью Application.OnTime.
- Пользовательская функция не может быть создана с помощью средства записи макросов.
- Функции не отображаются в диалоговом окне «Разработчик» > «Макросы».
- Ваши функции появятся в диалоговом окне (Вставить > Функция) и в списке функций, только если они объявлены как общедоступные (это значение по умолчанию, если не указано иное).
- Любые функции, объявленные как частные, не будут отображаться в списке функций.
Довольно медленная операция, а также некоторые ограничения в использовании могут заставить вас задуматься: «Какая польза от этих пользовательских функций?»
Они могут пригодиться, если мы помним о наложенных на них ограничениях. Если вы научитесь правильно их создавать и использовать, вы сможете написать свою библиотеку функций. Это значительно расширит ваши возможности по работе с данными в Excel.
На мой взгляд, пользовательские функции отлично экономят время. А что насчет вас? Вы уже пробовали создать свои собственные функции?
Honey Пользователь Сообщений: 204 |
Всем добрый день! Если честно, даже не знаю как правильно сформулировать вопрос… Да и корректное ли название у темы. Заранее всем спасибо! С уважением, |
Astroid1 Пользователь Сообщений: 54 |
Справка developer на сайте майкрософт или google.ru Изменено: Astroid1 — 25.08.2016 12:13:17 |
Юрий М Модератор Сообщений: 60585 Контакты см. в профиле |
#3 25.08.2016 12:16:31
|
||
Honey Пользователь Сообщений: 204 |
#4 25.08.2016 12:18:10 Юрий М,
Изменено: Honey — 25.08.2016 12:18:29 |
||
dred_fk Пользователь Сообщений: 8 |
#5 25.08.2016 12:20:46 Надо бы проверить, но думаю что как-то так.
долго пишу Изменено: dred_fk — 25.08.2016 12:23:05 |
||
Юрий М Модератор Сообщений: 60585 Контакты см. в профиле |
Ещё можно использовать ElseIf или конструкцию Select Case. |
Honey Пользователь Сообщений: 204 |
dred_fk, Спасибо))) |
Hugo Пользователь Сообщений: 23253 |
Select Case удобнее. И в ячейку не нужно лазить много раз. |
dred_fk Пользователь Сообщений: 8 |
#9 25.08.2016 12:29:08
Имхо ничем. Elseif вместо Or по сути. А селект, если я правильно понимаю, обращаться в сиквелу? В данной задаче вообще не рентабельно. Опять же ИМХО. |
||
Hugo Пользователь Сообщений: 23253 |
#10 25.08.2016 12:33:32
|
||
Юрий М Модератор Сообщений: 60585 Контакты см. в профиле |
#11 25.08.2016 12:36:41
Удобны тем, что при выполнения условия дальнейшие проверки не выполняются.
|
||||
Юрий М Модератор Сообщений: 60585 Контакты см. в профиле |
#12 25.08.2016 12:37:57
Это почему? )) |
||
Honey Пользователь Сообщений: 204 |
Юрий М, dred_fk, Hugo, спасибо) Даже и не знала, что и так можно)) |
dred_fk Пользователь Сообщений: 8 |
#14 25.08.2016 12:44:11
а потому что я с ума сошел со своей задачкой и вообще не о том подумал. Я ТАКОЕ решение в голове придумал, где без кейсов надо почему-то искать. Короче в голове дошел до маразма и поставил клеймо: можно, но не рентабельно. Подтверждаю. Кейсом тоже можно Можно еще на каждый чих отдельный иф. Но вот это будет совсем некрасиво |
||
Юрий М Модератор Сообщений: 60585 Контакты см. в профиле |
#15 25.08.2016 12:44:37
Конечно! Чем меньше проверок, тем меньше требуется времени )) |
||
Юрий М Модератор Сообщений: 60585 Контакты см. в профиле |
dred_fk, посмотрите, как с Select Case компактно получается, а Вы говорите… )) |
Honey Пользователь Сообщений: 204 |
#17 25.08.2016 12:45:23
Выдает ошибку… Я только свои значения подставила и все… Block if without End If… Изменено: Honey — 25.08.2016 12:45:32 |
||
Hugo Пользователь Сообщений: 23253 |
Если вариантов действительно много — то можно их предварительно собрать в словарь (или словари) и затем сверяться с ним. Например проверять наличие в словаре, или проверять значение по ключу. |
Юрий М Модератор Сообщений: 60585 Контакты см. в профиле |
#19 25.08.2016 12:46:33
Срочно отдохнуть! )) |
||
Honey Пользователь Сообщений: 204 |
Hugo, Не уловила) Можно поподробней?… |
Honey Пользователь Сообщений: 204 |
dred_fk, |
dred_fk Пользователь Сообщений: 8 |
#22 25.08.2016 12:49:50 Ну он и говорит, что не закрыт иф. В вашем случае
|
||
Honey Пользователь Сообщений: 204 |
#23 25.08.2016 12:53:05 dred_fk, ааа… А я думала можно и так… Опять-таки из опыта формул:
Ох, почему они такие разные в строении конструкций(( Изменено: Honey — 25.08.2016 12:53:23 |
||
Hugo Пользователь Сообщений: 23253 |
#24 25.08.2016 12:56:09
Если значений сколько в примере +3 — то не парьтесь, это не много. |
||
Honey Пользователь Сообщений: 204 |
#25 25.08.2016 13:10:40 Hugo, Спасибо! |
ник, пытался побороть систему при помощи ссылки на макрос, но поскольку ничего в макросах не понимаю, победы не произошло! Можете помочь в столь трудном деле?
Заодно, хотел бы Вам, профессионалам, поставить еще одну небольшую, но непосильную для меня, сверхзадачу!
Во вкладке Расчет я на данный момент дописываю все стандартное оборудование, что использую, чтобы в будущем просто выбором количества подставлять его в коммерческое предложение, аналогично созданной совместно с Вами схеме с работами. То оборудование, которого мне будет нехватать, буду просто дописывать, добавляя строки (что будет крайне редко)!
1. Насколько я понял можно написать формулу, которая будет обновлять (и проставлять) цены из прайсов согласно коду продукта, т.е. будет находить в прайсе строчку с кодом и подставлять в позицию цена стоимость из соответстующей позиции прайса. Для разных прайсов я бы вносил эти формулы по разному — т.е. под разные столбцы прайсов и в разные колонки… Необходимо ли для этого, чтобы прайсы были открыты?
2. Во вкладку спецификация хотелось бы по столбцам добавлять информацию только о материалах, так же как и в коммерческое предложение, т.е. в Расчете с проставленным количеством. При этом я не понял как сделать так, чтобы каждый раз переносились строки на соответствующие страницы, т.е. с 25 строки на 40, а после окончания 2-ой страницы создавалась автоматически 3-я и т.д. При этом количество листов в поле R33 должно быть соответственным количеству листов, а на каждой странице номер должен увеличиваться по порядку!
И еще один сложный момент: Реально ли сделать так, чтобы при условии, что текст не влезает в одну строку (неважно по какому столбцу) он не расширял строку, не терялся, а переносился на следующую!!!! очень важный момент, если это возможно!
3. Вкладка Смета. В раздел 1 — Оборудование и материалы, должны попадать все ненулевые материалы из Расчета с соответствующим увеличением количества строк, а в раздел Работы аналогично все ненулевые работы, при этом их цена должна идти за вычетом НДС, т.е. деленая на 1,18. В итогах должна складываться в суммы по разделам, добавляться НДС и получаться ВСЕГО.
Задача для меня нереально сложная, все что мог сам сделать, сделал!
Прошу о помощи у профессионалов!
Файл прилагаю!
#Руководства
- 23 май 2022
-
0
Как с помощью макросов автоматизировать рутинные задачи в Excel? Какие команды они выполняют? Как создать макрос новичку? Разбираемся на примере.
Иллюстрация: Meery Mary для Skillbox Media
Рассказывает просто о сложных вещах из мира бизнеса и управления. До редактуры — пять лет в банке и три — в оценке имущества. Разбирается в Excel, финансах и корпоративной жизни.
Макрос (или макрокоманда) в Excel — алгоритм действий в программе, который объединён в одну команду. С помощью макроса можно выполнить несколько шагов в Excel, нажав на одну кнопку в меню или на сочетание клавиш.
Обычно макросы используют для автоматизации рутинной работы — вместо того чтобы выполнять десяток повторяющихся действий, пользователь записывает одну команду и затем запускает её, когда нужно совершить эти действия снова.
Например, если нужно добавить название компании в несколько десятков документов и отформатировать его вид под корпоративный дизайн, можно делать это в каждом документе отдельно, а можно записать ход действий при создании первого документа в макрос — и затем применить его ко всем остальным. Второй вариант будет гораздо проще и быстрее.
В статье разберёмся:
- как работают макросы и как с их помощью избавиться от рутины в Excel;
- какие способы создания макросов существуют и как подготовиться к их записи;
- как записать и запустить макрос начинающим пользователям — на примере со скриншотами.
Общий принцип работы макросов такой:
- Пользователь записывает последовательность действий, которые нужно выполнить в Excel, — о том, как это сделать, поговорим ниже.
- Excel обрабатывает эти действия и создаёт для них одну общую команду. Получается макрос.
- Пользователь запускает этот макрос, когда ему нужно выполнить эту же последовательность действий ещё раз. При записи макроса можно задать комбинацию клавиш или создать новую кнопку на главной панели Excel — если нажать на них, макрос запустится автоматически.
Макросы могут выполнять любые действия, которые в них запишет пользователь. Вот некоторые команды, которые они умеют делать в Excel:
- Автоматизировать повторяющиеся процедуры.
Например, если пользователю нужно каждый месяц собирать отчёты из нескольких файлов в один, а порядок действий каждый раз один и тот же, можно записать макрос и запускать его ежемесячно.
- Объединять работу нескольких программ Microsoft Office.
Например, с помощью одного макроса можно создать таблицу в Excel, вставить и сохранить её в документе Word и затем отправить в письме по Outlook.
- Искать ячейки с данными и переносить их в другие файлы.
Этот макрос пригодится, когда нужно найти информацию в нескольких объёмных документах. Макрос самостоятельно отыщет её и принесёт в заданный файл за несколько секунд.
- Форматировать таблицы и заполнять их текстом.
Например, если нужно привести несколько таблиц к одному виду и дополнить их новыми данными, можно записать макрос при форматировании первой таблицы и потом применить его ко всем остальным.
- Создавать шаблоны для ввода данных.
Команда подойдёт, когда, например, нужно создать анкету для сбора данных от сотрудников. С помощью макроса можно сформировать такой шаблон и разослать его по корпоративной почте.
- Создавать новые функции Excel.
Если пользователю понадобятся дополнительные функции, которых ещё нет в Excel, он сможет записать их самостоятельно. Все базовые функции Excel — это тоже макросы.
Все перечисленные команды, а также любые другие команды пользователя можно комбинировать друг с другом и на их основе создавать макросы под свои потребности.
В Excel и других программах Microsoft Office макросы создаются в виде кода на языке программирования VBA (Visual Basic for Applications). Этот язык разработан в Microsoft специально для программ компании — он представляет собой упрощённую версию языка Visual Basic. Но это не значит, что для записи макроса нужно уметь кодить.
Есть два способа создания макроса в Excel:
- Написать макрос вручную.
Это способ для продвинутых пользователей. Предполагается, что они откроют окно Visual Basic в Еxcel и самостоятельно напишут последовательность действий для макроса в виде кода.
- Записать макрос с помощью кнопки меню Excel.
Способ подойдёт новичкам. В этом варианте Excel запишет программный код вместо пользователя. Нужно нажать кнопку записи и выполнить все действия, которые планируется включить в макрос, и после этого остановить запись — Excel переведёт каждое действие и выдаст алгоритм на языке VBA.
Разберёмся на примере, как создать макрос с помощью второго способа.
Допустим, специальный сервис автосалона выгрузил отчёт по продажам за три месяца первого квартала в формате таблиц Excel. Эти таблицы содержат всю необходимую информацию, но при этом никак не отформатированы: колонки слиплись друг с другом и не видны полностью, шапка таблицы не выделена и сливается с другими строками, часть данных не отображается.
Скриншот: Skillbox Media
Пользоваться таким отчётом неудобно — нужно сделать его наглядным. Запишем макрос при форматировании таблицы с продажами за январь и затем применим его к двум другим таблицам.
Готовимся к записи макроса
Кнопки для работы с макросами в Excel находятся во вкладке «Разработчик». Эта вкладка по умолчанию скрыта, поэтому для начала разблокируем её.
В операционной системе Windows это делается так: переходим во вкладку «Файл» и выбираем пункты «Параметры» → «Настройка ленты». В открывшемся окне в разделе «Основные вкладки» находим пункт «Разработчик», отмечаем его галочкой и нажимаем кнопку «ОК» → в основном меню Excel появляется новая вкладка «Разработчик».
В операционной системе macOS это нужно делать по-другому. В самом верхнем меню нажимаем на вкладку «Excel» и выбираем пункт «Параметры…».
Скриншот: Skillbox Media
В появившемся окне нажимаем кнопку «Лента и панель».
Скриншот: Skillbox Media
Затем в правой панели «Настроить ленту» ищем пункт «Разработчик» и отмечаем его галочкой. Нажимаем «Сохранить».
Скриншот: Skillbox Media
Готово — вкладка «Разработчик» появилась на основной панели Excel.
Скриншот: Skillbox Media
Чтобы Excel смог сохранить и в дальнейшем использовать макрос, нужно пересохранить документ в формате, который поддерживает макросы. Это делается через команду «Сохранить как» на главной панели. В появившемся меню нужно выбрать формат «Книга Excel с поддержкой макросов».
Скриншот: Skillbox Media
Перед началом записи макроса важно знать об особенностях его работы:
- Макрос записывает все действия пользователя.
После старта записи макрос начнёт регистрировать все клики мышки и все нажатия клавиш. Поэтому перед записью последовательности лучше хорошо отработать её, чтобы не добавлять лишних действий и не удлинять код. Если требуется записать длинную последовательность задач — лучше разбить её на несколько коротких и записать несколько макросов.
- Работу макроса нельзя отменить.
Все действия, которые выполняет запущенный макрос, остаются в файле навсегда. Поэтому перед тем, как запускать макрос в первый раз, лучше создать копию всего файла. Если что-то пойдёт не так, можно будет просто закрыть его и переписать макрос в созданной копии.
- Макрос выполняет свой алгоритм только для записанного диапазона таблиц.
Если при записи макроса пользователь выбирал диапазон таблицы, то и при запуске макроса в другом месте он выполнит свой алгоритм только в рамках этого диапазона. Если добавить новую строку, макрос к ней применяться не будет. Поэтому при записи макроса можно сразу выбирать большее количество строк — как это сделать, показываем ниже.
Для начала записи макроса перейдём на вкладку «Разработчик» и нажмём кнопку «Записать макрос».
Скриншот: Skillbox Media
Появляется окно для заполнения параметров макроса. Нужно заполнить поля: «Имя макроса», «Сохранить в», «Сочетание клавиш», «Описание».
Скриншот: Skillbox Media
«Имя макроса» — здесь нужно придумать и ввести название для макроса. Лучше сделать его логически понятным, чтобы в дальнейшем можно было быстро его найти.
Первым символом в названии обязательно должна быть буква. Другие символы могут быть буквами или цифрами. Важно не использовать пробелы в названии — их можно заменить символом подчёркивания.
«Сохранить в» — здесь нужно выбрать книгу, в которую макрос сохранится после записи.
Если выбрать параметр «Эта книга», макрос будет доступен при работе только в этом файле Excel. Чтобы макрос был доступен всегда, нужно выбрать параметр «Личная книга макросов» — Excel создаст личную книгу макросов и сохранит новый макрос в неё.
«Сочетание клавиш» — здесь к уже выбранным двум клавишам (Ctrl + Shift в системе Windows и Option + Cmd в системе macOS) нужно добавить третью клавишу. Это должна быть строчная или прописная буква, которую ещё не используют в других быстрых командах компьютера или программы Excel.
В дальнейшем при нажатии этих трёх клавиш записанный макрос будет запускаться автоматически.
«Описание» — необязательное поле, но лучше его заполнять. Например, можно ввести туда последовательность действий, которые планируется записать в этом макросе. Так не придётся вспоминать, какие именно команды выполнит этот макрос, если нужно будет запустить его позже. Плюс будет проще ориентироваться среди других макросов.
В нашем случае с форматированием таблицы заполним поля записи макроса следующим образом и нажмём «ОК».
Скриншот: Skillbox Media
После этого начнётся запись макроса — в нижнем левом углу окна Excel появится значок записи.
Скриншот: Skillbox Media
Пока идёт запись, форматируем таблицу с продажами за январь: меняем ширину всех столбцов, данные во всех ячейках располагаем по центру, выделяем шапку таблицы цветом и жирным шрифтом, рисуем границы.
Важно: в нашем случае у таблиц продаж за январь, февраль и март одинаковое количество столбцов, но разное количество строк. Чтобы в случае со второй и третьей таблицей макрос сработал корректно, при форматировании выделим диапазон так, чтобы в него попали не только строки самой таблицы, но и строки ниже неё. Для этого нужно выделить столбцы в строке с их буквенным обозначением A–G, как на рисунке ниже.
Скриншот: Skillbox Media
Если выбрать диапазон только в рамках первой таблицы, то после запуска макроса в таблице с большим количеством строк она отформатируется только частично.
Скриншот: Skillbox Media
После всех манипуляций с оформлением таблица примет такой вид:
Скриншот: Skillbox Media
Проверяем, все ли действия с таблицей мы выполнили, и останавливаем запись макроса. Сделать это можно двумя способами:
- Нажать на кнопку записи в нижнем левом углу.
- Перейти во вкладку «Разработчик» и нажать кнопку «Остановить запись».
Скриншот: Skillbox Media
Готово — мы создали макрос для форматирования таблиц в границах столбцов A–G. Теперь его можно применить к другим таблицам.
Запускаем макрос
Перейдём в лист со второй таблицей «Февраль_2022». В первоначальном виде она такая же нечитаемая, как и первая таблица до форматирования.
Скриншот: Skillbox Media
Отформатируем её с помощью записанного макроса. Запустить макрос можно двумя способами:
- Нажать комбинацию клавиш, которую выбрали при заполнении параметров макроса — в нашем случае Option + Cmd + Ф.
- Перейти во вкладку «Разработчик» и нажать кнопку «Макросы».
Скриншот: Skillbox Media
Появляется окно — там выбираем макрос, который нужно запустить. В нашем случае он один — «Форматирование_таблицы». Под ним отображается описание того, какие действия он включает. Нажимаем «Выполнить».
Скриншот: Skillbox Media
Готово — вторая таблица с помощью макроса форматируется так же, как и первая.
Скриншот: Skillbox Media
То же самое можно сделать и на третьем листе для таблицы продаж за март. Более того, этот же макрос можно будет запустить и в следующем квартале, когда сервис автосалона выгрузит таблицы с новыми данными.
Научитесь: Excel + Google Таблицы с нуля до PRO
Узнать больше
На чтение 31 мин. Просмотров 15.5k.
С помощью VBA вы можете создать пользовательскую функцию, которую можно использовать на листах точно так же, как обычные функции.
Это полезно, когда существующих функций Excel недостаточно. В таких случаях вы можете создать свою собственную пользовательскую функцию (UDF) для удовлетворения ваших конкретных потребностей.
В этом руководстве я расскажу о создании и использовании пользовательских функций в VBA.
Содержание
- Что такое функциональная процедура в VBA?
- Создание простой пользовательской функции в VBA
- Анатомия пользовательской функции в VBA
- Аргументы в пользовательской функции в VBA
- Создание функции, которая возвращает массив
- Понимание объема пользовательской функции в Excel
- Различные способы использования пользовательской функции в Excel
- Создание надстройки
- Сохранение функции в персональной книге макросов
- Ссылка на функцию из другой книги
- Использование оператора выхода из VBA
- Отладка пользовательской функции
- Встроенные функции Excel против Пользовательской функции VBA
- Где разместить код VBA для пользовательской функции
Что такое функциональная процедура в VBA?
Процедура Function — это код VBA, который выполняет вычисления и возвращает значение (или массив значений).
Используя процедуру Function, вы можете создать функцию, которую вы можете использовать на рабочем листе (как и любую обычную функцию Excel, такую как SUM или VLOOKUP).
Когда вы создали процедуру Function с использованием VBA, вы можете использовать ее тремя способами:
- В качестве формулы на рабочем листе, где она может принимать аргументы в качестве входных данных и возвращать значение или массив значений.
- Как часть кода вашей подпрограммы VBA или другого кода функции.
- В условном форматировании
Хотя на рабочем листе уже имеется более 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
Вызов пользовательской функции из других книг
Если у вас есть функция в рабочей книге, вы можете вызвать эту функцию и в других рабочих книгах.
Есть несколько способов сделать это:
- Создание надстройки
- Функция сохранения в персональной макрокоманде
- Ссылка на функцию из другой рабочей книги.
Создание надстройки
Создав и установив надстройку, вы получите настраиваемую функцию, доступную во всех книгах.
Предположим, вы создали пользовательскую функцию — «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» в книге.
- Перейдите на вкладку Разработчик.
- Нажмите на Visual Basic. Это откроет редактор VB в бэкэнде.
- На панели Project Explorer в редакторе VB щелкните правой кнопкой мыши любой объект для книги, в которую вы хотите вставить код. Если вы не видите Project Explorer, перейдите на вкладку View и щелкните Project Explorer.
- Перейти к Вставить и нажмите на модуль. Это вставит объект модуля для вашей книги.
- Скопируйте и вставьте код в окно модуля.