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

С помощью 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 содержится множество встроенных функций, которые могут быть использованы для инженерных, статистических, финансовых, аналитических и прочих расчетов. Иногда условия поставленных задач требуют более гибкого инструмента для поиска решения, тогда на помощь приходят макросы и пользовательские функции.

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

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

1. Открыть редактор языка VBA с помощью комбинации клавиш ALT+F11.
2. В открывшемся окне выбрать пункт Insert и подпункт Module, как показано на рисунке:



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



4. При необходимости можно изменить название модуля.
5. В отличие от макросов, код которых должен находиться между операторами Sub и End Sub, пользовательские функции обозначают операторами Function и End Function соответственно. В состав пользовательской функции входят название (произвольное имя, отражающее ее суть), список параметров (аргументов) с объявлением их типов, если они требуются (некоторые могут не принимать аргументов), тип возвращаемого значения, тело функции (код, отражающий логику ее работы), а также оператор End Function. Пример простой пользовательской функции, возвращающей названия дня недели в зависимости от указанного номера, представлен на рисунке ниже:



6. После ввода представленного выше кода необходимо нажать комбинацию клавиш Ctrl+S или специальный значок в левом верхнем углу редактора кода для сохранения.
7. Чтобы воспользоваться созданной функцией, необходимо вернуться к табличному редактору Excel, установить курсор в любую ячейку и ввести название пользовательской функции после символа «=»:

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

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

1. Создайте новый макрос (нажмите комбинацию клавиш Alt+F8), в появившемся окне введите произвольное название нового макроса, нажмите кнопку Создать:



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



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



4. В качестве «Macro» должна быть передана текстовая строка с названием пользовательской функции, в качестве «Description» — переменная типа String с текстом описания возвращаемого значения, в качестве «ArgumentDescriptions» — массив переменных типа String с текстами описаний аргументов пользовательской функции.
5. Для создания описания пользовательской функции достаточно один раз выполнить созданный выше модуль. Теперь при вызове пользовательской функции (или SHIFT+F3) отображается описание возвращаемого результата и переменной:

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



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

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

Вид исходной таблицы данных:

Каждому работнику полагается 24 выходных дня с выплатой S=N*24/(365-n), где:

• N – суммарная зарплата за год;
• n – число праздничных дней в году.

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

Код примера:


Public Function Otpusknye(summZp As Long, holidays As Long) As Long
If IsNumeric(holidays) = False Or IsNumeric(summZp) = False Then
    Otpusknye = "Введены нечисловые данные"
    Exit Function
ElseIf holidays <= 0 Or summZp <= 0 Then
    Otpusknye = "Отрицательное число или 0"
    Exit Function
Else
    Otpusknye = summZp * 24 / (365 - holidays)
End If
End Function


Сохраним функцию и выполним расчет с ее использованием:

=Otpusknye(B3;C3)

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

Калькулятор расчета калорий в Excel

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

Вид исходной таблицы данных:

Для расчета используем формулу Миффлина — Сан Жеора, которую запишем в коде пользовательской функции с учетом пола участника. Код примера:


Public Function CaloriesPerDay(sex As String, age As Integer, weight As Integer, height As Integer) As Integer
If sex = "женский" Then
    CaloriesPerDay = 10 * weight + 6.25 * height - 5 * age - 161
ElseIf sex = "мужской" Then
    CaloriesPerDay = 10 * weight + 6.25 * height - 5 * age + 5
Else: CaloriesPerDay = 0
End If
End Function


Проверки корректности введенных данных упущены для упрощения кода. Если пол не определен, функция вернет результат 0 (нуль).

Пример расчета для первого участника:

=CaloriesPerDay(B3;C3;D3;E3)

В результате использования автозаполнения получим следующие результаты:

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

Пример 3. Создать функцию, которая возвращает результаты решения квадратных уравнений для указанных в ячейках коэффициентах a, b и c уравнения типа ax2+bx+c=0.

Вид исходной таблицы:

Для решения создадим следующую пользовательскую функцию:

Код примера:


Public Function SquareEquation(a As Integer, b As Integer, c As Integer) As String
Dim answer1 As String
Dim answer2 As String
If a = 0 Then
    answer1 = "Единственный корень - "
    SquareEquation = answer1 & "(" & -c / b & ")"
ElseIf c = 0 Then
    answer1 = "Единственный корень - "
    SquareEquation = answer1 & "(" & -b / a & ")"
ElseIf b = 0 And c < 0 Then
    answer1 = "Единственный корень - "
    SquareEquation = answer1 & "(" & Sqr(a / c) & ")"
ElseIf b ^ 2 - 4 * a * c >= 0 Then
    answer1 = "Первый корень - "
    answer2 = "Второй корень - "
    SquareEquation = answer1 & "(" & (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) & ")" & "; " & _
         answer2 & "(" & (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a) & ")"
Else:
    SquareEquation = "Решений нет"
End If
End Function


Найдем корни первого уравнения:

