Создание функции в Excel: от простых формул до VBA-макросов

Microsoft Excel — это не просто табличный редактор, а мощный инструмент для автоматизации расчётов. Одной из ключевых возможностей программы является создание пользовательских функций, которые позволяют выходить за рамки стандартных формул. Но как сделать свою функцию в Excel, если стандартные СУММ или ВПР не покрывают ваши задачи?

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

Чем пользовательская функция отличается от стандартной формулы?

Стандартные функции Excel (например, ЕСЛИ или ПОИСКПОЗ) ограничены заложенной в них логикой. Пользовательская функция даёт свободу:

• 🔹 Гибкость: можно создать функцию для уникальных бизнес-задач (например, расчёт налога с учётом региональных коэффициентов).
• 🔹 Многоразовость: однажды написанная функция работает во всех книгах (если сохранена в Личной книге макросов).
• 🔹 Скорость: VBA-функции часто выполняются быстрее, чем сложные комбинации стандартных формул.

Однако у пользовательских функций есть и минусы: они не обновляются автоматически при изменении данных (если не использовать Application.Volatile), а ошибки в коде могут "сломать" всю книгу. Поэтому перед созданием функции оцените, нельзя ли обойтись комбинацией ИНДЕКС+ПОИСКПОЗ или ЛЯМБДА (в новых версиях Excel).

Способ 1: Создание функции через формулы (без VBA)

Если вы не готовы погружаться в программирование, начните с формул массива или функции ЛЯМБДА (доступна с Excel 365). Например, можно создать функцию для расчёта НДС с учётом ставки:

=ЛЯМБДА(сумма;ставка; сумма*(1+ставка))(A1; 0,2)

Где A1 — ячейка с суммой, а 0,2 — ставка НДС 20%. Преимущество такого подхода — простота и отсутствие рисков, связанных с макросами. Но есть ограничения:

• 📌 Формулы работают медленнее VBA при больших объёмах данных.
• 📌 Невозможно добавить собственное имя функции в мастер функций (fx).
• 📌 Сложные вычисления требуют гнездования нескольких ЛЯМБДА, что затрудняет чтение.

Способ 2: Пользовательская функция на VBA — пошаговая инструкция

Для создания полноценной функции, которая будет отображаться в списке Excel, потребуется Visual Basic for Applications. Следуйте этому алгоритму:

1. Откройте редактор VBA: нажмите Alt + F11 или перейдите в Разработчик → Visual Basic (если вкладки нет, включите её в Файл → Параметры → Настройка ленты).
2. Добавьте модуль: в окне проекта кликните правой кнопкой по VBAProject (Имя_вашей_книги.xlsm) → Insert → Module.
3. Напишите код функции. Пример функции для перевода рублей в доллары по курсу:

Function RUBtoUSD(rub As Double, kurs As Double) As Double
RUBtoUSD = rub / kurs
End Function

Сохраните файл с расширением .xlsm (с поддержкой макросов). Теперь в любой ячейке можно ввести =RUBtoUSD(A1; B1), где A1 — сумма в рублях, а B1 — курс доллара.

Типичные ошибки при создании функций и как их избежать

Даже опытные пользователи сталкиваются с проблемами при написании пользовательских функций. Вот наиболее распространённые "подводные камни":

Критическая особенность VBA-функций: они не работают в Excel Online и мобильных версиях программы. Если вам нужна кросс-платформенная совместимость, используйте ЛЯМБДА или Power Query.

Продвинутые приёмы: аргументы функции и обработка ошибок

Чтобы ваша функция была устойчивой к некорректным данным, добавьте в неё проверки. Например, модифицируем функцию RUBtoUSD:

Function RUBtoUSD(rub As Variant, kurs As Variant) As Variant
If Not IsNumeric(rub) Or Not IsNumeric(kurs) Or kurs = 0 Then
RUBtoUSD = "Ошибка: неверные данные"
Exit Function
End If
RUBtoUSD = rub / kurs
End Function

Здесь мы:

• 🔄 Используем Variant вместо Double, чтобы функция принимала любые данные.
• 🛡️ Проверяем, что аргументы — числа, а курс не равен нулю.
• ⚠️ Возвращаем текстовое сообщение об ошибке вместо сбоя.

⚠️ Внимание: Если ваша функция будет использоваться в формулах массива (например, {=МУМНОЖ(...)}), избегайте возврата текстовых значений — это может привести к ошибке #ЧИСЛО!.

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

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

1. Личная книга макросов: создайте файл Personal.xlsb (открывается автоматически при запуске Excel). Все функции из этого файла будут доступны во всех книгах.
2. Надстройка Excel: сохраните код как .xlam-файл и подключите через Файл → Параметры → Надстройки.
3. Экспорт/импорт модулей: в редакторе VBA кликните правой кнопкой по модулю → Export File, чтобы сохранить код как .bas-файл.

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

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

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

1. Расчёт рабочих дней между датами (без праздников):

   Function WorkDays(startDate As Date, endDate As Date) As Long
   Dim days As Long
   days = 0
   Do While startDate <= endDate
   If Weekday(startDate, vbMonday) < 6 Then days = days + 1
   startDate = startDate + 1
   Loop
   WorkDays = days
   End Function

2. Извлечение домена из email:

   Function GetDomain(email As String) As String
   If InStr(email, "@") > 0 Then
   GetDomain = Mid(email, InStr(email, "@") + 1)
   Else
   GetDomain = "Некорректный email"
   End If
   End Function

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

FAQ: Ответы на частые вопросы

Function UniqueCount(rng As Range) As Long
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Dim cell As Range
For Each cell In rng
If Not dict.exists(cell.Value) Then dict.Add cell.Value, 1
Next cell
UniqueCount = dict.Count
End Function