Vba excel использование функций excel

Большинство функций рабочего листа Microsoft Excel можно использовать в коде Visual Basic (список этих функций: List of Worksheet Functions Available to Visual Basic)
Часть функций Excel в Visual Basic просто не нужны. Например, вместо функции Concatenate (СЦЕПИТЬ) в коде Visual Basic для объединения текстов используется оператор &.

В Visual Basic функции рабочего листа (worksheet ) Microsoft Excel доступны через объект WorksheetFunction.

Например, здесь используется функция Min для определения наименьшего значения в диапазоне ячеек:

Sub UseFunction() 
 Dim myRange As Range 
 Set myRange = Worksheets("Sheet1").Range("A1:C10") 
 answer = Application.WorksheetFunction.Min(myRange) 
 MsgBox answer 
End Sub

Здесь сначала объявляется переменная myRangeкак объект типа Range, и затем ей назначается диапазон ячеек  A1:C10 на листе Sheet1. Переменной answer присваивается результат применения функции Min к myRange. Полученное значение answer отображается в окне сообщения.

Диапазон ячеек необходимо объявить как объект Range!

Например, в формуле в ячейке таблицы Excel
=MATCH(9,A1:A10,0)
а в коде Visual Basic —

Sub FindFirst() 
 myVar = Application.WorksheetFunction.Match(9, Worksheets(1).Range("A1:A10"), 0) 
 MsgBox myVar 
End Sub

Функции Visual Basic (без префикса WorksheetFunction) могут иметь такое же имя, как и функция Excel, но работать иначе. Например, Application.WorksheetFunction.Log и Log возвращают разные значения.

Вставка функции рабочего листа в ячейку

Чтобы вставить функцию в ячейку, нужно присвоить ее свойству Formula соответствующего объекта Range.

Например:

Sub InsertFormula() 
 Worksheets("Sheet1").Range("A1:B3").Formula = "=RAND()" 
End Sub

результат функции RAND (она возвращает случайное число) присваивается свойству Formula диапазона ячеек A1:B3 на листе Sheet1в активной книге Excel.

источник (Using Microsoft Excel Worksheet Functions in Visual Basic [Excel 2003 VBA Language Reference] Office 2003)

С помощью 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. Скопируйте и вставьте код в окно модуля. 

Процедуры «Function» и «Sub» в VBA

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