=SquareEquation(A3;B3;C3)

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

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

Мы создали свою пользовательскую функцию для расчета квадратных уравнений, которой раньше не было в 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):

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

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

​Смотрите также​ которого кликаю, чтобы​Хочу разобраться, как​ — 4 *​ * weight +​ в случаях, если​ список параметров (аргументов)​ блоке инструментов «Работа​ условного форматирования. С​ С их помощью​ в которой находятся​ найдите свою надстройку,​ каждом запуске Excel.​ вам, и другим​ с оператора Function​

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

​price​ Basic появится окно​Хотя в Excel предлагается​​ формулу вниз размножить,а​ эту функцию «вшить»​​ a * c))​ 6.25 * height​ пользовательские функции будут​ с объявлением их​​ с данными». Потом,​​ помощью этого инструмента,​​ можно производить различные​​ прейскуранты цен на​ нажмите кнопку​ Вот как это​​ будет впоследствии проще​​ и заканчиваться оператором​​), представляют собой заполнители​​ нового модуля.​​ большое число встроенных​​ потом, по-тихоньку, значения​​ в Excel2007, чтобы​​ / (2 *​ — 5 *​ часто использоваться другими​ типов, если они​ выбрать в появившемся​ можно настроить правила​ арифметические действия с​ товары, могут использоваться​Открыть​ сделать:​ работать с кодом​ End Function. Помимо​ для значений, на​​Скопируйте указанный ниже код​​ функций, в нем​ начинают меняться. Вопрос.​

​ она стала доступна​ a) & «)»​ age + 5​ пользователями.​ требуются (некоторые могут​ списке пункт «Подбор​ выделения ячеек. Само​ данными в таблицах:​

​ для расчета показателей​, а затем установите​Windows macOS ​ VBA. Так, код​ названия функции, оператор​ основе которых вычисляется​ и вставьте его​

​ может не быть​ Это только визуализация​ любой книге? Чтобы​

1. ​Else:​​Else: CaloriesPerDay =​​​​ не принимать аргументов),​​ параметра…».​ условное форматирование можно​ сложение, вычитание, умножение,​ в таблице, об​​ флажок рядом с​​Создав нужные функции, выберите​​ будет легче понять,​​ Function обычно включает​ скидка.​ в новый модуль.​ той функции, которая​

2. ​ тормозит? Если я​ каждый раз её​SquareEquation = «Решений​

   ​ 0​
​Пример 1. Рассчитать сумму​ тип возвращаемого значения,​
​Отрывается окно подбора параметра.​ выполнить в виде​ деление, возведение в​
​ объёме закупок в​
​ надстройкой в поле​
​Файл​
​ если потребуется внести​ один или несколько​
​Оператор If в следующем​


​Function DISCOUNT(quantity, price)​​ нужна для ваших​ буду обращаться с​ не подключать к​ нет»​​End If​​ отпускных для каждого​ тело функции (код,​ В поле «Установить​ гистограммы, цветовой шкалы​ степень извлечение корня,​ денежном выражении.​Доступные надстройки​>​ в него изменения.​ аргументов. Однако вы​​ блоке кода проверяет​​If quantity >=100​

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

​ вычислений. К сожалению,​ другого приложения к​ книге?​End If​End Function​ работника, проработавшего на​

​ отражающий логику ее​

​ в ячейке» вы​ или набора значков.​ и т.д.​ВПР запускается путем вставки​.​

​Сохранить как​Апостроф указывает приложению Excel​ можете создать функцию​ аргумент​ Then​​ разработчики Excel не​​ ячейке, на которой​​Svetlov​​End Function​Проверки корректности введенных данных​ предприятии не менее​ работы), а также​ должны указать ссылку​Для того, чтобы перейти​​Для того, чтобы применить​​ оператора «ВПР» из​После выполнения этих действий​​.​​ на то, что​ без аргументов. В​quantity​DISCOUNT = quantity​ могли предугадать все​

​ я почему то​:​Найдем корни первого уравнения:​​ упущены для упрощения​​ 12 месяцев, на​​ оператор End Function.​​ на ячейку, которая​ к условному форматированию,​ формулу, нужно в​ Мастера функций в​ ваши пользовательские функции​В Excel 2007 нажмите​​ следует игнорировать всю​​ Excel доступно несколько​​и сравнивает количество​​ * price *​ потребности пользователей. Однако​ вижу прошлое значение,​_Boroda_​

​=SquareEquation(A3;B3;C3)​ кода. Если пол​ основе суммы общей​​ Пример простой пользовательской​​ содержит нужную формулу.​ нужно, находясь во​ ячейке, куда планируется​

​ ту ячейку, где​ будут доступны при​
​кнопку Microsoft Office​ строку справа от​ встроенных функций (например,​
​ проданных товаров со​
​ 0.1​
​ в Excel можно​


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

​ каждом запуске Excel.​, а затем щелкните​

​ него, поэтому вы​ СЛЧИС и ТДАТА),​​ значением 100:​​Else​ создавать собственные функции,​ или пустую строку?​​Svetlov​​ уравнений. Полученные результаты:​ вернет результат 0​ числа выходных дней​ дня недели в​ должен быть указан​ диапазон ячеек, который​ знак «=». После​​В появившемся, после запуска​​ Если вы хотите​Сохранить как​ можете добавлять комментарии​ в которых нет​If quantity >= 100​DISCOUNT = 0​ и ниже вы​

​А если его,​​:​​Скачать примеры создания пользовательский​ (нуль).​

​ в году.​

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

​ добавить функции в​

​.​ в отдельных строках​ аргументов.​ Then​End If​ найдете все нужные​ то, получается, когда​_Boroda_​ функций в Excel​Пример расчета для первого​Вид исходной таблицы данных:​​ номера, представлен на​​ вы хотите получить.​ Далее, в группе​ формула, которая может​ нужно указать адрес​ библиотеку, вернитесь в​В диалоговом окне​

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

​ или в правой​После оператора Function указывается​DISCOUNT = quantity​DISCOUNT = Application.Round(Discount,​ для этого инструкции.​ оттормозится экзель, значение​,​Мы создали свою пользовательскую​ участника:​Каждому работнику полагается 24​ рисунке ниже:​ В поле «Изменяя​ инструментов «Стили» нажать​ состоять из математических​ ячейки или диапазона​

​ редактор Visual Basic.​Сохранить как​ части строк, содержащих​ один или несколько​ * price *​ 2)​Пользовательские функции (как и​ в ячейке просто​сделал все как​ функцию для расчета​=CaloriesPerDay(B3;C3;D3;E3)​ выходных дня с​После ввода представленного выше​ значения ячейки» нужно​ на кнопку, которая​

Применение ключевых слов VBA в пользовательских функциях

​ знаков, чисел, и​ ячеек, откуда данные​ В обозревателе проектов​откройте раскрывающийся список​ код VBA. Советуем​ операторов VBA, которые​ 0.1​End Function​ макросы) записываются на​ изменится с одного​ сказали. Код в​ квадратных уравнений, которой​В результате использования автозаполнения​ выплатой S=N*24/(365-n), где:​ кода необходимо нажать​ указать координаты ячейки​ так и называется​ адресов ячеек. Для​ будут подтягиваться.​ под заголовком VBAProject​Тип файла​

​ начинать длинный блок​ проверят соответствия условиям​Else​Примечание:​ языке программирования​ на другое?​ Module1 прописал, сохранил.​ раньше не было​ получим следующие результаты:​​N – суммарная зарплата​​ комбинацию клавиш Ctrl+S​ с корректируемым значением.​​ «Условное форматирование». После​​ того, чтобы указать​Урок: Применение функции ВПР​ вы увидите модуль​и выберите значение​ кода с комментария,​​ и выполняют вычисления​​DISCOUNT = 0​ Чтобы код было более​Visual Basic для приложений​

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

​И интересно, подтормаживание​ Как теперь его​ в Excel по​Пример 3. Создать функцию,​ за год;​ или специальный значок​Урок: Применение подбора параметров​ этого, нужно выбрать​ адрес ячейки, из​ в Microsoft Excel​ с таким же​Надстройка Excel​ в котором объясняется​ с использованием аргументов,​End If​ удобно читать, можно​ (VBA)​ на пересчет повлияет​ зааттачить или что-то​

​ умолчанию.​ которая возвращает результаты​n – число праздничных​ в левом верхнем​ в Microsoft Excel​ тот вариант форматирования,​ которой берутся данные​Ещё одной важной возможностью​ названием, как у​. Сохраните книгу с​ его назначение, а​ переданных функции. Наконец,​Если количество проданных товаров​ добавлять отступы строк​. Они отличаются от​ на DDE сервер,​ типа того?​

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

​ который у меня​Хоть и сохранил,​: Добрый день!​ для указанных в​Создадим пользовательскую функцию для​ для сохранения.​ «ИНДЕКС», в чем-то​

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

​ подходящим.​ кликнуть по ней​ создание сводных таблиц.​ без расширения XLAM).​ как​ комментарии для документирования​ следует включить оператор,​ VBA выполняет следующую​TAB​ Во-первых, в них​ отваливается, например, если​ функция не появилась​Обращаюсь к вам​ ячейках коэффициентах a,​ расчета на основе​Чтобы воспользоваться созданной функцией,​ близки к возможностям​Форматирование будет выполнено.​ мышкой, и её​​ С помощью данной​​Дважды щелкните модуль в​​MyFunctions​​ отдельных операторов.​

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

​ данной формулы:​ необходимо вернуться к​ функции ВПР. Она​Урок: Применение условного форматирования​ координаты появится в​ функции, можно группировать​ Project Explorer, чтобы​, в папке​Кроме того, рекомендуется присваивать​ с тем же​

​ значения​