​Смотрите также​Параметры​ и запустил выполнение​ на языке VBA)​Функции работы с объектами​Функции обработки строк​ * 100, а​If x>0 Then Cells(1,​Do While x1 <​

​ иконку рядом с​Для многомерных массивов​True​

• ​равно​Перевел: Антон Андронов​, доступную из рабочего​ при помощи простого​​ByRef​​Перед тем, как приступить​​(Options)​​ тех же действий​
• ​ хранятся в программных​GetObject​UCase​​ в сумме —​​ 1).Value = 1​
• ​ x2 (цикл будет​ иконкой Excel;​ в качестве необязательного​, если заданное значение​True​Автор: Антон Андронов​ листа:​​ присваивания этой процедуры​​в объявлении процедуры​ к созданию собственных​

​позволяет посмотреть и​ еще раз. Естественно​ модулях. В любой​Функции работы с объектами​Функции обработки строк​ (F – P).​

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

​If x=0 Then Cells(1,​ выполняться пока верно​выбирают команду Mudule;​ аргумента может быть​​ является датой, или​​.​​При написании кода VBA​​Нажмите​ переменной. В следующем​​ можно задать, каким​​ функций VBA, полезно​​ отредактировать сочетание клавиш​​ у такого способа​ книге Excel мы​​IsObject​​Val​​Результаты этих вычислений можно​​ 1).Value = 0​

​ выражение x1 <​сохраняют, нажав на иконку​ указано, индекс какого​False​В приведённой выше таблице​ в Excel набор​​Alt+F8​​ примере показано обращение​ именно способом аргумент​ знать, что Excel​ для быстрого запуска​ есть свои плюсы​ можем создать любое​​Функции работы с объектами​​Функции обработки строк​

Аргументы

​ лучше всего сразу​If x​ x2)​ с изображением floppy​ именно измерения нужо​– если датой​​ перечислены не все​​ встроенных операторов используют​(нажмите клавишу​ к процедуре​ передаётся процедуре. Ниже​ VBA располагает обширной​ макроса.​ и минусы:​ количество программных модулей​

​DDB​CBool​ внести в соответствующие​

​End Sub.​y=x1 + x1^2 +​ disk;​​ возвратить. Если не​​ не является.​​ логические операторы, доступные​​ на каждом шагу.​Alt​SumMinus​ это показано на​

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

​ коллекцией готовых встроенных​Кнопка​Макрорекордер записывает только те​ и разместить там​Финансовые функции​Функции преобразования типа данных​ ячейки таблицы «Эксель».​Остается запустить макрос и​ 3*x1^3 – Cos(x1)​

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

​и, удерживая её​, которая была определена​ примерах:​

​ функций, которые можно​Изменить​​ действия, которые выполняются​​ наши макросы. Один​FV​

​CByte​Для итогов по факту​ получить в «Эксель»​Cells(i, 1).Value = x1​ кода.​

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

​ умолчанию равно 1.​IsDate(«01/01/2015»)​ список логических операторов​

• ​ на математические, строковые,​​ нажатой, нажмите клавишу​ выше.​Sub AddToCells(ByVal i As​ использовать при написании​(Edit)​ в пределах окна​ модуль может содержать​Финансовые функции​Функции преобразования типа данных​ и прогнозу получают​ нужное значение для​
• ​ (значение x1 записывается​​Он выглядит следующим образом:​Year​возвращает​ можно найти на​ операторы сравнения и​F8​Sub main() Dim​ Integer) … End​ кода.​открывает редактор Visual​

​ Microsoft Excel. Как​​ любое количество макросов.​​IPmt​​CCur​​ по формулам ItogP=ItogP​ аргумента.​ в ячейку с​Sub program ()​Возвращает целое число, соответствующее​True​

​Cells(i, 2).Value = y​End Sub​ дате.Пример:​IsDate(100)​В VBA доступно множество​ группу операторов.​​ выберите тот, который​​ 4, 3) End​​ аргумент​​ VBA:​ и отредактировать текст​

​ в другую программу​ помощью окна Project​​Финансовые функции​​Функции преобразования типа данных​​Для отклонений используют =​​ самом известном табличном​ (значение y записывается​Обратите внимание, что строка​Year(«29/01/2015»)​возвращает​ встроенных функций, которые​Основные математические операторы VBA​​ хотите запустить.​​ Sub​​i​​Откройте рабочую книгу Excel​ макроса на VBA.​

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

​ — запись останавливается.​​ Explorer в левом​​MIRR​CDbl​ (ItogF – ItogP)​ процессоре Microsoft не​

​ в ячейку с​ «’Наш код» будет​

​возвращает значение 2015.​​False​​ могут быть использованы​ перечислены в таблице​​Нажмите​​VBA процедуру​передан по значению.​ и запустите редактор​

• ​Чтобы не запоминать сочетание​Макрорекордер может записать только​ верхнем углу редактора​​Финансовые функции​​Функции преобразования типа данных​
• ​ / ItogP *​ так уж сложно.​ координатами (i,2))​ выделена другим цветом​​Данный список включает в​​.​ при написании кода.​ ниже.​Выполнить​Function​​ После выхода из​​ VBA (нажмите для​

​ клавиш для запуска​ те действия, для​

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

​ (если его не​NPer​​CDec​​ 100, если расчет​ Особенно, если научиться​​i = i +​​ (зеленым). Причина в​ себя только избранные​IsError​ Ниже перечислены некоторые​В правом столбце таблицы​​(Run)​​можно вызвать из​ процедуры​ этого​

​ макроса, лучше создать​ которых есть команды​ видно, нажмите CTRL+R).​Финансовые функции​Функции преобразования типа данных​ ведется в процентах,​ применять функции VBA.​

​ 1 (действует счетчик);​ апострофе, поставленном в​​ наиболее часто употребляемые​​Возвращает​ из наиболее часто​ указан приоритет операторов,​Чтобы выполнять процедуру​ рабочего листа Excel​Sub​​Alt+F11​​ кнопку и назначить​ меню или кнопки​​ Программные модули бывают​​NPV​CInt​ а в случае​ Всего в этом​​x1 = x1 +​​ начале строки, который​ встроенные функции Excel​True​

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

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

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

​ суммарной величины —​​ языке программирования, созданном​​ shag (аргумент изменяется​ обозначает, что далее​ Visual Basic. Исчерпывающий​, если заданное значение​Функция Действие​ при отсутствии скобок.​быстро и легко,​​ как любую другую​​i​F2​

​ Кнопка может быть​ же может написать​ разных ситуаций:​Pmt​CLgn​

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

​ (ItogF – ItogP).​​ специально для написания​​ на величину шага);​ следует комментарий.​ список функций VBA,​ является ошибкой, или​Abs​ Добавляя в выражение​ можно назначить для​​ встроенную функцию Excel.​​изменения будут утрачены.​​.​​ нескольких типов:​ макрос, который делает​Обычные модули​Финансовые функции​

​Функции преобразования типа данных​

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

​Результаты опять же сразу​ приложений в «Эксель»​​Loop​​Теперь вы можете написать​ доступных для использования​False​Возвращает абсолютную величину заданного​

​ скобки, можно изменять​ неё комбинацию клавиш.​

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

​ Следовательно, созданную в​Sub AddToCells(ByRef i As​​В выпадающем списке в​​Кнопка на панели инструментов​ то, что Excel​- используются в​PPmt​CSgn​ записываются в соответствующие​ и Word, около​End Sub.​ любой код и​

​ в макросах Excel,​– если ошибкой​ числа.​ порядок выполнения операторов​ Для этого:​ предыдущем примере процедуру​

​ Integer) … End​​ верхней левой части​​ в Excel 2003​ никогда не умел​

​ большинстве случаев, когда​Финансовые функции​Функции преобразования типа данных​​ ячейки, поэтому нет​​ 160 функций. Их​​В результате запуска данного​​ создать для себя​​ можно найти на​​ не является.​Пример:​ VBA по своему​Нажмите​​Function​​ Sub​​ экрана выберите библиотеку​​ и старше​ (сортировку по цвету,​ речь идет о​PV​

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

​CStr​ необходимости их присваивания​ можно разделить на​ макроса в «Эксель»​ новый инструмент в​ сайте Visual Basic​IsMissing​Abs(-20)​​ желанию.​​Alt+F8​–​

​В этом случае целочисленный​VBA​Откройте меню​ например или что-то​ макросах. Для создания​

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

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

​Финансовые функции​​Функции преобразования типа данных​​ переменным.​ несколько больших групп.​ получаем два столбца,​​ VBA Excel (примеры​​ Developer Center.​​В качестве аргумента функции​​возвращает значение 20;​Оператор Действие Приоритет​.​SumMinus​

​ аргумент​.​

​Сервис — Настройка​​ подобное).​​ такого модуля выберите​Rate​CVar​Перед запуском созданной программы,​

​ Это:​ в первом из​ программ см. далее).​

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

​Урок подготовлен для Вас​​ передаётся имя необязательного​​Abs(20)​(1 — высший;​В появившемся списке макросов​можно вызвать, введя​i​Появится список встроенных классов​​(Tools — Customize)​​Если во время записи​​ в меню​​Финансовые функции​Функции преобразования типа данных​​ требуется сохранить рабочую​​Математические функции. Применив их​ которых записаны значения​​ Конечно, тем, кто​​ командой сайта office-guru.ru​ аргумента процедуры.​возвращает значение 20.​ 5 — низший)​ выберите тот, которому​ в ячейку рабочего​​передан по ссылке.​​ и функций VBA.​и перейдите на​ макроса макрорекордером вы​​Insert — Module​​SLN​CVDate​ книгу, например, под​ к аргументу, получают​​ для x, а​​ знаком с азами​Источник: http://www.excelfunctions.net/VBA-Operators-And-Functions.html​IsMissing​

​Chr​^​​ хотите назначить сочетание​​ листа вот такое​ После выхода из​

• ​ Кликните мышью по​​ вкладку​​ ошиблись — ошибка​​. В появившееся окно​​Финансовые функции​Функции преобразования типа данных​​ названием «Отчет1.xls».​​ значение косинуса, натурального​
• ​ во втором —​ Visual Basic, будет​Перевел: Антон Андронов​
• ​возвращает​​Возвращает символ ANSI, соответствующий​​Оператор возведения в степень​

​ клавиш.​​ выражение:​​ процедуры​ имени функции, чтобы​Команды (Commands)​ будет записана. Однако​

• ​ нового пустого модуля​​SYD​​Choose​
• ​Клавишу «Создать отчетную таблицу»​ логарифма, целой части​ для y.​ намного проще. Однако​
• ​Автор: Антон Андронов​​True​​ числовому значению параметра.​1​Нажмите​
• ​=SumMinus(10, 5, 2)​​Sub​​ внизу окна отобразилось​. В категории​​ смело можете давить​​ можно вводить команды​

​Финансовые функции​​Функции загрузки данных​ требуется нажать всего​ и пр.​Затем по ним строится​ даже те, кто​​Немногие знают, что первая​​, если для рассматриваемого​Пример:​*​Параметры​Редактор VBA понимает, что​все сделанные с​ её краткое описание.​

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

​Макросы​ на кнопку отмены​ на VBA, набирая​Format​IIf​​ 1 раз после​​Финансовые функции. Благодаря их​​ график способом, стандартным​​ их не имеет,​ версия популярного продукта​ аргумента процедуры не​Chr(10)​

​ или копируя их​FormatCurrency​InputBox​​ Следует знать и​​ программирование в Excel,​​Для реализации циклов в​​ освоиться достаточно быстро.​ в 1985 году.​IsNumeric​Chr(97)​​/​​ введите сочетание клавиш.​, когда встречает группу​ в переменной, которая​откроет страницу онлайн-справки​Настраиваемую кнопку​ записи макроса макрорекордером​ из другого модуля,​​Функции форматирования​​Функции загрузки данных​

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

​ другие правила. В​ можно получать эффективные​​ VBA Excel 2010,​​За таким названием скрываются​​ С тех пор​​Возвращает​возвращает символ​Оператор деления​Нажмите​​ команд, заключённую между​​ была передана процедуре​​ по этой функции.​​(Custom button)​ она не просто​ с этого сайта​​FormatDateTime​​LoadPicture​ частности, кнопка «Добавить​ инструменты для ведения​ как и в​ программы, написанные на​ он пережил несколько​True​a​2​ОК​ вот такими открывающим​Sub​Кроме того, полный список​

​:​ возрвращает Вас в​ или еще откуда​Функции форматирования​

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

​ встроенных функций VBA​Перетащите ее к себе​
​ предыдущее состояние, но​
​ нибудь:​

​FormatNumber​

office-guru.ru

Операторы и встроенные функции VBA

Операторы Excel VBA

​LoadResData​ каждый раз после​ осуществления финансовых расчетов.​ с уже приведенной​ for Application. Таким​ у миллионов пользователей​ может быть рассмотрено​Date​Оператор деления без остатка​ окно​

Математические операторы

​Sub … End​Помните, что аргументы в​ с примерами можно​

​ на панель инструментов​ и стирает последнюю​Модуль Эта книга​Функции форматирования​Функции загрузки данных​ ввода в таблицу​Функции обработки массивов. К​ конструкцией Do While​ образом, программирование в​

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

Строковые операторы

​ без остатка. Например,​Внимание:​ процедуры​​ Иначе говоря, если​​ Centre.​

​ кнопкой мыши. В​

Операторы сравнения

​ нужным кодом. Благодаря​ малой толикой возможностей​.​ к заданной дате.​74​​Назначая сочетание клавиш​​Sub​ не использованы ключевые​В Excel Visual Basic​ контекстом меню можно​

​в Excel 2003 и​

Логические операторы

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

​StrPtr​

​ вот такой:​число​Оператор модуля (остатка) –​Ctrl+C​ по центру (и​, то аргумент будет​(Функция) или​ доступа в Excel​

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

​(Tools — Macro -​ выполнятся при наступлении​Всем нам приходится -​Dir​ решать задачи для​ числом пробелов, равных​ коротко, без использования​

​ создавать модули для​

​. Если аргумент​Редактор VBA распознаёт процедуру​Function​ в правую половину​ не содержать пробелов​ ячейках, пересчет листа,​ перекладывая монотонную однообразную​Функции работы с файлами​ нажатием дежурных клавиш​ Так, функция WeekdayName​ например, всех нечетных​

​ «Макрос1», а в​Недостатком программы являются проблемы,​
​Возвращает количество символов в​
​год​

​Оператор Действие​

office-guru.ru

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

​Public Sub AddToCells(i As​iFontSize​Function​, а для того,​ окна, т.е. на​ и знаков препинания.​ копирование или удаление​ работу на плечи​Seek​ или через вкладку​ возвращает название (полное​ чисел из диапазона​ поле «Сочетание клавиш»​ связанные с совместимостью​ строке.​q​&​ Integer) … End​

Что такое VBA

​не передан процедуре​, когда встречает группу​ чтобы просто выполнить​ панель быстрого доступа:​Сочетание клавиш​ листа и т.д.)​ Excel. Другим поводом​

​Функции работы с файлами​ «Вид» и пиктограмму​ или частичное) дня​ от 1 до​ вставляют, например, hh​ различных версий. Они​Пример:​квартал​Оператор конкатенации. К примеру,​ Sub​Sub​

​ команд, заключённую между​ какие-то действия (например,​Кнопка на листе​- будет потом​Обычный макрос, введенный в​ для использования макросов​CallByName​ «Макросы».​ недели по его​ 11, то пишем:​ (это значит, что​ обусловлены тем, что​Len(«абвгдеж»)​m​ выражение​Если перед объявлением процедуры​, то его значение​ вот такими открывающим​ изменить форматирование группы​Этот способ подходит для​ использоваться для быстрого​ стандартный модуль выглядит​

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

​ в вашей работе​Функции обработки системных параметров​Автор: Наира​ номеру. Еще более​For i = 1​ запустить программку можно​ код программы VBA​возвращает число 7.​месяц​«A» & «B»​ стоит ключевое слово​ по умолчанию принимается​ и закрывающим операторами:​

​ ячеек), нужно выбрать​ любой версии Excel.​ запуска макроса. Если​ примерно так:​ может стать необходимость​Command​Функция Категория​ полезной является Timer.​ to 10 step​ будет блиц-командой «Ctrl+h»).​

​ обращается к функциональным​Month​y​возвратит результат​Public​ равным 10. Однако​Function … End​ процедуру​

​ Мы добавим кнопку​ забудете сочетание или​Давайте разберем приведенный выше​ добавить в Microsoft​Функции обработки системных параметров​Abs​

​ Он выдает число​ 1 Next.​ Нажимают Enter.​ возможностям, которые присутствуют​Возвращает целое число, соответствующее​день года​AB​, то данная процедура​ же, если аргумент​ Function​Sub​ запуска макроса прямо​ вообще его не​ в качестве примера​ Excel недостающие, но​

​CVErr​Математические функции​ секунд, которые прошли​Здесь step — шаг.​

Как начать

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

​iFontSize​Как упоминалось ранее, процедура​.​ на рабочий лист,​ введете, то макрос​

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

​ всех модулей в​

​ передается процедуре​

​Function​

​При помощи аргументов процедурам​

​ как графический объект.​ можно будет запустить​Zamena​ Например функцию сборки​DoEvents​Математические функции​ конкретного момента дня.​ он равен двум.​

​ копирование содержимого какой-либо​ в старой. Также​Пример:​w​ сравнения двух чисел​ данном проекте VBA.​Sub​в VBA (в​ VBA могут быть​ Для этого:​ через меню​:​ данных с разных​Функции обработки системных параметров​

Макросы в Excel

​Cos​Функции для преобразования числового​ По умолчанию отсутствие​ ячейки в другую.​ к минусам относят​Month(«29/01/2015»)​день недели​ или строк и​Private Sub AddToCells(i As​, то в выделенном​ отличие от​ переданы различные данные.​В Excel 2003 и​Сервис — Макрос -​Любой макрос должен начинаться​ листов на один​Environ​Математические функции​ аргумента в разные​ этого слова в​

Пример 1

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

​ Integer) … End​

• ​ диапазоне ячеек будет​
• ​Sub​
• ​ Список аргументов указывается​
• ​ старше — откройте​

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

​Mid​неделя​ типа​ Sub​ установлен размер шрифта,​), возвращает значение. Для​ при объявлении процедуры.​ панель инструментов​(Tools — Macro -​

​Sub​

• ​ данных обратно, вывод​Erl​
• ​Математические функции​ Oct выдает в​
• ​ шаг единичный.​ «Запись макроса». Это​ изменения посторонним лицом.​

​Возвращает заданное количество символов​h​Boolean​Если перед объявлением процедуры​

​ заданный пользователем.​ возвращаемых значений действуют​ К примеру, процедура​Формы​ Macros — Run)​, за которым идет​ суммы прописью и​Функции обработки системных параметров​Fix​ восьмеричное представление числа.​Полученные результаты нужно сохранять​ действие означает завершение​

​ Тем не менее​ из середины переданной​час​(True или False).​ стоит ключевое слово​Следующая процедура похожа на​ следующие правила:​Sub​через меню​или с помощью​ имя макроса и​ т.д.​

​Error​Математические функции​Функции форматирования. Важнейшей из​ в ячейки с​ программки.​ Microsoft Office, а​ строки. Синтаксис функции:​

Пример 2

​n​ Основные операторы сравнения​Private​

​ только что рассмотренную,​Тип данных возвращаемого значения​в VBA добавляет​Вид — Панели инструментов​ кнопки​ список аргументов (входных​Макрос​Функции обработки системных параметров​Int​ них является Format.​

​ номером (i,1). Тогда​Далее:​ также IBM Lotus​Mid(​минута​ Excel VBA перечислены​, то данная процедура​ но на этот​ должен быть объявлен​

​ заданное целое число​ — Формы (View​Макросы (Macros)​ значений) в скобках.​- это запрограммированная​GetAllSettings​Математические функции​

​ Она возвращает значение​

​ при каждом запуске​

​вновь переходят на строку​

​ Symphony позволяют пользователю​

​строка​

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

​ (Integer) в каждую​ — Toolbars -​

​на вкладке​ Если аргументов нет,​ последовательность действий (программа,​Функции обработки системных параметров​

​IsNumeric​ типа Variant с​ цикла с увеличением​ «Макросы»;​

​ применять шифрование начального​,​

​секунда​Оператор Действие​ для текущего модуля.​

​ размера, применяется полужирное​

​Function​

​ ячейку в выделенном​ Forms)​Разработчик (Developer)​ то скобки надо​ процедура), записанная на​GetSetting​Математические функции​ выражением, отформатированным согласно​

​ i на величину​в списке выбирают «Макрос​ кода и установку​

Пример 3

​начало​Пример:​=​ Её нельзя будет​ начертание шрифта в​.​ диапазоне. Передать процедуре​

​В Excel 2007 и​или нажав ALT+F8.​ оставить пустыми.​ языке программирования Visual​Функции обработки системных параметров​Log​ инструкциям, которые заданы​ шага автоматически будет​ 1»;​

​ пароля для его​,​DateAdd(«d», 32, «01/01/2015»)​Равно​ вызвать, находясь в​ выделенном диапазоне ячеек.​Переменная, которая содержит возвращаемое​ это число можно​

​ новее — откройте​Сохранить в…​

​Любой макрос должен заканчиваться​ Basic for Applications​IMEStatus​Математические функции​ в описании формата.​

​ расти и номер​нажимают «Выполнить» (то же​ просмотра.​длина​добавляет 32 дня​<>​

​ любом другом модуле​ Это пример процедуры​ значение, должна быть​

​ при помощи аргумента,​ выпадающий список​- здесь задается​ оператором​ (VBA). Мы можем​Функции обработки системных параметров​Rnd​

​и пр.​ у строки. Таким​ действие запускается начатием​Именно с этими понятиями​)​ к дате 01/01/2015​Не равно​ или из рабочей​Sub​ названа так же,​ вот так:​

​Вставить (Insert)​ место, куда будет​

​End Sub​

​ запускать макрос сколько​IsEmpty​Математические функции​Изучение свойств этих функций​ образом, произойдет оптимизация​ сочетания клавиш «Ctrl+hh»).​

​ нужно разобраться тем,​где​ и, таким образом,​Меньше​ книги Excel.​

​, которой не передаются​ как и процедура​Sub AddToCells(i As​на вкладке​

​ сохранен текст макроса,​

​.​ угодно раз, заставляя​Функции обработки системных параметров​Round​ и их применение​ кода.​В результате происходит действие,​ кто собирается работать​строка​ возвращает дату 02/02/2015.​>​

Пример 4

​Помните о том, что​ никакие аргументы:​Function​ Integer) … End​Разработчик (Developer)​ т.е. набор команд​Все, что находится между​ Excel выполнять последовательность​IsError​Математические функции​ позволит значительно расширить​В целом код будет​ которое было осуществлено​ в среде VBA.​– это исходная​DateAdd(«ww», 36, «01/01/2015»)​Больше​

​ если перед объявлением​Sub Format_Centered_And_Bold() Selection.HorizontalAlignment​. Эту переменную не​ Sub​ ​ на VBA из​

​Sub​

​ любых нужных нам​

​Функции обработки системных параметров​

​Sgn​ сферу применения «Эксель».​ выглядеть, как:​ в процессе записи​ Прежде всего необходимо​ строка,​

​добавляет 36 недель​

​Меньше либо равно​ VBA процедуры​ = xlCenter Selection.VerticalAlignment​ нужно объявлять отдельно,​Имейте в виду, что​

​Выберите объект​ которых и состоит​

​и​ действий, которые нам​

​IsMissing​

​Математические функции​

​Попробуем перейти к решению​Sub program()​ макроса.​ понять, что такое​

Функции VBA

​начало​ к дате 01/01/2015​>=​Function​ = xlCenter Selection.Font.Bold​ так как она​ наличие аргументов для​Кнопка (Button):​ макрос.:​End Sub​ не хочется выполнять​Функции обработки системных параметров​Sin​ более сложных задач.​For i = 1​Имеет смысл увидеть, как​

• ​ объект. В Excel​– позиция начала​ и возвращает дату​Больше либо равно​или​
• ​ = True End​ всегда существует как​ процедур​Затем нарисуйте кнопку на​Эта книга​- тело макроса,​ вручную.​
• ​IsNull​Математические функции​ Например:​
• ​ To 10 Step​ выглядит код. Для​ в этом качестве​ извлекаемой строки,​ 09/09/2015.​Логические операторы, как и​Sub​ Sub​ неотъемлемая часть процедуры​Function​ листе, удерживая левую​- макрос сохраняется​ т.е. команды, которые​В принципе, существует великое​Функции обработки системных параметров​Sqr​Дан бумажный документ отчета​
• ​ 1 (можно записать​ этого вновь переходят​ выступают лист, книга,​длина​DateDiff​
• ​ операторы сравнения, возвращают​ключевое слово не​Чтобы вызвать VBA процедуру​Function​и​ кнопку мыши. Автоматически​ в модуль текущей​ будут выполняться при​ множество языков программирования​Shell​Математические функции​ фактического уровня издержек​ просто For i​
• ​ на строку «Макросы»​ ячейка и диапазон.​– количество символов,​Вычисляет количество определённых временных​ логическое значение типа​
• ​ вставлено, то по​Sub​.​Sub​ появится окно, где​ книги и, как​ запуске макроса. В​
• ​ (Pascal, Fortran, C++,​

​Функции обработки системных параметров​Tan​ предприятия. Требуется:​ = 1 To​

Пример 5

​ и нажимают «Изменить»​ Данные объекты обладают​ которые требуется извлечь.​

​ интервалов между двумя​Boolean​ умолчанию для процедуры​

• ​из другой VBA​Это отлично проиллюстрировано в​в VBA не​
• ​ нужно выбрать макрос,​ следствие, будет выполнятся​ данном случае макрос​ C#, Java, ASP,​Switch​Математические функции​разработать его шаблонную часть​

​ 10)​ или «Войти». В​

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

​ специальной иерархией, т.е.​Пример:​ заданными датами.​(True или False).​ устанавливается свойство​ процедуры, нужно записать​ следующем примере.​ является обязательным. Для​ который должен запускаться​ только пока эта​ выделяет ячейку заливает​ PHP…), но для​Функции обработки системных параметров​Array​ посредством табличного процессора​Cells(i, 1).Value = i​ результате оказываются в​ подчиняются друг другу.​

Переменные

​Mid(«абвгдежзиклмн», 4, 5)​Пример:​ Основные логические операторы​Public​ ключевое слово​

• ​Ниже приведён пример кода​ некоторых процедур аргументы​
• ​ при щелчке по​ книга открыта в​ выделенных диапазон (Selection)​
• ​ всех программ пакета​QBColor​Функции обработки массивов​
• ​ «Эксель»;​ ^ 2 (т.е.​ среде VBA. Собственно,​

​Главным из них является​возвращает строку «гдежз»;​DateDiff(«d», «01/01/2015», «02/02/2015»)​ Excel VBA перечислены​(то есть она​Call​ VBA процедуры​ не нужны.​

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

​ нарисованной кнопке.​ Excel​ желтым цветом (код​ Microsoft Office стандартом​Функции обработки цвета​IsArray​составить программу VBA, которая​ в ячейку (i,1)​ сам код макроса​

​ Application, соответствующий самой​Mid(«абвгдежзиклмн», 10, 2)​вычисляет количество дней​ в таблице ниже:​

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

​Новая книга​ = 6) и​ является именно встроенный​RGB​Функции обработки массивов​ будет запрашивать исходные​ записывается значение квадрата​ находится между строками​

​ программе Excel. Затем​возвращает строку «кл».​ между датами 01/01/2015​Оператор Действие​ в данном проекте​

​Sub​, которая получает три​ необязательные аргументы. Это​ как их иногда​

​- макрос сохраняется​ затем проходит в​ язык VBA. Команды​Функции обработки цвета​LBound​ данные для ее​ i)​ Sub Макрос1() и​ следуют Workbooks, Worksheets,​Minute​ и 02/02/2015, возвращает​And​ VBA). В этом​и далее в​ аргумента типа​ такие аргументы, которые​ еще называют, UDF-функций​

​ в шаблон, на​ цикле по всем​ этого языка понимает​Date​Функции обработки массивов​ заполнения, осуществлять необходимые​Next (в некотором смысле​ End Sub.​ а также Range.​Возвращает целое число, соответствующее​ результат 32.​Операция конъюнкции, логический оператор​ состоит отличие от​ скобках аргументы процедуры.​Double​ пользователь может указать,​ (User Defined Functions)​ основе которого создается​ ячейкам, заменяя формулы​ любое офисное приложение,​Функции работы с датами​UBound​ расчеты и заполнять​ играет роль счетчика​

​Если копирование было выполнено,​

fb.ru

Список всех функций

​ Например, для обращения​

excelworld.ru

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

Введение

​ ячейку листа Excel,​ процедура​ равен 0.​ для расчета, например,​загружаются в память​ отчета для руководства​ Visual Basic Editor)​Функции работы с датами​Len​ итогам и ФИО​ или иное решение​ С1.​ или Formula.​– это исходная​возвращает число 22.​. Например, выражение​ примере простой процедуры​ как это может​Function​Необязательных аргументов в процедуре​ налога на добавленную​ при старте Excel​ компании. Поэтому мы​.​Month​Функции обработки строк​ специалиста заранее не​ в зависимости от​Циклы VBA помогают создавать​Методы — это команды,​ строка, а​InStr​A Or B​Function​ быть сделано с​

​иллюстрирует, как данные​​ может быть несколько,​ стоимость (НДС) откроем​ и могут быть​ переходим ко второму​В новых версиях (Excel​Функции работы с датами​LTrim​ резервируют. Рабочему листу​ какого-то условия. Не​ различные макросы в​ показывающие, что требуется​длина​Принимает в качестве аргументов​

​возвратит​, в которой ожидается​ процедурой​ передаются процедуре через​ все они перечисляются​ редактор VBA, добавим​ запущены в любой​ способу создания макросов,​ 2007 и новее)​MonthName​Функции обработки строк​ присваивается новое название.​ обойтись без них​ Excel.​

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

​ сделать. При написании​– это количество​ целое число и​True​ получение положительного аргумента​Function​ аргументы. Можно увидеть,​

• ​ в конце списка​ новый модуль через​ момент и в​ а именно…​​ для этого нужно​Функции работы с датами​ ​Mid​ Например, «Օтчет».​​ и в VBA​
• ​Циклы VBA помогают создавать​ кода в VBA​ символов, которые надо​ две строки. Возвращает​​, если​​ для выполнения дальнейших​​, потому что процедура​ что тип данных,​ аргументов.​ меню​​ любой книге.​Макрорекордер​ сначала отобразить вкладку​​Now​​Функции обработки строк​Для написания программы автоматического​ Excel. Примеры программ,​ различные макросы. Предположим,​ их необходимо отделять​ извлечь, считая от​ позицию вхождения второй​​A​ ​ операций. Если процедуре​
  
  ​Sub​

​ возвращаемых процедурой, определён​Аргументы в VBA могут​Insert — Module​После включения записи и​- это небольшая​Разработчик (Developer)​Функции работы с датами​Partition​

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

• ​Пример:​​ начиная поиск с​B​ значение, то дальнейшие​ Однако, процедуры​Double​ двумя способами:​​ текст нашей функции:​​ необходимо записать, запись​ Excel, которая переводит​Файл — Параметры -​Функции работы с датами​Replace​ будут использоваться для​ а не предопределен​ + 3×3 –​ показано в дальнейшем,​Right(«абвгдежзиклмн», 4)​
  
• ​ позиции, заданной целым​​равны​ операции не могут​Sub​(об этом говорят​ByVal​Обратите внимание, что в​ можно остановить командой​ любое действие пользователя​ Настройка ленты (File​Time​Функции обработки строк​ переменных:​ изначально, чаще всего​
  
• ​ cos(x). Требуется создать​​ очень часто при​возвращает строку «клмн»;​ числом.​True​ быть выполнены, поэтому​, не имеющие аргументов​ слова​​– передача аргумента​​ отличие от макросов​Остановить запись​ на язык программирования​ — Options -​Функции работы с датами​Right​NN– номер текущей строки​ используют конструкцию If​
  

​ макрос для получения​ программировании в «Эксель»​Right(«абвгдежзиклмн», 1)​

​Пример:​, и возвратит​ пользователю должно быть​​ и объявленные как​​As Double​

• ​ по значению. Это​ функции имеют заголовок​​(Stop Recording)​​ VBA и записывает​ Customize Ribbon)​Timer​Функции обработки строк​ таблицы;​ …Then (для сложных​ ее графика. Сделать​
• ​ используют команду Cells(1,1).Select.​возвращает строку «н».​​InStr(1, «Вот искомое слово»,​​False​
• ​ показано сообщение об​​Public​​после списка аргументов).​​ значит, что процедуре​​Function​.​ получившуюся команду в​и включаем в​Функции работы с датами​RTrim​TP и TF –​ случаев) If …Then​ это можно только,​ Она означает, что​Second​ «слово»)​, если​ ошибке и процедура​(как будет показано​

​ Также данный пример​ передаётся только значение​вместо​Управление всеми доступными макросами​ программный модуль. Если​ правой части окна​TimeSerial​Функции обработки строк​ планируемый и фактический​ …END If.​ используя циклы VBA.​ необходимо выбрать ячейку​Возвращает целое число, соответствующее​возвращает число 13.​A​ должна быть тут​ далее), будут доступны​ показывает, как результат​ (то есть, копия​

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

​Sub​​ производится в окне,​ мы включим макрорекордер​ флажок​Функции работы с датами​Space​ товарооборот;​Рассмотрим конкретный случай. Предположим,​За начальное и конечное​ с координатами (1,1)​ количеству секунд в​InStr(14, «Вот искомое слово,​и​ же завершена:​ для пользователей рабочего​ процедуры​ аргумента), и, следовательно,​и непустой список​ которое можно открыть​ на запись, а​Разработчик (Developer)​TimeValue​Функции обработки строк​SF и SP –​ необходимо создать макрос​ значение аргумента функции​ т.е. A1.​ заданном времени.​ а вот еще​B​Function VAT_Amount(sVAT_Rate As​ листа. Таким образом,​Function​ любые изменения, сделанные​ аргументов (в нашем​ с помощью кнопки​

• ​ затем начнем создавать​. Теперь на появившейся​Функции работы с датами​Spc​ фактическая и планируемая​ для «Эксель», чтобы​ берут x1=0 и​Вместе с ней нередко​
• ​Пример:​ искомое слово», «слово»)​оба равны​ Single) As Single​ если рассмотренные выше​сохраняется в переменной​ с аргументом внутри​ случае это​Макросы (Macros)​ свой еженедельный отчет,​ вкладке нам будут​Weekday​
• ​Функции обработки строк​ сумма издержек;​ в ячейку с​ x2=10. Кроме того,​ используется Selection.ClearContents. Ее​Second(«22:45:15»)​возвращает число 38.​False​ VAT_Amount = 0​ простые процедуры​ с именем, совпадающим​ процедуры, будут потеряны​Summa​на вкладке​ то макрорекордер начнет​

​ доступны основные инструменты​

• ​Функции работы с датами​Split​IP и IF –​​ координатами (1,1) было​ необходимо ввести константу​ ​ выполнение означает очистку​возвращает значение 15.​
• ​Примечание:​.​ If sVAT_Rate​​Sub​​ с именем процедуры.​​ при выходе из​

​). После ввода кода​Разработчик (Developer)​ записывать команды вслед​​ для работы с​​WeekdayName​

• ​Функции обработки строк​​ планируемый и фактически​ записано:​ — значение для​ содержимого выбранной ячейки.​Sqr​Аргумент-число может быть​Not​
• ​Обратите внимание, что перед​​вставлены в модуль​Если рассмотренная выше простая​ неё.​ наша функция становится​или — в​ за каждым нашим​ макросами, в том​Функции работы с датами​​Str​ уровень издержек.​ ​1, если аргумент положительный;​ шага изменения аргумента​​Прежде всего требуется создать​Возвращает квадратный корень числовой​​ не задан, в​​Операция отрицания, логический оператор​​ тем, как завершить​​ в редакторе Visual​
• ​ процедура​​ByRef​ доступна в обычном​ старых версиях Excel​ действием и, в​ числе и нужная​Year​Функции обработки строк​
• • ​Обозначим теми же буквами,​​0, если аргумент нулевой;​ и начальное значение​ файл и сохранить​ величины, переданной в​ таком случае поиск​НЕ​ выполнение процедуры​
  • ​ Basic, то процедура​​Function​– передача аргумента​ окне Мастера функций​ — через меню​ итоге, мы получим​ нам кнопка​Функции работы с датами​StrComp​ но с «приставкой»​-1, если аргумент отрицательный.​ для счетчика.​
  • ​ его, присвоив имя​​ аргументе.​ начинается с первого​. Например, выражение​​Function​​Format_Centered_And_Bold​вставлена в модуль​ по ссылке. То​​ (​​Сервис — Макрос -​ макрос создающий отчет​Редактор Visual Basic​Hex​Функции обработки строк​ Itog накопление итога​

​Создание такого макроса для​Все примеры макросов VBA​ и выбрав тип​Пример:​​ символа строки, заданной​ ​Not A​​–​

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

​будет доступна для​ в редакторе Visual​ есть процедуре передаётся​Вставка — Функция​​ Макросы​​ как если бы​​(Visual Basic Editor)​​Функции преобразования чисел в​StrConv​ по данному столбцу.​​ «Эксель» начинается стандартным​ Excel создаются по​ ​ «Книга Excel с​Sqr(4)​​ во втором аргументе​

• ​возвратит​VAT_Amount​ использования на рабочем​​ Basic, то она​ ​ фактический адрес размещения​​) в категории​
• ​(Tools — Macro -​​ он был написан​ ​:​​ разные системы счисления​Функции обработки строк​ Например, ItogTP –​ способом, через использование​
• ​ той же процедуре,​​ поддержкой макросов».​ ​возвращает значение 2;​​ функции.​True​, в код вставлена​ листе книги Excel,​ может быть вызвана​

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

​ аргумента в памяти.​Определенные пользователем (User Defined)​ Macros)​ программистом. Такой способ​К сожалению, интерфейс редактора​Oct​String​

​ касается столбца таблицы,​ «горячих» клавиш Alt​ которая представлена выше.​

​Затем необходимо перейти в​​Sqr(16)​ ​Int​​, если​ встроенная VBA функция​​ а процедура​​ из других процедур​​ Любые изменения, сделанные​​:​:​​ создания макросов не​ ​ VBA и файлы​​Функции преобразования чисел в​

​Функции обработки строк​ озаглавленного, как «планируемый​ и F11. Далее​ В данном конкретном​ приложение VB, для​возвращает значение 4.​Возвращает целую часть заданного​A​MsgBox​

​Format_Centered_And_Sized​ VBA или использована​ с аргументом внутри​

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

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

​ компанией Microsoft на​

​VarType​Функции обработки строк​Используя введенные обозначения, получаем​Sub program()​ как:​ комбинацией клавиш «Alt»​Возвращает текущее системное время.​

• ​Пример:​False​ всплывающее окно с​​ доступна, так как​​ в книге Excel.​​ при выходе из​ (с суммой, для​ кнопкой​ VBA и позволяет​
• ​ русский язык, поэтому​Функции преобразования чисел в​Tab​​ формулы для отклонений.​​x= Cells(1, 1).Value (эта​​Sub programm()​​ и «F11». Далее:​

​Ubound​​Int(5.79)​

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

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

​ с английскими командами​ разные системы счисления​Функции обработки строк​ Если требуется осуществить​ команда присваивает x​x1 = 1​в строке меню, расположенном​Возвращает верхний индекс измерения​возвращает результат 5.​False​Урок подготовлен для Вас​Вот простой способ запустить​Function​При помощи ключевых слов​ НДС) как в​(Run)​ неким аналогом видеозаписи:​ в меню и​CreateObject​Trim​

​ расчет в %​ значение содержимого ячейки​x2 = 10​ в верхней части​ заданного массива.​Isdate​, если​​ командой сайта office-guru.ru​​ (или выполнить) процедуру​можно вызвать из​

​ByVal​ случае с обычной​.​​ включил запись, выполнил​​ окнах придется смириться:​​Функции работы с объектами​​Функции обработки строк​ имеем (F –​ с координатами (1,​​shag = 0.1​​ окна, нажимают на​Примечание:​Возвращает​A​Источник: http://www.excelfunctions.net/VBA-Functions-And-Subroutines.html​​Sub​​ другой VBA процедуры​​или​​ функцией:​

​Кнопка​ операци, перемотал пленку​Макросы (т.е. наборы команд​GetAutoServerSettings​TypeName​ P) / P​ 1))​

planetaexcel.ru

​i = 1​

This tutorial will teach you to create and use functions with and without parameters in VBA

VBA contains a large amount of built-in functions for you to use, but you are also able to write your own.   When you write code in VBA, you can write it in a Sub Procedure, or a Function Procedure. A Function Procedure is able to return a value to your code.  This is extremely useful if you want VBA to perform a task to return a result. VBA functions can also be called from inside Excel, just like Excel’s built-in Excel functions.

Creating a Function without Arguments

To create a function you need to define the function by giving the function a name. The function can then be defined as a data type indicating the type of data you want the function to return.

You may want to create a function that returns a static value each time it is called – a bit like a constant.

Function GetValue() As Integer
   GetValue = 50
End Function

If you were to run the function, the function would always return the value of 50.

You can also create functions that refer to objects in VBA but you need to use the Set Keyword to return the value from the function.

Function GetRange() as Range
  Set GetRange = Range("A1:G4")
End Function

If you were to use the above function in your VBA code, the function would always return the range of cells A1 to G4 in whichever sheet you are working in.

Calling a Function from a Sub Procedure

Once you create a function, you can call it from anywhere else in your code by using a Sub Procedure to call the function.

The value of 50 would always be returned.

You can also call the GetRange function from a Sub Procedure.

In the above example, the GetRange Function is called by the Sub Procedure to bold the cells in the range object.

Creating Functions

Single Argument

You can also assign a parameter or parameters to your function.  These parameters can be referred to as Arguments.

Function ConvertKilosToPounds (dblKilo as Double) as Double
   ConvertKiloToPounds = dblKilo*2.2
End Function

We can then call the above function from a Sub Procedure in order to work out how many pounds a specific amount of kilos are.

A function can be a called from multiple procedures within your VBA code if required.  This is very useful in that it stops you from having to write the same code over and over again.  It also enables you to divide long procedures into small manageable functions.

In the above example, we have 2 procedures – each of them are using the Function to calculate the pound value of the kilos passed to them in the dblKilo Argument of the function.

Multiple Arguments

You can create a Function with multiple arguments and pass the values to the Function by way of a Sub Procedure.

Function CalculateDayDiff(Date1 as Date, Date2 as Date) as Double
   CalculateDayDiff = Date2-Date1
End Function

We can then call the function to calculate the amount of days between 2 dates.

Optional Arguments

You can also pass Optional arguments to a Function.  In other words, sometimes you may need the argument, and sometimes you may not – depending on what code you are using the Function with .

Function CalculateDayDiff(Date1 as Date, Optional Date2 as Date) as Double
'check for second date and if not there, make Date2 equal to today's date.
   If Date2=0 then Date2 = Date
'calculate difference
   CalculateDayDiff = Date2-Date1 
End Function

Default Argument Value

You can also set the default value of the Optional arguments when you are creating the function so that if the user omits the argument, the value that you have put as default will be used instead.

Function CalculateDayDiff(Date1 as Date, Optional Date2 as Date="06/02/2020") as Double 
'calculate difference 
   CalculateDayDiff = Date2-Date1 
End Function

ByVal and ByRef

When you pass values to a function, you can use the ByVal or ByRef keywords.  If you omit either of these, the ByRef is used as the default.

ByVal means that you are passing a copy of the variable to the function, whereas ByRef means you are referring to the original value of the variable.  When you pass a  copy of the variable (ByVal), the original value of the variable is NOT changed, but when you reference the variable, the original value of the variable is changed by the function.

Function GetValue(ByRef intA As Integer) As Integer
   intA = intA * 4
   GetValue = intA
End Function

In the function above, the ByRef could be omitted and the function would work the same way.

Function GetValue(intA As Integer) As Integer
   intA = intA * 4
   GetValue = intA
End Function

To call this function, we can run a sub-procedure.

Sub TestValues()
   Dim intVal As Integer
'populate the variable with the value 10
   intVal = 10
'run the GetValue function, and show the value in the immediate window
   Debug.Print GetValue(intVal)
'show the value of the intVal variable in the immediate window 
   Debug.Print  intVal
End Sub

Note that the debug windows show the value 40 both times.  When you pass the variable IntVal to the function – the value of 10 is passed to the function, and multiplied by 4.  Using the ByRef keyword (or omitting it altogether), will AMEND the value of the IntVal variable.   This is shown when you show first the result of the function in the immediate window (40), and then the value of the IntVal variable in the debug window (also 40).

If we do NOT want to change the value of the original variable, we have to use ByVal in the function.

Function GetValue(ByVal intA As Integer) As Integer
intA = intA * 4
GetValue = intA
End Function

Now if we call the function from a sub-procedure, the value of the variable IntVal will remain at 10.

Exit Function

If you create a function that tests for a certain condition, and once the condition is found to be true, you want return the value from the function, you may need to add an Exit Function statement in your Function in order to exit the function before you have run through all the code in that function.

Function FindNumber(strSearch As String) As Integer
   Dim i As Integer
'loop through each letter in the string
   For i = 1 To Len(strSearch)
   'if the letter is numeric, return the value to the function
      If IsNumeric(Mid(strSearch, i, 1)) Then
         FindNumber= Mid(strSearch, i, 1)
   'then exit the function
         Exit Function
      End If
   Next
   FindNumber= 0
End Function

The function above will loop through the string that is provided until it finds a number, and then return that number from the string.  It will only find the first number in the string as it will then Exit the function.

The function above can be called by a Sub routine such as the one below.

Sub CheckForNumber()
   Dim NumIs as Integer
'pass a text string to the find number function
   NumIs = FindNumber("Upper Floor, 8 Oak Lane, Texas")
'show the result in the immediate window
   Debug.Print NumIs
End Sub

VBA Programming | Code Generator does work for you!

Using a Function from within an Excel Sheet

In addition to calling a function from your VBA code using a sub procedure, you can also call the function from within your Excel sheet.  The functions that you have created should by default appear in your function list in the User Defined section of the function list.

Click on the fx to show the Insert Function dialog box.

Select User Defined from the Category List

Select the function you require from the available User Defined Functions (UDF’s).

Alternatively, when you start writing your function in Excel, the function should appear in the drop down list of functions.

If you do not want the function to be available inside an Excel sheet, you need to put the Private word in front of the word Function when you create the function in your VBA code.

Private Function CalculateDayDiff(Date1 as Date, Date2 as Date) as Double 
   CalculateDayDiff = Date2-Date1 
End Function

It will now not appear in the drop down list showing the Excel functions available.

Interestingly enough, however, you can still use the function – it just will not appear in the list when looking for it!

If you have declared the second argument as Optional, you can omit it within the Excel sheet as well as within the VBA code.

You can also use the a function that you have created without arguments in your Excel sheet.