1. ​ не влияют на​​Function​​ строку в этой​​ пользовательская. И, соответственно,​​ мне решить простую​

   ​ уравнения типа ax2+bx+c=0.​​Код примера:​​ табличному редактору Excel,​​ также позволяет искать​​ в Microsoft Excel​

2. ​ ячейке для вывода​​ данные из других​​ вывести код функций.​​AddIns​​ макросам и пользовательским​​ именем, что у​​quantity​ выполнение кода. Если​, а не​​ книге? Сейчас проверить​​ не обрабатывается..​​ задачу.​​Вид исходной таблицы:​Public Function Otpusknye(summZp As​ установить курсор в​​ данные в массиве​​Не все пользователи знают,​ результата.​ таблиц по различным​

3. ​ Чтобы добавить новую​​. Она будет автоматически​​ функциям описательные имена.​​ функции. Это значение​​и​

   ​ добавить отступ, редактор​​Sub​​ не могу, хотелось​​Svetlov​​Уже около 3​

4. ​Для решения создадим следующую​​ Long, holidays As​​ любую ячейку и​​ значений, и возвращать​​ что таблицу, просто​

5. ​Также, программу Microsoft Excel​​ критериям, а также​​ функцию, установите точку​​ предложена в диалоговом​​ Например, присвойте макросу​​ возвращается в формулу,​​price​

6. ​ Visual Basic автоматически​​. Это значит, что​​ бы понять, стоит​:​ часов бьюсь с​

   

1. ​ пользовательскую функцию:​​ Long) As Long​​ ввести название пользовательской​​ их в указанную​​ начерченную карандашом, или​

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

3. ​ этой я уверен​​Код примера:​​If IsNumeric(holidays) =​​ функции после символа​​ ячейку.​

4. ​ при помощи границы,​​ в качестве обычного​​ с ними (суммировать,​ End Function, который​Сохранить как​​MonthLabels​​В пользовательских функциях поддерживается​ результат на 0,1:​ для следующей строки.​​ оператора​​ может вообще работать​

​,​ ерундой, и не​Public Function SquareEquation(a As​ False Or IsNumeric(summZp)​ «=»:​Синтаксис данной функции выглядит​ программа Microsoft Excel​ калькулятора. Для этого,​ умножать, делить, и​ завершает последнюю функцию​, поэтому вам потребуется​вместо​ меньше ключевых слов​Discount = quantity *​ Чтобы сдвинуть строку​

​Function​ не будет..​да нет у​ могу найти по​ Integer, b As​ = False Then​Встроенные функции Excel содержат​ следующим образом: «ИНДЕКС(диапазон_ячеек;номер_строки;номер_столбца)».​ воспринимает, как простую​ в строке формул​ т.д.), а результаты​ в окне кода,​ только принять расположение,​Labels​ VBA, чем в​ price * 0.1​​ на один знак​​, а не​

Об авторах

​В общем, спасибо,​ меня такой категории..​​ форумам и в​ Integer, c As​​Otpusknye = «Введены​ пояснения как возвращаемого​Это далеко не полный​ область ячеек. Для​ или в любой​ выводить в отдельную​ и начните ввод.​

support.office.com

10 полезных функций программы Microsoft Excel

​ используемое по умолчанию.​, чтобы более точно​ макросах. Они могут​Результат хранится в виде​ табуляции влево, нажмите​Sub​ большое за помощь,​ что то я​ книжках как это​ Integer) As String​ нечисловые данные»​ результата, так и​

​ перечень всех функций,​ того, чтобы этот​

Функция ВПР

​ ячейки просто вводятся​ таблицу. При этом,​ Вы можете создать​Сохранив книгу, выберите​ указать его назначение.​ только возвращать значение​ переменной​SHIFT+TAB​, и заканчиваются оператором​ думаю, счетать Excel-ем​ не сделал..​ сделать.​Dim answer1 As​Exit Function​ аргументов, которые они​ которые доступны в​ набор данных воспринимался​ математические выражения после​ существуют очень широкие​ любое количество функций,​Файл​ Описательные имена макросов​ в формулу на​Discount​.​End Function​

​ не получится. Глохнет​Svetlov​Хочу, чтобы в​ String​ElseIf holidays Otpusknye​

​ принимают. Это можно​ программе Microsoft Excel.​ именно как таблица,​ знака «=».​ возможности по настройке​ и они будут​

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

Сводные таблицы

​ листе или в​. Оператор VBA, который​Теперь вы готовы использовать​, а не​ он и вообще​:​ Excel 2007 прописалась​Dim answer2 As​ = «Отрицательное число​ увидеть на примере​ Мы остановили внимание​ его нужно переформатировать.​Урок: Применение формул в​ полей сводной таблицы.​ всегда доступны в​Параметры Excel​ особенно полезны, если​

​ выражение, используемое в​ хранит значение в​ новую функцию DISCOUNT.​End Sub​ пока не отвиснет​

​_Boroda_​ моя функция. Не​

Создание диаграмм

​ String​ или 0″​ любой функции нажав​ только на самых​Делается это просто. Для​ Microsoft Excel​Сводную таблицу можно создать​ категории «Определенные пользователем»​.​ существует множество процедур​ другом макросе или​ переменной, называется оператором​

​ Закройте редактор Visual​. Во-вторых, они выполняют​ не пускает стороннее​,​ в книге, а​If a =​Exit Function​ комбинацию горячих клавиш​ популярных, и наиболее​ начала, выделяем нужный​Одной из самых популярных​

​ во вкладке «Вставка»,​ диалогового окна​В Excel 2007 нажмите​ с похожим назначением.​ функции VBA. Так,​назначения​

​ Basic, выделите ячейку​ различные вычисления, а​ приложение, DDE наверняка​понял в чем​ вообще в программе.​ 0 Then​

​Else​ SHIFT+F3. Но наша​

Формулы в EXCEL

​ важных из них.​ диапазон с данными,​ функций, которые используются​ нажав на кнопку»​Вставка функции​кнопку Microsoft Office​То, как вы документируйте​ пользовательские функции не​, так как он​ G7 и введите​ не действия. Некоторые​ тоже отвалится.. Пойду​

​ было дело. Модуль​ Это возможно?​answer1 = «Единственный​Otpusknye = summZp​ функция пока еще​Автор: Максим Тютюшев​ а затем, находясь​ в Excel, является​ которая так и​.​и щелкните​ свои макросы и​ могут изменять размер​ вычисляет выражение справа​ следующий код:​ операторы (например, предназначенные​ другим путем, значит)​ дал форму со​Как-то импортировать её​

​ корень — «​ * 24 /​ не имеет формы.​В Excel содержится множество​ во вкладке «Главная»,​ функция «ЕСЛИ». С​ называется «Сводная таблица».​Эта статья основана на​Параметры Excel​

​ пользовательские функции, —​ окон, формулы в​

Функция «ЕСЛИ»

​ от знака равенства​=DISCOUNT(D7;E7)​ для выбора и​Спасибо!​ полем Sub. Переделал​ один раз и​SquareEquation = answer1​ (365 — holidays)​Чтобы задокументировать пользовательскую функцию,​ встроенных функций, которые​ кликаем по кнопке​

​ её помощью можно​Урок: Применение сводных таблиц​ главе книги​.​ ваше личное дело,​

​ ячейках, а также​ и назначает результат​Excel вычислит 10%-ю скидку​ форматирования диапазонов) исключаются​���������� ��� ������� ����​ на Function и​

​ пользоваться. Код я​ & «(» &​

Макросы

​End If​ необходимо выполнить следующие​ могут быть использованы​ «Форматировать как таблицу».​ задать в ячейке​ в Microsoft Excel​Microsoft Office Excel 2007​В диалоговом окне​ но важно выбрать​

​ шрифт, цвет или​ имени переменной слева​ для 200 единиц​ из пользовательских функций.​ ������� � excel​

​ все появилось как​ напишу, это не​ -c / b​End Function​

​ действия:​ для инженерных, статистических,​

Условное форматирование

​ После этого, появляется​ вывод одного результата​Для визуального отображения данных,​ Inside Out​Параметры Excel​ определенный способ и​ узор для текста​ от него. Так​ по цене 47,50​ Из этой статьи​ �� VBA​

​ Вы скзазали.​ проблема. Если бы​ & «)»​Сохраним функцию и выполним​Создайте новый макрос (нажмите​ финансовых, аналитических и​ список с различными​ при выполнении конкретного​ размещенных в таблице,​, написанной Марком Доджем​выберите категорию​ придерживаться его.​ в ячейке. Если​ как переменная​ ₽ и вернет​

​ вы узнаете, как​

​����� ���:​Спасибо! Надеюсь, сейчас​

«Умная» таблица

​ у вас был​ElseIf c =​ расчет с ее​ комбинацию клавиш Alt+F8),​ прочих расчетов. Иногда​ вариантами стилей оформления​ условия, и другого​ можно использовать диаграммы.​ (Mark Dodge) и​Надстройки​Чтобы использовать функцию, необходимо​

​ включить в процедуру​Discount​ 950,00 ₽.​ создавать и применять​������ ����� ������​ все остальное сделаю.​ пример простейшего макроса​ 0 Then​ использованием:​ в появившемся окне​ условия поставленных задач​ таблицы. Выбираем наиболее​

​ результата, в случае​ Их можно применять​ Крейгом Стинсоном (Craig​.​ открыть книгу, содержащую​ функции код для​называется так же,​

​В первой строке кода​ пользовательские функции. Для​ Module1 � �​Hugo​ на вба и​answer1 = «Единственный​=Otpusknye(B3;C3)​ введите произвольное название​ требуют более гибкого​ подходящий из них.​ его невыполнения.​ в целях создания​ Stinson). В нее​В раскрывающемся списке​ модуль, в котором​

​ таких действий, возникнет​ как и процедура​

Подбор параметра

​ VBA функция DISCOUNT(quantity,​ создания функций и​ ��� ���� ���������​: Если функцию сохранить​ шаги необходимые для​

​ корень — «​Растянем формулу на остальные​ нового макроса, нажмите​ инструмента для поиска​Также, таблицу можно создать,​Синтаксис данной функции выглядит​ презентаций, написания научных​ были добавлены сведения,​Управление​ она была создана.​ ошибка #ЗНАЧ!​ функции, значение, хранящееся​

​ price) указывает, что​ макросов используется​ �������​ в модуле другого​ решения моей задачи,​SquareEquation = answer1​ ячейки с целью​ кнопку Создать:​ решения, тогда на​ нажав на кнопку​ следующим образом «ЕСЛИ(логическое​ работ, в исследовательских​ относящиеся к более​выберите​

​ Если такая книга​Единственное действие, которое может​

Функция «ИНДЕКС»

​ в переменной, возвращается​ функции DISCOUNT требуется​редактор Visual Basic (VBE)​Function MyFunc(x as​ файла, в VBA-свойствах​ был бы признателен.​ & «(» &​ получения результатов для​В результате будет создан​

​ помощь приходят макросы​ «Таблица», которая расположена​

​ выражение; [результат если​ целях, и т.д.​ поздним версиям Excel.​Надстройки Excel​ не открыта, при​ выполнять процедура функции​ в формулу листа,​ два аргумента:​

​, который открывается в​

lumpics.ru

Примеры как создать пользовательскую функцию в Excel

​ Double) As Double​ которого отмечено, что​_Boroda_​ -b / a​ остальных работников:​ новый модуль с​ и пользовательские функции.​ во вкладке «Вставка»,​ истина]; [результат если​ Программа Microsoft Excel​Программа Microsoft Excel способна​. Затем нажмите кнопку​

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

​ попытке использования функции​ (кроме вычислений), —​ из которой была​quantity​ отдельном окне.​MyFunc = x​

1. ​ это надстройка (ну​: жмете Запись макроса​ & «)»​
2. ​Пример 2. Рассчитать суточную​ заготовкой, ограниченной операторами​Подобно макросам, пользовательские функции​ предварительно выделив определенную​
3. ​ ложь])».​ предоставляет широкий набор​ в значительной мере​Перейти​ возникнет ошибка #ИМЯ?​ это отображение диалогового​
4. ​ вызвана функция DISCOUNT.​(количество) и​
5. ​Предположим, что ваша компания​ * 0.005​ или другим способом​сохранить в Личная​ElseIf b =​ норму калорий для​ Sub и End​ могут быть созданы​ область листа с​С помощью операторов «И»,​ инструментов для создания​ облегчить пользователю работу​.​ При ссылке на​ окна. Чтобы получить​Если значение​price​ предоставляет скидку в​End Function​ этого добиться, например​ книга макросов​ 0 And c​ участников программы похудения,​ Sub.​ с использованием языка​ данными.​ «ИЛИ» и вложенной​
6. ​ различного типа диаграмм.​ с таблицами и​В диалоговом окне​ функцию, хранящуюся в​ значение от пользователя,​quantity​(цена). При вызове​
7. ​ размере 10 % клиентам,​� �����1 ����​ сохранив как надстройку)​ок​ < 0 Then​ среди которых есть​Введите код, как показано​ VBA. Для реализации​

​После этого, выделенный набор​ функции «ЕСЛИ», можно​Чтобы создать диаграмму, нужно​ числовыми выражениями, автоматизировав​Надстройки​ другой книге, необходимо​ выполняющего функцию, можно​меньше 100, VBA​ функции в ячейке​ заказавшим более 100​ � ������​

​ и этот файл​остановить макрос​answer1 = «Единственный​

1. ​ как женщины, так​ на рисунке ниже,​ данной задачи необходимо​ ячеек Microsoft Excel,​ задать соответствие нескольким​ выделить набор ячеек​
2. ​ её. Этого удается​установите флажок рядом​ указать перед ее​ использовать в ней​ выполняет следующий оператор:​
3. ​ листа необходимо указать​ единиц товара. Ниже​= MyFunc(0,1)​ загружается вместе с​Alt+F11​ корень — «​
4. ​ и мужчины определенного​ указав требуемое количество​ выполнить следующие действия:​ будет воспринимать как​ условиям, или одному​ с данными, которые​ достичь с помощью​ с именем книги,​ именем название книги.​ оператор​Discount = 0​ эти два аргумента.​ мы объясним, как​
5. ​� ����� ���​ Экселем (из папки​Ctrl+R​SquareEquation = answer1​ возраста с известными​ переменных (в зависимости​Открыть редактор языка VBA​ таблицу. Вследствие этого,​

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

​Наконец, следующий оператор округляет​

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

​ В формуле =DISCOUNT(D7;E7)​ создать функцию для​ ������ ������ #���?,​ автозагрузки как Персонал​выбираете Персонал, Модулез,​ & «(» &​ показателями роста и​ от числа аргументов​ с помощью комбинации​

​ например, если вы​

​Урок: Применение функции «ЕСЛИ»​ отобразить. Затем, находясь​ и различных его​

• ​Создав нужные функции, выберите​ создали функцию DISCOUNT​
• ​. Кроме того, с​ значение, назначенное переменной​

​ аргумент​ расчета такой скидки.​ ���� ��� �����​

​ или подключен как​

​ Модуль1​ Sqr(a / c)​ веса.​
​ пользовательской функции):​ клавиш ALT+F11.​ введете в ячейки,​
​ в Microsoft Excel​ во вкладке «Вставка»,​
​ функций. Давайте рассмотрим​
​Файл​ в книге Personal.xlsb​ помощью оператора​
​Discount​
​quantity​
​В примере ниже показана​ �������� ��� ����​ надстройка) то на​
​там пишете свой​
​ & ")"​


​Вид исходной таблицы данных:​В качестве «Macro» должна​В открывшемся окне выбрать​

​ расположенные у границ​

​С помощью макросов, в​ выбрать на ленте​ наиболее полезные функции​>​

Калькулятор расчета калорий в Excel

​ и хотите вызвать​MsgBox​, до двух дробных​имеет значение D7,​ форма заказа, в​ �������. � ���​ листе можно писать​ код​ElseIf b ^​

​Для расчета используем формулу​

​ быть передана текстовая​ пункт Insert и​ таблицы, какие-то данные,​ программе Microsoft Excel​ тот тип диаграммы,​ программы Microsoft Excel.​Сохранить как​

​ ее из другой​можно выводить сведения​ разрядов:​ а аргумент​ которой перечислены товары,​
​ �����, ��� �​ просто =Inc(arg)​
​Если это функция,​ 2 - 4​ Миффлина - Сан​ строка с названием​ подпункт Module, как​
​ то они будут​ можно записывать выполнение​
​ который считаете наиболее​Скачать последнюю версию​.​ книги, необходимо ввести​ для пользователей. Вы​
​Discount = Application.Round(Discount, 2)​price​
​ их количество и​
​ ���� ������� ���​


​Svetlov​ то в списке​ * a *​ Жеора, которую запишем​ пользовательской функции, в​ показано на рисунке:​

​ автоматически включены в​ определенных действий, а​

​ подходящим для достижения​

​ Excel​В диалоговом окне​

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

​=personal.xlsb!discount()​ также можете использовать​В VBA нет функции​— значение E7.​ цена, скидка (если​ ����������.​:​

​ функций она будет​

​ c >= 0​ в коде пользовательской​

​ качестве «Description» -​

​Новый модуль будет создан​ эту таблицу. Кроме​ потом воспроизводить их​ поставленных целей.​
​Одной из самых востребованных​Сохранить как​
​, а не просто​ настраиваемые диалоговые окна​
​ округления, но она​ Если скопировать формулу​
​ она предоставляется) и​��� ��������� �������​
​Hugo​ примерно так:​ Then​ функции с учетом​
​ переменная типа String​ автоматически, при этом​
​ того, при прокрутке​ автоматически. Это существенно​
​Более точная настройка диаграмм,​ функций в программе​откройте раскрывающийся список​=discount()​
​ (​ есть в Excel.​ в ячейки G8:G13,​
​ итоговая стоимость.​ ���� �������?​
​,​Категория - "Определенные​answer1 = "Первый​ пола участника. Код​
​ с текстом описания​ в основной части​ вниз, шапка таблицы​ экономит время на​ включая установку её​
​ Microsoft Excel является​Тип файла​
​.​UserForms​
​ Чтобы использовать округление​ вы получите указанные​Чтобы создать пользовательскую функцию​����� �������​понял, спасибо.. Мне​ пользователем"​ корень - "​ примера:​ возвращаемого значения, в​ окна редактора появится​
​ будет постоянно в​ выполнении большого количества​ наименования и наименования​ ВПР (VLOOKUP). С​и выберите значение​Чтобы вставить пользовательскую функцию​), но эта тема​
​ в этом операторе,​
​ ниже результаты.​ DISCOUNT в этой​
​: Function MyFunc(x) As​
​ не принципиально "чистота"​


​PERSONAL.XLSB!Inc​

​answer2 = «Второй​

​Public Function CaloriesPerDay(sex As​ качестве «ArgumentDescriptions» -​

​ окно для ввода​ пределах области зрения.​

​ однотипной работы.​ осей, производится в​ помощью данной функции,​Надстройка Excel​ быстрее (и избежать​ выходит за рамки​

exceltable.com

Пользовательская функция доступная любой книге (как сделать польз. функцию и закрепить её в Excel?)

​ необходимо указать VBA,​​Рассмотрим, как Excel обрабатывает​
​ книге, сделайте следующее:​ Double​ названия, но приму​———————————————————————————​
​ корень — «​ String, age As​ массив переменных типа​ кода:​Урок: Создание таблицы в​Макросы можно записывать, просто​ группе вкладок «Работа​ можно значения одной​
​. Сохраните книгу с​ ошибок), ее можно​ данной статьи.​ что метод (функцию)​ эту функцию. При​Нажмите клавиши​
​MyFunc = x​ к сведению, конечно,​Svetlov​SquareEquation = answer1​ Integer, weight As​ String с текстами​При необходимости можно изменить​ Microsoft Excel​ включив запись своих​ с диаграммами».​ или нескольких таблиц,​

​ запоминающимся именем, таким​​ выбрать в диалоговом​
​Даже простые макросы и​ Round следует искать​
​ нажатии клавиши​
​ALT+F11​
​ * 0.005​
​ удобнее, когда функций​
​:​ & «(» &​
​ Integer, height As​ описаний аргументов пользовательской​
​ название модуля.​С помощью функции подбора​ действий в программе,​Одним из видов диаграмм​
​ перетягивать в другую.​ как​
​ окне «Вставка функции».​
​ пользовательские функции может​

​ в объекте Application​​ВВОД​​(или​​End Function​
​ много.​
​Serge_007​ (-b + Sqr(b​
​ Integer) As Integer​ функции.​
​В отличие от макросов,​
​ параметров, можно подобрать​
​ через соответствующую кнопку​
​ являются графики. Принцип​
​ При этом, поиск​MyFunctions​ Пользовательские функции доступны​ быть сложно понять.​ (Excel). Для этого​Excel ищет имя​FN+ALT+F11​��� ��� ������​

​А вот теперь​​, здравствуйте.​​ ^ 2 -​​If sex =​

​Для создания описания пользовательской​​ код которых должен​​ исходные данные, исходя​​ на ленте.​
​ построения их тот​ производится только в​.​ в категории «Определенные​ Чтобы сделать эту​ добавьте слово​
​DISCOUNT​на Mac), чтобы​ ����. � ����​ вопрос, по архитектуре,​Задача следующая.​

​ 4 * a​​ «женский» Then​​ функции достаточно один​​ находиться между операторами​
​ из конечного нужного​Также, запись макросов можно​ же, что и​ первом столбце таблицы.​

​Сохранив книгу, выберите​​ пользователем»:​​ задачу проще, добавьте​​Application​
​в текущей книге​ открыть редактор Visual​ �����������. � ������​ что-ли..​Например, чтобы не​ * c)) /​CaloriesPerDay = 10​
​ раз выполнить созданный​ Sub и End​

​ для вас результата.​​ производить, используя язык​ у остальных типов​ Тем самым, при​Сервис​Чтобы упростить доступ к​ комментарии с пояснениями.​перед словом Round.​ и определяет, что​ Basic, а затем​ ������� ���������. ������​Обрабатываю весь столбец​ загружать лишними подробностями..​ (2 * a)​ * weight +​ выше модуль. Теперь​ Sub, пользовательские функции​

​Для того, чтобы использовать​​ разметки Visual Basic,​​ диаграмм.​​ изменении данных в​
​>​ пользовательским функциям, можно​ Для этого нужно​ Используйте этот синтаксис​ это пользовательская функция​ щелкните​
​ � ������​ формулой. Например показать​Функция — Inc(arg)​
​ & «)» &​ 6.25 * height​ при вызове пользовательской​ обозначают операторами Function​
​ эту функцию, нужно​ в специальном редакторе.​Урок: Применение диаграмм в​ таблице-источнике, автоматически формируются​Надстройки Excel​ определить их в​ ввести перед текстом​ каждый раз, когда​ в модуле VBA.​Insert​Irq​ 3 символа слева​ — инкриэйс​ «; » &​ — 5 *​ функции (или SHIFT+F3)​
​ и End Function​ находиться во вкладке​Урок: Применение макросов в​ Microsoft Excel​ данные и в​.​
​ отдельной книге, а​ апостроф. Например, ниже​ нужно получить доступ​ Имена аргументов, заключенные​(Вставка) >​: http://forum.codenet.ru/threads/4248-HELP-***-Пол ьзовател ьские-функции-в-Excel-***​ от источника.​Её код​ _​ age — 161​ отображается описание возвращаемого​ соответственно. В состав​ «Данные». Затем, требуется​
​ Microsoft Excel​Для работы с числовыми​ производной таблице, в​В диалоговом окне​ затем сохранить ее​ показана функция DISCOUNT​ к функции Excel​ в скобки (​Module​���� ��������� ���​
​Сначала ВСЕ поля​

excelworld.ru

���������������� ������� � excel

​нажмите кнопку «Обзор»,​​ можно включать при​ подобным комментариями и​
​Пользовательские функции должны начинаться​и​
​ части редактора Visual​
​ ����​ по нижнему углу​End Function​ Sqr(b ^ 2​CaloriesPerDay = 10​

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

​ данные из таблицы,​