Excel нет категории определенные пользователем - Word и Excel

Masha2015

Пользователь

Сообщений: 1
Регистрация: 12.02.2015

12.02.2015 15:33:38

В списке мастера функций отсутствует «функция определенная пользователем» Excel 2007, не могу понять где включить, обращение к справке ни к чему не привело(( Дело в том что эта функция была, но пропала. Заранее благодарю за помощь откликнувшимся!

Изменено: Masha2015 — 12.02.2015 15:39:37

Источник

Группа: Админы

Ранг: Местный житель

Сообщений: 15888

Репутация:
2623
±

Замечаний:
±

Excel 2016

Quote (_Boroda_)

Может, у тебя открыты 2 Excelя — 2010 и 2003 и для них разные Персоналы?

Нет, на работе только 2010.

Quote (_Boroda_)

Так всегда или при открытии определенного файла?

Всегда.

Quote (_Boroda_)

А какие у тебя функции в первой и во второй категории?

В первой категории функция:

[vba]

Code

Function FN()
FN = ThisWorkbook.FullName
End Function
Sub FNF()
‘ctrl + shift + F
ActiveCell.Formula = «=FN()»
End Sub

[/vba]

, во второй:

[vba]

Code

Function Translit(Txt As String) As String
     Dim Rus
     Rus = Array(«а», «б», «в», «г», «д», «е», «ё», «ж», «з», «и», «й», «к», _
     «л», «м», «н», «о», «п», «р», «с», «т», «у», «ф», «х», «ц», «ч», «ш», _
     «щ», «ъ», «ы», «ь», «э», «ю», «я», «А», «Б», «В», «Г», «Д», «Е», _
     «Ё», «Ж», «З», «И», «Й», «К», «Л», «М», «Н», «О», «П», «Р», _
     «С», «Т», «У», «Ф», «Х», «Ц», «Ч», «Ш», «Щ», «Ъ», «Ы», «Ь», «Э», «Ю», «Я»)
     Dim Eng
     Eng = Array(«a», «b», «v», «g», «d», «e», «jo», «zh», «z», «i», «j», _
     «k», «l», «m», «n», «o», «p», «r», «s», «t», «u», «f», «kh», «ts», «ch», _
     «sh», «sch», «»», «y», «‘», «e», «yu», «ya», «A», «B», «V», «G», «D», _
     «E», «JO», «ZH», «Z», «I», «J», «K», «L», «M», «N», «O», «P», «R», _
     «S», «T», «U», «F», «KH», «TS», «CH», «SH», «SCH», «»», «Y», «‘», «E», «YU», «YA»)

For i = 1 To Len(Txt)
с = Mid(Txt, i, 1)

     flag = 0
     For J = 0 To 65
     If Rus(J) = с Then
     outchr = Eng(J)
     flag = 1
     Exit For
     End If
     Next J
     If flag Then outstr = outstr & outchr Else outstr = outstr & с
     Next i

Translit = outstr

End Function

[/vba]

Quote (_Boroda_)

Где они лежат?

Обе лежат в Personal

К сообщению приложен файл:

8898675.gif
(13.5 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Источник

А какие у тебя функции в первой и во второй категории? Где они лежат и какая вообще меж ними разница.
Так всегда или при открытии определенного файла?
Может, у тебя открыты 2 Excelя — 2010 и 2003 и для них разные Персоналы?

Посмотреть бы скрины

Посмотреть бы скрины _Boroda_

Скажи мне, кудесник, любимец ба’гов.
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Сообщение А какие у тебя функции в первой и во второй категории? Где они лежат и какая вообще меж ними разница.
Так всегда или при открытии определенного файла?
Может, у тебя открыты 2 Excelя — 2010 и 2003 и для них разные Персоналы?

Посмотреть бы скрины Автор — _Boroda_
Дата добавления — 19.03.2012 в 12:25

Источник

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

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

Пользовательские функции (как и макросы) записываются на языке программирования Visual Basic для приложений (VBA). Они отличаются от макросов двумя вещами. Во-первых, в них используются процедуры Function, а не Sub. Это значит, что они начинаются с оператора Function, а не Sub, и заканчиваются оператором End Function, а не End Sub. Во-вторых, они выполняют различные вычисления, а не действия. Некоторые операторы (например, предназначенные для выбора и форматирования диапазонов) исключаются из пользовательских функций. Из этой статьи вы узнаете, как создавать и применять пользовательские функции. Для создания функций и макросов используется редактор Visual Basic (VBE), который открывается в отдельном окне.

Предположим, что ваша компания предоставляет скидку в размере 10 % клиентам, заказавшим более 100 единиц товара. Ниже мы объясним, как создать функцию для расчета такой скидки.

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

Чтобы создать пользовательскую функцию DISCOUNT в этой книге, сделайте следующее:

Нажмите клавиши ALT+F11 (или FN+ALT+F11 на Mac), чтобы открыть редактор Visual Basic, а затем щелкните Insert (Вставка) > Module (Модуль). В правой части редактора Visual Basic появится окно нового модуля.

Скопируйте указанный ниже код и вставьте его в новый модуль.

Примечание: Чтобы код было более удобно читать, можно добавлять отступы строк с помощью клавиши TAB. Отступы необязательны и не влияют на выполнение кода. Если добавить отступ, редактор Visual Basic автоматически вставит его и для следующей строки. Чтобы сдвинуть строку на один знак табуляции влево, нажмите SHIFT+TAB.

Теперь вы готовы использовать новую функцию DISCOUNT. Закройте редактор Visual Basic, выделите ячейку G7 и введите следующий код:

Excel вычислит 10%-ю скидку для 200 единиц по цене 47,50 ₽ и вернет 950,00 ₽.

В первой строке кода VBA функция DISCOUNT(quantity, price) указывает, что функции DISCOUNT требуется два аргумента: quantity (количество) и price (цена). При вызове функции в ячейке листа необходимо указать эти два аргумента. В формуле =DISCOUNT(D7;E7) аргумент quantity имеет значение D7, а аргумент price — значение E7. Если скопировать формулу в ячейки G8:G13, вы получите указанные ниже результаты.

Рассмотрим, как Excel обрабатывает эту функцию. При нажатии клавиши ВВОД Excel ищет имя DISCOUNT в текущей книге и определяет, что это пользовательская функция в модуле VBA. Имена аргументов, заключенные в скобки ( quantity и price), представляют собой заполнители для значений, на основе которых вычисляется скидка.

Оператор If в следующем блоке кода проверяет аргумент quantity и сравнивает количество проданных товаров со значением 100:

Если количество проданных товаров не меньше 100, VBA выполняет следующую инструкцию, которая перемножает значения quantity и price, а затем умножает результат на 0,1:

Discount = quantity * price * 0.1

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

Если значение quantity меньше 100, VBA выполняет следующий оператор:

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

Discount = Application.Round(Discount, 2)

В VBA нет функции округления, но она есть в Excel. Чтобы использовать округление в этом операторе, необходимо указать VBA, что метод (функцию) Round следует искать в объекте Application (Excel). Для этого добавьте слово Application перед словом Round. Используйте этот синтаксис каждый раз, когда нужно получить доступ к функции Excel из модуля VBA.

Пользовательские функции должны начинаться с оператора Function и заканчиваться оператором End Function. Помимо названия функции, оператор Function обычно включает один или несколько аргументов. Однако вы можете создать функцию без аргументов. В Excel доступно несколько встроенных функций (например, СЛЧИС и ТДАТА), в которых нет аргументов.

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

Количество ключевых слов VBA, которые можно использовать в пользовательских функциях, меньше числа, используемого в макросах. Настраиваемые функции не могут выполнять другие задачи, кроме возврата значения в формулу на этом или в выражение, используемом в другом макросе или функции VBA. Например, пользовательские функции не могут изменять размер окна, редактировать формулу в ячейке, а также изменять шрифт, цвет или узор текста в ячейке. Если в процедуру функции включить такой код действия, функция возвращает #VALUE! ошибку «#ВЫЧИС!».

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

Даже простые макросы и пользовательские функции может быть сложно понять. Чтобы сделать эту задачу проще, добавьте комментарии с пояснениями. Для этого нужно ввести перед текстом апостроф. Например, ниже показана функция DISCOUNT с комментариями. Благодаря подобным комментариями и вам, и другим будет впоследствии проще работать с кодом VBA. Так, код будет легче понять, если потребуется внести в него изменения.

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

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

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

Для использования настраиваемой функции должна быть открыта книга, содержащая модуль, в котором она была создана. Если книга не открыта, вы получите #NAME? при попытке использования функции. Если вы ссылались на функцию в другой книге, ее имя должно предшествовать названию книги, в которой она находится. Например, при создании функции DISCOUNT в книге Personal.xlsb и вызове ее из другой книги необходимо ввести =personal.xlsb!discount(),а не просто =discount().

Чтобы вставить пользовательскую функцию быстрее (и избежать ошибок), ее можно выбрать в диалоговом окне «Вставка функции». Пользовательские функции доступны в категории «Определенные пользователем»:

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

Создав нужные функции, выберите Файл > Сохранить как.

В Excel 2007 нажмите кнопку Microsoft Office, а затем щелкните Сохранить как.

В диалоговом окне Сохранить как откройте раскрывающийся список Тип файла и выберите значение Надстройка Excel. Сохраните книгу с запоминающимся именем, таким как MyFunctions, в папке AddIns. Она будет автоматически предложена в диалоговом окне Сохранить как, поэтому вам потребуется только принять расположение, используемое по умолчанию.

Сохранив книгу, выберите Файл > Параметры Excel.

В Excel 2007 нажмите кнопку Microsoft Office и щелкните Параметры Excel.

В диалоговом окне Параметры Excel выберите категорию Надстройки.

В раскрывающемся списке Управление выберите Надстройки Excel. Затем нажмите кнопку Перейти.

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

Создав нужные функции, выберите Файл > Сохранить как.

Сохранив книгу, выберите Сервис > Надстройки Excel.

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

После этого пользовательские функции будут доступны при каждом запуске Excel. Если вы хотите добавить его в библиотеку функций, вернимся в Visual Basic редактора. Если вы заглянуть в Visual Basic редактора Project проводника под заголовком VBAProject, вы увидите модуль с именем файла надстройки. У надстройки будет расширение XLAM.

Дважды щелкните модуль в Project Explorer, чтобы вывести код функций. Чтобы добавить новую функцию, установите точку вставки после оператора End Function, который завершает последнюю функцию в окне кода, и начните ввод. Вы можете создать любое количество функций, и они будут всегда доступны в категории «Определенные пользователем» диалогового окна Вставка функции.

Эта статья основана на главе книги Microsoft Office Excel 2007 Inside Out, написанной Марком Доджем (Mark Dodge) и Крейгом Стинсоном (Craig Stinson). В нее были добавлены сведения, относящиеся к более поздним версиям Excel.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Источник

Adblock
detector

Источник

0 / 0 / 0

Регистрация: 01.02.2012

Сообщений: 9

Категория определённые пользователем

21.05.2012, 00:19. Показов 5026. Ответов 6

Подскажите как включить в мастере функций (fx) категорию «Определённые пользователем». Или скажите с чем может быть связано её отсутствие.
Заранее благодарю.

Programming Эксперт 94731 / 64177 / 26122 Регистрация: 12.04.2006 Сообщений: 116,782	21.05.2012, 00:19
6

956 / 596 / 11

Регистрация: 11.06.2010

Сообщений: 1,345

21.05.2012, 09:11

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

29 / 20 / 0

Регистрация: 03.04.2012

Сообщений: 46

21.05.2012, 19:47

Сообщение от Serge 007

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

956 / 596 / 11

Регистрация: 11.06.2010

Сообщений: 1,345

21.05.2012, 20:17

Сообщение от Basil

Не обязательно самому создавать функцию.

А где я писал что надо САМОМУ создавать функцию?!

29 / 20 / 0

Регистрация: 03.04.2012

Сообщений: 46

21.05.2012, 20:59

Ваш ответ это — если есть пользовательские функции, то и категория такая тоже есть.

Не по теме:

Кэп всегда нас спасает, не вопрос.

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

Добавлено через 1 минуту

Сообщение от Serge 007

А где я писал что надо САМОМУ создавать функцию?!

А так, да, вы такого нигде не писали.

956 / 596 / 11

Регистрация: 11.06.2010

Сообщений: 1,345

21.05.2012, 21:13

Сообщение от Basil

Мне такой ответ не показался полным…

Чем же он не полный?
Я чётко дал понять — для появления данной категории необходимо иметь UDF. Где она будет (в Personal, в шаблоне, в надстройке или файле) и каким образом она будет написана — не важно, главное её наличие.

ЗЫ Жалко что здесь нельзя давать ссылки на другие форумы. Я мог бы ещё подробнее ответить (например категория «Определённые пользователем» может быть не одна), но правила есть правила…

Не по теме:

А что такое «Кэп»?

Basil

21.05.2012, 21:43

Категория определённые пользователем

Не по теме:

Это шутка такая.Кэп

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

21.05.2012, 21:43

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

Оканчивается ли каждая строка на определенные цифры (вводимые пользователем) ?
Есть текстовый документ со строками, состоящими из чисел
Нужна программа, проверяющая,…

Описать на сервере программку, которая бы с помощью Cookies сохраняла парметры, определенные пользователем
Здравствуйте еще раз.
У меня есть табличка,из двух колонок. Нажимая в левой ссылку(в каждой…

Произвести определенные действия над введенными пользователем числами в зависимости от этих чисел
Ввести числа: натуральные m и n и вещественное x. Если частное от деления m на n четное, то…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник

Как создать пользовательскую функцию?

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

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

Что такое пользовательская функция
Для чего ее используют?
Как создать пользовательскую функцию в VBA?
Как использовать пользовательскую функцию в формуле?
Какие бывают типы пользовательских функций

Что такое пользовательская функция в Excel?

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

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

Как можно решить эти проблемы?

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

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

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

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

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

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

при помощи Visual Basic for Applications (VBA). Этот способ описывается в данной статье.
с использованием замечательной функции LAMBDA, которая появилась в Office365.
при помощи Office Scripts. На момент написания этой статьи они доступны в Excel Online в подписке на Office365.

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

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

А на ввод функции вы потратите всего несколько секунд.

Для чего можно использовать?

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

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

Для чего нельзя использовать пользовательские функции:

Любого изменения другой ячейки, кроме той, в которую она записана,
Изменения имени рабочего листа,
Копирования листов рабочей книги,
Поиска и замены значений,
Изменения форматирования ячейки, шрифта, фона, границ, включения и отключения линий сетки,
Вызова и выполнения макроса VBA, если его выполнение нарушит перечисленные выше ограничения. Если вы используете строку кода, который не может быть выполнен, вы можете получить ошибку RUNTIME ERROR либо просто одну из стандартных ошибок (например, #ЗНАЧЕН!).

Как создать пользовательскую функцию в VBA?

Прежде всего, необходимо открыть редактор Visual Basic (сокращенно — VBE). Обратите внимание, что он открывается в новом окне. Окно Excel при этом не закрывается.

Самый простой способ открыть VBE — использовать комбинацию клавиш. Это быстро и всегда доступно. Нет необходимости настраивать ленту или панель инструментов быстрого доступа. Нажмите Alt + F11 на клавиатуре, чтобы открыть VBE. И снова нажмите Alt + F11, когда редактор открыт, чтобы вернуться назад в окно Excel.

После открытия VBE вам нужно добавить новый модуль. В него вы будете записывать ваш код. Щелкните правой кнопкой мыши на панели проекта VBA слева и выберите «Insert», затем появившемся справа окне — “Module”.

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

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

Пользовательская функция всегда начинается с оператора Function и заканчивается инструкцией End Function.
После оператора Function указывают имя функции. Это название, которое вы создаете и присваиваете, чтобы вы могли идентифицировать и использовать ее позже. Оно не должно содержать пробелов. Если вы хотите разделять слова, используйте подчеркивания. Например, Count_Words.
Кроме того, это имя также не может совпадать с именами стандартных функций Excel. Если вы сделаете это, то всегда будет выполняться стандартная функция.
Имя пользовательской функции не может совпадать с адресами ячеек на листе. Например, имя ABC1234 невозможно присвоить.
Настоятельно рекомендуется давать описательные имена. Тогда вы можете легко выбрать нужное из длинного списка функций. Например, имя CountWords позволяет легко понять, что она делает, и при необходимости применить ее для подсчета слов.
Далее в скобках обычно перечисляют аргументы. Это те данные, с которыми она будет работать. Может быть один или несколько аргументов. Если у вас несколько аргументов, их нужно перечислить через запятую.
После этого обычно объявляются переменные, которые использует пользовательская функция. Указывается тип этих переменных – число, дата, текст, массив.
Если операторы, которые вы используете внутри вашей функции, не используют никакие аргументы (например, NOW (СЕЙЧАС), TODAY (СЕГОДНЯ) или RAND (СЛЧИС)), то вы можете создать функцию без аргументов. Также аргументы не нужны, если вы используете функцию для хранения констант (например, числа Пи).
Затем записывают несколько операторов VBA, которые выполняют вычисления с использованием переданных аргументов.
В конце вы должны вставить оператор, который присваивает итоговое значение переменной с тем же именем, что и имя функции. Это значение возвращается в формулу, из которой была вызвана пользовательская функция.
Записанный вами код может включать комментарии. Они помогут вам не забыть назначение функции и отдельных ее операторов. Если вы в будущем захотите внести какие-то изменения, комментарии будут вам очень полезны. Комментарий всегда начинается с апострофа (‘). Апостроф указывает Excel игнорировать всё, что записано после него, и до конца строки.

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

Для этого в окно модуля вставим этот код:

Function CountWords(NumRange As Range) As Long
Dim rCell As Range, lCount As Long
    For Each rCell In NumRange
        lCount = lCount + _
          Len(WorksheetFunction.Trim(rCell)) - Len(Replace(WorksheetFunction.Trim(rCell), " ", "")) + 1
    Next rCell
CountWords = lCount
End Function

Я думаю, здесь могут потребоваться некоторые пояснения.

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

В начале мы должны записать ее имя: CountWords.

Затем в скобках указываем, какие исходные данные она будет использовать. NumRange As Range означает, что аргументом будет диапазон значений. Сюда нужно передать только один аргумент — диапазон ячеек, в котором будет происходить подсчёт.

As Long указывает, что результат выполнения функции CountWords будет целым числом.

Во второй строке кода мы объявляем переменные.

Оператор Dim объявляет переменные:

rCell — переменная диапазона ячеек, в котором мы будем подсчитывать слова.

lCount — переменная целое число, в которой будет записано число слов.

Цикл For Each… Next предназначен для выполнения вычислений по отношению к каждому элементу из группы элементов (нашего диапазона ячеек). Этот оператор цикла применяется, когда неизвестно количество элементов в группе. Начинаем с первого элемента, затем берем следующий и так повторяем до самого последнего значения. Цикл повторяется столько раз, сколько ячеек имеется во входном диапазоне.

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

Len(WorksheetFunction.Trim(rCell)) — Len(Replace(WorksheetFunction.Trim(rCell), » «, «»)) + 1

Как видите, это обычная формула Excel, которая использует стандартные средства работы с текстом: LEN, TRIM и REPLACE. Это английские названия знакомых нам русскоязычных ДЛСТР, СЖПРОБЕЛЫ и ЗАМЕНИТЬ. Вместо адреса ячейки рабочего листа используем переменную диапазона rCell. То есть, для каждой ячейки диапазона мы последовательно считаем количество слов в ней.

Подсчитанные числа суммируются и сохраняются в переменной lCount:

lCount = lCount + Len(WorksheetFunction.Trim(rCell)) — Len(Replace(WorksheetFunction.Trim(rCell), » «, «»)) + 1

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

CountWords = lCount

Функция возвращает в ячейку рабочего листа значение этой переменной, то есть общее количество слов.

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

Закрываем наш код с помощью «End Function».

Как видите, не очень сложно.

Сохраните вашу работу. Для этого просто нажмите кнопку “Save” на ленте VB редактора.

После этого вы можете закрыть окно редактора. Для этого можно использовать комбинацию клавиш Alt+Q. Или просто вернитесь на лист Excel, нажав Alt+F11.

Вы можете сравнить работу с пользовательской функцией CountWords и подсчет количества слов в диапазоне при помощи формул.

Как использовать пользовательскую функцию в формуле?

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

Чтобы использовать ее, у вас есть две возможности.

Первый способ. Нажмите кнопку fx в строке формул. Среди появившихся категорий вы увидите новую группу — Определённые пользователем. И внутри этой категории вы можете увидеть нашу новую пользовательскую функцию CountWords.

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

Можно посчитать этой же функцией и количество слов в диапазоне. Запишите в ячейку С3:

=CountWords(A2:A5)

Нажмите Enter.

Мы только что указали функцию и установили диапазон, и вот результат подсчета: 14 слов.

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

Как видите, результаты одинаковы. Только использовать CountWords() гораздо проще и быстрее.

Различные типы пользовательских функций с использованием VBA.

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

Без аргументов.

В Excel есть несколько стандартных функций, которые не требуют аргументов (например, СЛЧИС , СЕГОДНЯ , СЕЧАС). Например, СЛЧИС возвращает случайное число от 0 до 1. СЕГОДНЯ вернет текущую дату. Вам не нужно передавать им какие-либо значения.

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

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

Function SheetName() as String
    Application.Volatile
    SheetName = Application.Caller.Worksheet.Name
End Function

Или же можно использовать такой код:

SheetName = ActiveSheet.Name

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

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

С одним аргументом.

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

Function ReturnLastWord(The_Text As String)
Dim stLastWord As String
'Extracts the LAST word from a text string
    stLastWord = StrReverse(The_Text)
    stLastWord = Left(stLastWord, InStr(1, stLastWord, " ", vbTextCompare))
    ReturnLastWord = StrReverse(Trim(stLastWord))
End Function

Аргумент The_Text — это значение выбранной ячейки. Указываем, что это должно быть текстовое значение (As String).

Оператор StrReverse возвращает текст с обратным порядком следования знаков. Далее InStr определяет позицию первого пробела. При помощи Left получаем все знаки заканчивая первым пробелом. Затем удаляем пробелы при помощи Trim. Вновь меняем порядок следования символов при помощи StrReverse. Получаем последнее слово из текста.

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

Использование массива в качестве аргумента.

Многие функции Excel используют массивы значений как аргументы. Вспомните функции СУММ, СУММЕСЛИ, СУММПРОИЗВ.

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

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

Function SumEven(NumRange as Range)
 Dim RngCell As Range
 For Each RngCell In NumRange
 If IsNumeric(RngCell.Value) Then
 If RngCell.Value Mod 2 = 0 Then
 Result = Result + RngCell.Value
 End If
 End If
 Next RngCell
 SumEven = Result
 End Function

Аргумент NumRange указан как Range. Это означает, что функция будет использовать массив исходных данных. Необходимо отметить, что можно использовать также тип переменной Variant. Это выглядит как

Function SumEven(NumRange as Variant)

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

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

Все чётные числа суммируются в переменной Result.

Когда цикл будет закончен, значение Result присваивается переменной SumEven и передаётся функции.

С несколькими аргументами.

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

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

Она имеет 3 аргумента: диапазон значений, нижняя граница числового интервала, верхняя граница интервала.

Function GetMaxBetween(rngCells As Range, MinNum, MaxNum)
Dim NumRange As Range
Dim vMax
Dim arrNums()
Dim i As Integer
ReDim arrNums(rngCells.Count)
    For Each NumRange In rngCells
     vMax = NumRange
        Select Case vMax
           Case MinNum + 0.01 To MaxNum - 0.01
              arrNums(i) = vMax
              i = i + 1
           Case Else
               GetMaxBetween = 0
           End Select
    Next NumRange
    GetMaxBetween = WorksheetFunction.Max(arrNums)
End Function

Здесь мы используем три аргумента. Первый из них — rngCells As Range. Это диапазон ячеек, в которых нужно искать максимальное значение. Второй и третий аргумент (MinNum, MaxNum) указаны без объявления типа. Это означает, что по умолчанию к ним будет применён тип данных Variant. В VBA используется 6 различных числовых типов данных. Указывать только один из них — это значит ограничить применение функции. Поэтому более целесообразно, если Excel сам определит тип числовых данных.

Цикл For Each … Next последовательно просматривает все значения в выбранном диапазоне. Числа, которые находятся в интервале от максимального до минимального значения, записываются в специальный массив arrNums. При помощи стандартного оператора MAX в этом массиве находим наибольшее число.

С обязательными и необязательными аргументами.

Чтобы понять, что такое необязательный аргумент, вспомните функцию ВПР (VLOOKUP). Её четвертый аргумент [range_lookup] является необязательным. Если вы не укажете один из обязательных аргументов, получите ошибку. Но если вы пропустите необязательный аргумент, всё будет работать.

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

Например, в функции ВПР, если вы не укажете четвертый аргумент, будет выполнен приблизительный поиск. Если вы укажете его как ЛОЖЬ (или 0), то будет найдено точное совпадение.

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

Чтобы сделать аргумент необязательным, вам просто нужно добавить «Optional» перед ним.

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

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

Этот код извлекает текст из ячейки. Optional CaseText = False означает, что аргумент CaseText необязательный. По умолчанию его значение установлено FALSE.

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

Думаю, что у вас возник вопрос: «Могут ли в пользовательской функции быть только необязательные аргументы?». Ответ смотрите ниже.

Только с необязательным аргументом.

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

Но при создании пользовательской такое возможно.

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

Function UserName(Optional Uppercase As Variant)
    If IsMissing(Uppercase) Then Uppercase = False
    UserName = Application.UserName
    If Uppercase Then UserName = UCase(UserName)
End Function

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

Если аргумент равен FALSE или опущен, то имя пользователя возвращается без каких-либо изменений. Если же аргумент TRUE, то имя возвращается в символах верхнего регистра (с помощью VBA-оператора Ucase). Обратите внимание на вторую строку кода. Она содержит VBA-функцию IsMissing, которая определяет наличие аргумента. Если аргумент отсутствует, оператор присваивает переменной Uppercase значение FALSE.

Можно предложить и другой вариант этой функции.

Function UserName(Optional Uppercase As Variant)
    If IsMissing(Uppercase) Then Uppercase = False
    UserName = Application.UserName
    If Uppercase Then UserName = UCase(UserName)
End Function

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

Возвращаемое значение — массив.

В VBA имеется весьма полезная функция — Array. Она возвращает значение с типом данных Variant, которое представляет собой массив (т.е. несколько значений).

Пользовательские функции, которые возвращают массив, весьма полезны при хранении массивов значений. Например, Months() вернёт массив названий месяцев:

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

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

В Office365 и выше можно вводить как обычную формулу, в более ранних версиях – как формулу массива.

А если необходим вертикальный массив значений?

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

Используем Months() как аргумент функции ТРАНСП:

=ТРАНСП(Months())

Как можно использовать пользовательские функции с массивом данных? Можно применять их для ввода данных в таблицу, как показано на рисунке выше. К примеру, в отчёте о продажах не нужно вручную писать названия месяцев.

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

=ИНДЕКС(Months();1;A1)

Альтернативный вариант этой формулы:

=ИНДЕКС( {«Январь»; «Февраль»; «Март»; «Апрель»; «Май»; «Июнь»; «Июль»; «Август»; «Сентябрь»; «Октябрь»; «Ноябрь»; «Декабрь»};1;A1)

Согласитесь, написанная нами функция делает формулу Excel значительно проще.

Эта статья откроет серию материалов о пользовательских функциях. Если мне удалось убедить вас, что это стоит использовать или вы хотели бы попробовать что-то новое в Excel, следите за обновлениями;)

Сумма по цвету и подсчёт по цвету в Excel — В этой статье вы узнаете, как посчитать ячейки по цвету и получить сумму по цвету ячеек в Excel. Эти решения работают как для окрашенных вручную, так и с условным форматированием. Если…

Проверка данных с помощью регулярных выражений — В этом руководстве показано, как выполнять проверку данных в Excel с помощью регулярных выражений и пользовательской функции RegexMatch. Когда дело доходит до ограничения пользовательского ввода на листах Excel, проверка данных очень полезна. Хотите…

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

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

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

Источник

Мастер функций в программе Microsoft Excel

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

Работа Мастера функций

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

Переход в Мастер функций

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

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

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

Можно также кликнуть на любую другую кнопку блока инструментов «Библиотека функций». При этом, в выпадающем меню появится список, в самом низу которого есть пункт «Вставить функцию…». Вот по нему и нужно кликнуть. Но, данный способ является ещё запутаннее предыдущего.

Очень простым способом перехода в режим Мастера является нажатие комбинации горячих клавиш Shift+F3. Этот вариант предусматривает быстрый переход без дополнительных «телодвижений». Главный недостаток его состоит в том, что далеко не каждый пользователь способен удержать у себя в голове все комбинации горячих клавиш. Так что для новичков в освоении Excel этот вариант не подходит.

Категории элементов в Мастере

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

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

Все функции разделены на следующие 12 категорий:

Текстовые;
Финансовые;
Дата и время;
Ссылки и массивы;
Статистические;
Аналитические;
Работа с базой данных;
Проверка свойств и значений;
Логические;
Инженерные;
Математические;
Определенные пользователем;
Совместимость.

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

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

Выбор функции

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

Аргументы функции

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

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

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

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

После того, как все нужные данные введены, жмем на кнопку «OK», тем самым запуская процесс выполнения задачи.

Выполнение функции

После того, как вы нажали на кнопку «OK» Мастер закрывается и происходит выполнение самой функции. Результат выполнения может быть самый разнообразный. Он зависит от тех задач, которые ставятся перед формулой. Например, функция СУММ, которая была выбрана в качестве примера, производит суммирование всех введенных аргументов и показывает результат в отдельной ячейке. Для других вариантов из списка Мастера результат будет абсолютно иным.

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

Отблагодарите автора, поделитесь статьей в социальных сетях.

Функции в Excel. Мастер функций

Табличный процессор Microsoft Excel 2007

Методические указания к выполнению
лабораторной работы № 3

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

1.Функции в Excel. Мастер функций. 2

2.Математические функции. 4

2.1.Задание для самостоятельной работы 1. 4

2.2.Задание для самостоятельной работы 2. 5

3.Статистические функции. 6

3.1.Задание для самостоятельной работы 3. 6

4.Логические функции. 7

4.1. Описание некоторых логических функций. Примеры. 7

4.1.1.Сложные условия. 9

4.2. Задание для самостоятельной работы 4. 14

5.Функции из категории Дата и время. 15

5.1.Задание для самостоятельной работы 5. 15

5.2.Задание для самостоятельной работы 6. 15

6.Печать рабочего листа Excel. 16

7.Вопросы к защите лабораторной работы. 16

Функции в Excel. Мастер функций

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

* работа с базой данных;

* проверки свойств и значений; . и другие.

Любая функция имеет вид:

ИМЯ (СПИСОК АРГУМЕНТОВ)

ИМЯ- это фиксированный набор символов, выбираемый из списка функций;

СПИСОК АРГУМЕНТОВ (или только один аргумент)- это величины, над которыми функция выполняет операции. Аргументами функции могут быть адреса ячеек, константы, формулы, а также другие функции. В случае, когда аргументом является другая функция, мы имеем дело со вложенной функцией.

Например, запись СУММ(С7:C10;D7:D10) содержит функцию СУММ с двумя аргументами, каждый из которых является диапазоном ячеек, а запись КОРЕНЬ(ABS(А2)) содержит функцию КОРЕНЬ, аргументом которой является функция ABC, у которой в свою очередь аргументом является адрес ячейки А2.

Пакет Excel предоставляет удобный инструмент ввода функций- Мастер функций. Инструмент Мастер функций можно вызвать:

a) командой Вставить функцию во вкладке Формулы из группы Библиотека функций (Рис.1)

Рис.1Команда Вставить функцию во вкладке Формулы

b) командой Вставить функцию в строке формул (Рис.2).

Рис.2Команда Вставить функцию в строке формул

После вызова Мастера функций появляется диалоговое окно (Рис.3):

Рис.3Диалоговое окно Мастера функций

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

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

Рис.4Окно математической функции КОРЕНЬ

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

Рис.5Выбор вложенной (внутренней) функции

Если в появившемся списке отсутствует требуемая функция, то следует активизировать строку «Другие функции…» и работать далее с диалоговым окном Мастер функций, как описано выше.

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

93.79.221.197 © studopedia.ru Не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования. Есть нарушение авторского права? Напишите нам | Обратная связь.

Отключите adBlock!
и обновите страницу (F5)
очень нужно

Мастер функций в Excel

Функции можно вводить вручную, но в Excel предусмотрен мастер функций, позволяющий вводить их в полуавтоматическом режиме и практически без ошибок. Для вызова мастера функций необходимо нажать кнопку Вставка функции на стандартной панели инструментов, выполнить команду Вставка/Функция или воспользоваться комбинацией клавиш [Shift+F3]. После этого появится диалоговое окно Мастер функций, в котором можно выбрать нужную функцию.

Диалоговое окно Мастер функций (рис. 2.8) используется довольно часто. Поэтому опишем его подробнее. Окно состоит из двух связанных между собой списков: Категория и Функция. При выборе одного из элементов списка Категория в списке Функция появляется соответствующий ему перечень функций.

В Microsoft Excel функции разбиты на 12 категорий. Категория 10 недавно использовавшихся постоянно обновляется, в зависимости от того, какими функциями вы пользовались в последнее время. Она напоминает стековую память: новая вызванная вами функция, которая в этом списке еще не числилась, займет первую строку, вытеснив тем самым последнюю функцию.

Рис. 2.8. Диалоговое окно «Мастер функций»

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

При выборе какой-либо функции в нижней части диалогового окна появляется краткое ее описание. Нажав кнопку ОК или клавишу [Enter], вы можете вызвать панель выделенной функции (описание подобных панелей приведено далее).

Мастер функций в Excel

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

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

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

Как использовать Мастер функций в Excel

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

Выделите ячейку, которая будет содержать формулу. В нашем примере мы выделим ячейку B16.
Откройте вкладку Формулы на Ленте, а затем выберите команду Вставить функцию.
Откроется Мастер функций. В появившемся диалоговом окне Вставка функции введите несколько ключевых слов, описывающих тип вычислений, которые осуществляет требуемая функция, а затем нажмите Найти. В нашем примере мы введем фразу “количество ячеек“, но вы также можете найти функцию по категории из раскрывающегося списка.
Посмотрите список результатов, чтобы найти нужную функцию, затем нажмите OK. В нашем примере мы выберем СЧЁТЗ, поскольку она подсчитывает количество непустых ячеек в диапазоне.
Появится диалоговое окно Аргументы функции. Выберите поле Значение1, а затем введите или выберите нужные ячейки. В нашем примере мы введем диапазон A3:A10. При необходимости Вы можете продолжить заполнять аргументы в полях Значение2, Значение3 и т.д. В этом же примере мы хотим посчитать количество позиций только в диапазоне A3:A10.
Если все данные введены верно, нажмите ОК.
Мастер функций закроется, и Вы увидите результат. В нашем примере результат показывает, что всего было заказано восемь позиций.

Если Вы уже хорошо разбираетесь в базовых функциях Excel, можете воспользоваться более сложными функциями, такими как ВПР. Для получения дополнительной информации изучите урок Функция ВПР в Excel на простых примерах или обратитесь к разделу ВПР от А до Я.

Мастер функций в excel — как вызвать и применять

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

Расположение

Вызвать мастер функций можно тремя способами:

1. Использовать специальную кнопку, которая находится в строке формул.

2. Через вкладку Формулы на Панели инструментов.

3. Используя любой из наборов формул.

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

Применение

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

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

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

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

Использование мастера функций не вызывает особых трудностей. Весь процесс состоит из двух последовательных шагов: сначала выбираете формулу, а затем добавляете аргументы. Стоит отметить, что работа с этим инструментом в редакторах 2007, 2010 и 2016 годов не отличается. Только в более свежих версиях Microsoft Excel библиотека функций немного расширена.

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

Жми «Нравится» и получай только лучшие посты в Facebook ↓

Источник

Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel для Интернета Excel 2021 Excel 2021 для Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Excel 2010 Excel 2007 Еще…Меньше

Пользовательские функции (как и макросы) записываются на языке программирования Visual Basic для приложений (VBA). Они отличаются от макросов двумя вещами. Во-первых, в них используются процедуры Function, а не Sub. Это значит, что они начинаются с оператора Function, а не Sub, и заканчиваются оператором End Function, а не End Sub. Во-вторых, они выполняют различные вычисления, а не действия. Некоторые операторы (например, предназначенные для выбора и форматирования диапазонов) исключаются из пользовательских функций. Из этой статьи вы узнаете, как создавать и применять пользовательские функции. Для создания функций и макросов используется редактор Visual Basic (VBE), который открывается в отдельном окне.

Чтобы создать пользовательскую функцию DISCOUNT в этой книге, сделайте следующее:

Нажмите клавиши ALT+F11 (или FN+ALT+F11 на Mac), чтобы открыть редактор Visual Basic, а затем щелкните Insert (Вставка) > Module (Модуль). В правой части редактора Visual Basic появится окно нового модуля.

Скопируйте указанный ниже код и вставьте его в новый модуль.


Function DISCOUNT(quantity, price)
   If quantity >=100 Then
     DISCOUNT = quantity * price * 0.1
   Else
     DISCOUNT = 0
   End If
 
 DISCOUNT = Application.Round(Discount, 2)
End Function

Примечание: Чтобы код было более удобно читать, можно добавлять отступы строк с помощью клавиши TAB. Отступы необязательны и не влияют на выполнение кода. Если добавить отступ, редактор Visual Basic автоматически вставит его и для следующей строки. Чтобы сдвинуть строку на один знак табуляции влево, нажмите SHIFT+TAB.

=DISCOUNT(D7;E7)

Excel вычислит 10%-ю скидку для 200 единиц по цене 47,50 ₽ и вернет 950,00 ₽.

В первой строке кода VBA функция DISCOUNT(quantity, price) указывает, что функции DISCOUNT требуется два аргумента: quantity (количество) и price (цена). При вызове функции в ячейке листа необходимо указать эти два аргумента. В формуле =DISCOUNT(D7;E7) аргумент quantity имеет значение D7, а аргумент price — значение E7. Если скопировать формулу в ячейки G8:G13, вы получите указанные ниже результаты.

Рассмотрим, как Excel обрабатывает эту функцию. При нажатии клавиши ВВОД Excel ищет имя DISCOUNT в текущей книге и определяет, что это пользовательская функция в модуле VBA. Имена аргументов, заключенные в скобки (quantity и price), представляют собой заполнители для значений, на основе которых вычисляется скидка.

Оператор If в следующем блоке кода проверяет аргумент quantity и сравнивает количество проданных товаров со значением 100:


If quantity >= 100 Then
 DISCOUNT = quantity * price * 0.1
Else
 DISCOUNT = 0
End If

Если количество проданных товаров не меньше 100, VBA выполняет следующую инструкцию, которая перемножает значения quantity и price, а затем умножает результат на 0,1:

Discount = quantity * price * 0.1

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

Если значение quantity меньше 100, VBA выполняет следующий оператор:

Discount = 0

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

Discount = Application.Round(Discount, 2)

В VBA нет функции округления, но она есть в Excel. Чтобы использовать округление в этом операторе, необходимо указать VBA, что метод (функцию) Round следует искать в объекте Application (Excel). Для этого добавьте слово Application перед словом Round. Используйте этот синтаксис каждый раз, когда нужно получить доступ к функции Excel из модуля VBA.

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

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

Для использования настраиваемой функции должна быть открыта книга, содержащая модуль, в котором она была создана. Если книга не открыта, вы получите #NAME? при попытке использования функции. Если вы ссылались на функцию в другой книге, ее имя должно предшествовать названию книги, в которой она находится. Например, при создании функции DISCOUNT в книге Personal.xlsb и вызове ее из другой книги необходимо ввести =personal.xlsb!discount(),а не просто =discount().

Создав нужные функции, выберите Файл > Сохранить как.

В Excel 2007 нажмите кнопку Microsoft Office, а затем щелкните Сохранить как.
В диалоговом окне Сохранить как откройте раскрывающийся список Тип файла и выберите значение Надстройка Excel. Сохраните книгу с запоминающимся именем, таким как MyFunctions, в папке AddIns. Она будет автоматически предложена в диалоговом окне Сохранить как, поэтому вам потребуется только принять расположение, используемое по умолчанию.
Сохранив книгу, выберите Файл > Параметры Excel.

В Excel 2007 нажмите кнопку Microsoft Office и щелкните Параметры Excel.
В диалоговом окне Параметры Excel выберите категорию Надстройки.
В раскрывающемся списке Управление выберите Надстройки Excel. Затем нажмите кнопку Перейти.
В диалоговом окне Надстройки установите флажок рядом с именем книги, как показано ниже.

Создав нужные функции, выберите Файл > Сохранить как.
В диалоговом окне Сохранить как откройте раскрывающийся список Тип файла и выберите значение Надстройка Excel. Сохраните книгу с запоминающимся именем, таким как MyFunctions.
Сохранив книгу, выберите Сервис > Надстройки Excel.
В диалоговом окне Надстройки нажмите кнопку «Обзор», найдите свою надстройку, нажмите кнопку Открыть, а затем установите флажок рядом с надстройкой в поле Доступные надстройки.

Эта статья основана на главе книги Microsoft Office Excel 2007 Inside Out, написанной Марком Доджем (Mark Dodge) и Крейгом Стинсоном (Craig Stinson). В нее были добавлены сведения, относящиеся к более поздним версиям Excel.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Нужна дополнительная помощь?

Источник

Содержание

Мастер функций в программе Microsoft Excel
Работа Мастера функций
Переход в Мастер функций
Категории элементов в Мастере
Выбор функции
Аргументы функции
Выполнение функции
Каким способом можно вызвать список категорий функций ms excel
Мастер функций в excel — как вызвать и применять
Расположение
Применение

Мастер функций в программе Microsoft Excel

Работа Мастера функций

Переход в Мастер функций

Категории элементов в Мастере

Все функции разделены на следующие 12 категорий:

Текстовые;
Финансовые;
Дата и время;
Ссылки и массивы;
Статистические;
Аналитические;
Работа с базой данных;
Проверка свойств и значений;
Логические;
Инженерные;
Математические;
Определенные пользователем;
Совместимость.

Выбор функции

Аргументы функции

После того, как все нужные данные введены, жмем на кнопку «OK», тем самым запуская процесс выполнения задачи.

Выполнение функции

Помимо этой статьи, на сайте еще 12415 инструкций.
Добавьте сайт Lumpics.ru в закладки (CTRL+D) и мы точно еще пригодимся вам.

Отблагодарите автора, поделитесь статьей в социальных сетях.

Источник

Каким способом можно вызвать список категорий функций ms excel

На этом шаге мы рассмотрим ввод функций вручную и вставку функций.

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

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

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

Выбрать команду Вставка | Функция .
Щелкнуть на кнопке Вставка функции , которая находится на панели инструментов Стандартная .
Нажать комбинацию клавиш Shift + F3 .

В результате на экране будет отображено диалоговое окно Мастер функций (рис. 1).

Рис.1. Диалоговое окно Мастер функций

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

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

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

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

После того, как нужная функция найдена, можно щелкнуть на кнопке OK . Появится палитра формул Excel (рис. 2), которая используется для задания аргументов функции.

Рис.2. Палитра формул Excel для ввода аргументов функции ЕСЛИ

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

Если необходимо получить дополнительную информацию о выбранной функции, то можно воспользоваться кнопкой Справка или клавишей F1 .
При вводе новой функции, палитра формул автоматически помещает знак равенства в начало строки.
Если при активизации палитры формул текущая ячейка заполнена, то можно отредактировать ее содержимое.
Диалоговое окно Мастер функций можно использовать для подстановки функции в существующую формулу. Для этого нужно пометить курсор в то место формулы, куда следует вставить функцию и вызвать диалоговое окно Мастер функций .
Количество полей ввода в средстве Палитра формул определяется числом аргументов, используемых в выбранной функции. Если функция не использует аргументов, то поля ввода не выводятся. Если функция использует переменное число аргументов, то программа Excel добавляет новое поле ввода каждый раз, при вводе очередного аргумента.
В области, находящейся справа от поля ввода каждого аргумента, показано текущее значение аргумента.
Некоторые функции могут иметь несколько форм, например, как функция ИНДЕКС . Если выбрать одну из таких функций, то Excel выводит дополнительное диалоговое окно (рис. 3), которое позволяет выбрать нужную форму функции.

Рис.3. Пример дополнительного диалогового окна

Если вводить конкретные аргументы в функцию пока нет необходимости, то можно набрать знак равенства, название функции и нажать комбинацию клавиш Ctrl + Shift + A . При этом Excel вставит в функции фиктивные аргументы, которые впоследствии нужно заменить на реальные.

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

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

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

На следующем шаге мы рассмотрим математические и тригонометрические функции.

Источник

Мастер функций в excel — как вызвать и применять

Расположение

Вызвать мастер функций можно тремя способами:

1. Использовать специальную кнопку, которая находится в строке формул.

2. Через вкладку Формулы на Панели инструментов.

3. Используя любой из наборов формул.

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

Применение

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

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

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

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

Жми «Нравится» и получай только лучшие посты в Facebook ↓

Источник

Хитрости »

1 Май 2011 133650 просмотров

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

Функция пользователя(UDF) — или в дословном переводе Функция, Определенная Пользователем, т.к. в оригинале она звучит как: User Defined Function. Так же их называют пользовательские функции.
Такие функции вызываются через Мастер функций -категория Определенные пользователем (User Defined):

Так что же это за функции такие? Функция пользователя это функция, написанная при помощи языка Visual Basic for Application (VBA) и вызываемая как любая другая функция с листа. Но т.к. эти функции пишутся самостоятельно — можно создать любую функцию, которая будет делать то, что ни одна стандартная функция делать не умеет. Естественно, теперь возникает вопрос как написать такую функцию. Для написания UDF понадобятся хотя бы базовые знания языка VBA. Я в статье опишу лишь принципы создания таких функций и после прочтения вы сможете создать простейшую функцию. Но это никак не означает, что я научу создавать функции на все случаи жизни, ибо это сводится к обучению самому языку программирования. В статье же рассмотрим основные принципы создания, некоторые нюансы и как уже написанные функции использовать в своей книге.

Основные ограничения функций пользователя
Как создать функцию пользователя
Аргументы функции пользователя
Необязательные аргументы функции пользователя
Динамическое количество аргументов в функции пользователя(ParamArray)
Создание формулы массива из UDF или ввод формулы сразу в несколько ячеек
Как добавить уже созданную функцию в свою книгу
Обновление расчетов функции пользователя UDF(автопересчет)

Основные ограничения функций пользователя

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

UDF не может изменять значения других ячеек (с небольшими недокументированными исключениями)
UDF не может изменять форматы ячеек либо присваивать форматы (с небольшими недокументированными исключениями)
UDF не может изменять так называемые объекты окружения самого Excel. Например, сменить стиль ссылок или параметры вычислений формул, вид курсора и т.п.
UDF будет некорректно работать с такими методами как FindNext, SpecialCells, CurrentRegion, CurrentArray, Select, ShowPrecedents и ShowDependents(выделение зависимостей ячеек), Application.GoTo и т.п. Хотя методы вроде Range.End(xlUp), Range.End(xlDown), обычный Find(без FindNext) проблем не вызывают.Подробнее про работу этих методов из UDF можно узнать из статьи: Глюк работы в UDF методов SpecialCells и FindNext
UDF может возвращать результат только в ту ячейку, в которой записана сама функция
для работы функции пользователя(UDF) обязательно должны быть разрешены макросы

Как создать функцию пользователя

Предполагается, что Вы уже обладаете начальными навыками написания процедур в VBA и умеете создавать эти самые процедуры, хотя бы самые простые.
Т.к. функции пользователя создаются в редакторе VBA, то необходимо сначала перейти в редактор: сочетанием клавиш Alt+F11 или через вкладку Разработчик(Developer) —Visual Basic.
Однако прежде чем читать дальше советую ознакомиться так же со статьей: Что такое модуль? Какие бывают модули?
Основные моменты, которые следует помнить при создании функции пользователя:

в отличие от процедуры(Sub) функция всегда начинается именно со слова Function, а не Sub;
в теле функции всегда должно быть присвоение ей значения, иначе функция не вернет необходимый результат;
функция должна располагаться в стандартном модуле или в модуле книги, если Вы планируете вызывать её непосредственно с листа Excel
функции пользователя «привязаны» к той книге, в которой созданы и по умолчанию не будут работать в других (для этого надо будет всегда указывать имя книги с функцией). Чтобы созданные функции работали удобно и без проблем в любой книге необходимо книгу с функциями сохранить как надстройку: Как создать свою надстройку?

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

Function ТекущаяДата()
    'присваиваем функции значение, чтобы она вернула его на лист(обязательно!)
    ТекущаяДата = Date 'ТекущаяДата - имя функции и именно ему необходимо передать результат
End Function

Эта функция делает одно — возвращает в ячейку, в которую записана, текущую дату. В ячейке эта функция будет выглядеть так:
=ТекущаяДата()
К записи пользовательских функций в ячейку предъявляются такие же требования, как и к встроенным функциям. Это касается так же и скобок на конце функции, у которой нет аргументов. И так же это означает, что в функцию могут быть переданы наши собственные аргументы

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

Function MySum(vArg1 As Double, vArg2 As Double)
    Dim dblSum as Double
    'получаем сумму двух аргументов
    dblSum = vArg1 + vArg2
    'присваиваем функции значение, чтобы она вернула его на лист(обязательно!)
    MySum = dblSum 'MySum имя функции и именно ему необходимо передать результат
End Function

В приведенном выше коде я упростил стандартную функцию СУММ(SUM) до двух аргументов. Записанная на лист функция будет иметь такой вид:
=Mysum(A1;A2)
где:
A1 — первый аргумент(vArg1), ссылка на ячейку или число
A2 — второй аргумент(vArg2), ссылка на ячейку или число
Функция вернет #ЗНАЧ!(#VALUE!), если в качестве одного из аргументов передано не числовое значение.

Необязательные аргументы функции пользователя

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

Optional

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

Function SumFiveArgs(arg1 As Double, Optional arg2 As Double, Optional arg3 As Double, Optional arg4 As Double, Optional arg5 As Double)
    Dim dblSum As Double
    dblSum = arg1
    dblSum = dblSum + arg2
    dblSum = dblSum + arg3
    dblSum = dblSum + arg4
    dblSum = dblSum + arg5
    SumFiveArgs = dblSum
End Function

Функция будет работать отлично, даже если передать одно или два числа. Но это только в том случае, если для аргументов у нас заданы строгие типы данных — в примере это Double. Если тип не задан — получим ошибку #ЗНАЧ! (#VALUE!):

Function SumFiveArgs(arg1 As Double, Optional arg2, Optional arg3, Optional arg4, Optional arg5)
    Dim dblSum As Double
    dblSum = arg1
    dblSum = dblSum + arg2
    dblSum = dblSum + arg3
    dblSum = dblSum + arg4
    dblSum = dblSum + arg5
    SumFiveArgs = dblSum
End Function

Можно, конечно, всегда задавать тип данных, как в первом примере. Но стоит учитывать, что для числовых типов данных(Double, Integer, Long) значение по умолчанию будет всегда 0, даже если мы аргумент не передали в функцию(для типа String значение по умолчанию нулевая строка — «»). Это нам не мешает произвести операцию сложения и вычитания. Но операция внутри функции может быть умножением или делением и в этом случае мы получим ошибку или неверный результат:

'функция деления аргументов между собой
Function DivideFiveArgs(arg1 As Double, Optional arg2 As Double, Optional arg3 As Double, Optional arg4 As Double, Optional arg5 As Double)
    Dim dblSum As Double
    dblSum = arg1
    dblSum = dblSum / arg2
    dblSum = dblSum / arg3 'уже здесь получим ошибку "на ноль делить нельзя"
    dblSum = dblSum / arg4
    dblSum = dblSum / arg5
    DivideFiveArgs = dblSum
End Function

'функция перемножения аргументов между собой
Function MultipleFiveArgs(arg1 As Double, Optional arg2 As Double, Optional arg3 As Double, Optional arg4 As Double, Optional arg5 As Double)
    Dim dblSum As Double
    dblSum = arg1
    dblSum = dblSum * arg2
    dblSum = dblSum * arg3 'здесь arg3 равен нулю, значит далее сумма будет тоже равна нулю
    dblSum = dblSum * arg4
    dblSum = dblSum * arg5
    MultipleFiveArgs = dblSum
End Function

Передав меньше аргументов в функцию =DivideFiveArgs(A1;A4) мы получим ошибку #ЗНАЧ!(#VALUE!), которую вызовет деление на ноль внутри кода на третьем аргументе.
А передав меньше аргументов в функцию умножения =MultipleFiveArgs(A1;A4)) — получим в качестве результата 0, т.к. на третьем аргументе умножим общую сумму на аргумент, который равен 0.

Проверять каждый аргумент на равенство нулю(If arg2 = 0 Then) тоже будет неверно — вдруг какой-либо реально переданный аргумент будет действительно равен 0? Будет неверный результат функции. Поэтому, чтобы функции выше заработали правильно — нужна проверка на отсутствие в аргументе значения.
Тут надо знать, что если тип аргумента не указан и сам аргумент в функцию не был передан — то ему назначается особый тип — Missing. Который и дает понять, что аргумент просто не передавался в функцию(Missing в переводе можно представить как «пропущен»). И в VBA для таких случаев есть специальная функция — IsMissing. Тогда можно более гибко манипулировать аргументами(на примере функции с умножением):

Function MultipleFiveArgs(arg1 As Double, Optional arg2, Optional arg3, Optional arg4, Optional arg5)
    Dim dblSum As Double
    dblSum = arg1
    'проверяем, что аргумент передан(NOT IsMISSING)
    If Not IsMissing(arg2) Then
        dblSum = dblSum * arg2
    End If
    If Not IsMissing(arg3) Then
        dblSum = dblSum * arg3
    End If
    If Not IsMissing(arg4) Then
        dblSum = dblSum * arg4
    End If
    If Not IsMissing(arg5) Then
        dblSum = dblSum * arg5
    End If
    MultipleFiveArgs = dblSum
End Function

Как видно — теперь Optional можно использовать вполне эффективно. Но надо помнить одно правило: аргументы, заданные в функции с ключевым Optional должны быть заданы самими последними. Т.е. после них не может идти никаких других обязательных аргументов(без ключевого Optional). Впрочем, в этом случае VBA сообщит нам об этом ошибкой «Expected: Optional», что означает: Ожидался не обязательный аргумент.

И для большего кругозора еще одна простая функция, но которая работает уже с текстом и вернет строку до первого пробела:

Function ТекстДоПервогоПробела(Текст As String) As String
    Dim i As Long
    Dim Result As String 'переменная для результата
    i = InStr(1, Текст, " ", 1) 'ищем позицию первого пробела в переданном тексте
    'если пробел есть и он не первый символ в строке
    If i > 1 Then
        Result = Mid(Текст, 1, i - 1) 'получаем текст до первого пробела
    Else
    'если пробела нет - возвращаем всю строку
        Result = Текст
    End If
    'присваиваем результат функции для возврата его на лист
    ТекстДоПервогоПробела = Result
End Function

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

Function ТекстДоПервогоПробела(Текст As String) As String
    ТекстДоПервогоПробела = Split(Текст, " ")(0)
End Function

Но в таком виде функция вернет значение ошибки #ЗНАЧ!(#VALUE!), если ячейка с текстом будет пустой. Вдаваться в подробности не буду. Могу лишь написать, что функция VBA Split разбивает указанный текст на отдельные части, используя для разбиения указанный разделитель. И создает из разбитых частей одномерный массив с нижней границей, равной нулю. А функция выше просто возвращает первый элемент этого массива.
Обе функции можно дополнить не обязательным аргументом — разделитель слов. И сделать его по умолчанию пробелом. Значение по умолчанию в данном случае задается сразу при объявлении аргумента. Выглядеть это будет так:

Function ТекстДоУказанногоСимвола(Текст As String, Optional Разделитель As String = " ") As String
    ТекстДоУказанногоСимвола = Split(Текст, Разделитель)(0)
End Function

В данном примере если вызвать функцию так:
=ТекстДоУказанногоСимвола(A1)
то функция будет использовать в качестве разделителя пробел(Optional Разделитель As String = » «). Или можно задать символ разделения напрямую в функции и это может быть как пробел, так и любой другой символ:
=ТекстДоУказанногоСимвола(A1;»;»)

Динамическое количество аргументов в функции пользователя(ParamArray)

Сразу после некоторого использования Optional напрашивается вопрос: а если заранее неизвестно сколько аргументов будет передано? Может их будет передано 50? Или 70? Что, все перечислять? В принципе, можно сделать и так. Но можно и иначе. В VBA предусмотрен очень интересный тип данных —

ParamArray

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

Function SumMultiple(ParamArray args())
    Dim dblSum As Double, arg
    On Error Resume Next
    For Each arg In args
        dblSum = dblSum + arg
    Next
    SumMultiple = dblSum
End Function

Но такая функция может выдать ошибку, если в качестве любого аргумента будет передана не одна единственная ячейка или значение — а диапазон ячеек(A1:A4) или массив({10;20;30}). В этом случае внутри функции обязательно придется определять тип данных внутри ParamArray. Сделать это можно следующим образом:

Function SumMultiple_DiffTypes(ParamArray args())
    Dim dblSum As Double, arg, rc As Range, x
    On Error Resume Next
    For Each arg In args
        Select Case TypeName(arg)
        Case "Range"                     'это диапазон
            'цикл по всем ячейкам
            For Each rc In arg.Cells
                'проверяем, что в ячейке числовой тип данных
                If IsNumeric(rc.Value) Then
                    dblSum = dblSum + rc.Value
                End If
            Next
        Case "Variant()"                 'это произвольный массив({10;20;30})
            'цикл по всем ячейкам
            For Each x In arg
                'проверяем, что это числовой тип данных
                If IsNumeric(x) Then
                    dblSum = dblSum + x
                End If
            Next
        Case "Double", "Long", "Integer" 'это любой числовой тип
            'суммируем
            dblSum = dblSum + arg
        'все остальные типы игнорируем
        End Select
    Next
    SumMultiple_DiffTypes = dblSum
End Function

И в такую функцию может быть передан любой из наиболее распространенных типов данных:
=SumMultiple_DiffTypes({10;20;30};A1:A4;10;C1)
Но и у ParamArray есть недостаток: он не может использоваться одновременно с необязательными аргументами(Optional). Вместе с ParamArray могут быть использованы только обязательные аргументы и они должны обязательно идти ДО ParamArray. Если хоть один будет указан после, то получим ошибку компилятора: «Expected: )». Т.е. ожидалась завершающая скобка функции.

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

Function ОбъединитьВсеСРазделителем(Разделитель As String, ParamArray Значения()) As String
    Dim result As String, arg, x, rc As Range
    For Each arg In Значения
        Select Case TypeName(arg)
        Case "Range"                     'это диапазон
            'цикл по всем ячейкам
            For Each rc In arg.Cells
                If result = "" Then
                    result = rc.Value
                Else
                    result = result & Разделитель & rc.Value
                End If
            Next
        Case "Variant()"                 'это произвольный массив({"а";"б";"в"})
            'цикл по всем ячейкам
            For Each x In arg
                If result = "" Then
                    result = x
                Else
                    result = result & Разделитель & x
                End If
            Next
        Case Else 'это любой другой тип
            'суммируем
            If result = "" Then
                result = arg
            Else
                result = result & Разделитель & arg
            End If
        End Select
    Next
    ОбъединитьВсеСРазделителем = result
End Function

Пример вызова такой функции с листа(первым обязательно передается разделитель, а далее уже что объединять — любой тип данных):
=ОбъединитьВсеСРазделителем(«; «;A1:A4;C1;»Привет»;{«а»;»б»;»в»})

Создание формулы массива из UDF или ввод формулы сразу в несколько ячеек

Иногда бывает необходимо делать вычисления таким образом, чтобы они возвращались сразу в несколько ячеек. А порой без этого вообще не обойтись. Например, если расчет значения для следующей ячейки напрямую зависит от полученного на предыдущей итерации и видеть надо одновременно значения всех итераций. Например, вывести в несколько строк и столбцов числа от 6 с шагом 2. Стандартными формулами это довольно непросто сделать — ведь придется как-то определять сколько ячеек в каждом столбце и какое последнее число в каждом из столбцов. Через функцию пользователя, созданную как формула массива(подробнее про формулы массива), это сделать проще.
Ниже представлена функция

WriteNumbers

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

'---------------------------------------------------------------------------------------
' Author : Щербаков Дмитрий(The_Prist)
'          Профессиональная разработка приложений для MS Office любой сложности
'          Проведение тренингов по MS Excel
'          https://www.excel-vba.ru
'          info@excel-vba.ru
' Purpose: Функция записывает в ячейки числа от первого заданного(Число) с заданным шагом(Шаг)
'          Вводится сразу в несколько ячеек и ввод завершается сочетанием клавиш Ctrl+Shift+Enter
'---------------------------------------------------------------------------------------
Function WriteNumbers(Число As Double, Шаг As Double)
    Dim aNumbers() 'массив для записи результата
    Dim rResRange As Range
    Dim lr As Long, lc As Long, dblNum As Double
 
    'задаем начальное значение числа - оно равно Шаг
    dblNum = Число
    'определяем кол-во выделенных ячеек, в которые надо вернуть результат
    Set rResRange = Application.Caller
    ReDim aNumbers(1 To rResRange.Rows.Count, 1 To rResRange.Columns.Count)
    'создаем массив результирующих чисел для всех выделенных ячеек
    For lc = 1 To rResRange.Columns.Count
        For lr = 1 To rResRange.Rows.Count
            aNumbers(lr, lc) = dblNum
            dblNum = dblNum + Шаг
        Next
    Next
    'возвращаем результат
    WriteNumbers = aNumbers
End Function

Чтобы правильно применить приведенную UDF, необходимо

выделить несколько ячеек(например, A1:F10)
в строку формул ввести нашу UDF: =WriteNumbers(6;2)
завершить ввод формулы сразу тремя клавишами Ctrl+Shift+Enter

Главное, на что надо обратить внимание — это тип переменной, которая используется для записи результата: aNumbers(). Она обязательно должна быть задана как массив, если мы хотим, чтобы UDF возвращала результат сразу во всем выделенные ячейки и работала как привычная формула массива. В зависимости от решаемой задачи, массив может быть как одномерным горизонтальным или вертикальным, так и многомерным.
В примере выше итоговый массив определяется автоматически при помощи Application.Caller(подробнее про Caller в статье Кто вызвал функцию или процедуру?). Рекомендую всегда делать именно так, чтобы корректно задавать итоговый массив, как бы он ни был задан. Возможно, для написания правильно работающей UDF подобного плана, надо будет чуть более углубленно изучать работу с массивами.

Как добавить уже созданную функцию в свою книгу

Для начала необходимо создать стандартный модуль(Insert —Module). Затем в этот модуль вставить весь текст функции(код). Все, теперь функция доступна из диспетчера функций в категории Определенные пользователем(User defined), так же можно будет вводить эту функцию напрямую в ячейки той книги, в которой содержится код функции. Чтобы функция заработала очень важно разрешить макросы. Иначе результатом будет ошибка #ИМЯ!(#NAME!)
GIF-ка с инструкцией, как вставить функцию к себе в книгу на примере функции ТекстДоПервогоПробела из этой статьи:

Если Вы используете версию Excel 2007 и выше, то книгу необходимо будет сохранить с поддержкой макросов: Меню -Сохранить как -Книга Excel с поддержкой макросов.

Обновление расчетов функции пользователя UDF(автопересчет)

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

(

Shift

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

—

Enter

. Это не всегда удобно и часто возникает вопрос:

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

и при пересчете листа/книги клавишами(

или

Shift

). Между тем делается это довольно просто и при этом сделать можно для каждой отдельной функции. На примере простой функции записи даты-времени в ячейку:

Function ТекущаяДатаВремя()
    ТекущаяДатаВремя = Now 'Now - возвращает текущие дату и время
End Function

Если записать её в таком виде, то после записи в ячейку:
=ТекущаяДатаВремя()
при первой записи будут показаны текущие дата и время. Чтобы эксперимент был более наглядным, лучше перейти в Формат ячеек и выставить для ячейки с функцией формат «ДД.ММ.ГГ ч:мм:сс;@». С небольшим интервалом времени понажимайте клавишу F9, чтобы вызвать пересчет книги. Тогда наглядно будет видно, что при пересчете значение функции не изменяется — секунды «застынут» на том месте, где были при начальном вводе функции. Выделите ячейку с функцией — нажмите F2-Enter. Только тогда значение будет пересчитано. А теперь чуть изменим функцию — добавим ключевой параметр пересчета — Application.Volatile:

Function ТекущаяДатаВремя()
    Application.Volatile True
    ТекущаяДатаВремя = Now 'Now - возвращает текущие дату и время
End Function

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

Function ТекущаяДатаВремя(Optional ДиапазонОбновления As Range = Nothing)
    ТекущаяДатаВремя = Now
End Function

тогда при любом изменении в ячейках аргумента ДиапазонОбновления функция будет пересчитана. При этом использовать хоть как-то сам этот аргумент внутри функции совершенно необязательно. Выглядеть запись такой функции будет так:
=ТекущаяДатаВремя(E:E)
при любом изменении в столбце E функция будет пересчитана.

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

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

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

Статья помогла? Поделись ссылкой с друзьями!

Видеоуроки

Поиск по меткам

Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Источник

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

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

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

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

Для
записи функции на VBA
используется однострочный оператор
условного перехода If-Then-Else.

Function
G(y)

If
y<=0 Then G=(1+y^2)/(1+y^4)^(1/2) _

Else
G=2*y+sin(y)^2/(2+y)

End
Function.

Знак
подчеркивания «_» в конце первой
строки обозначает, что следующая строка
является ее продолжением.

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

Запустите
Excel
и выберите команды СервисМакросРедактор
Visual Basic.
В
редакторе Visual Basic выберите команды
ВставкаМодуль.
Выберите
значок модуля в окне проекта. введите
функцию в общую область окна редактирования
кода.
Выберите
команды ФайлЗакрыть и вернуться в
Microsoft
Excel.

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

Способы
запуска и использования пользовательских
функций:

С
помощью мастера
функции щелкните кнопку f(x), выберите
категорию Определенные пользователем,
функцию G и введите значение, например,
0,2. Функция возвратит результат:
0,417940683.
Использование
функции на рабочем листе Excel —

Введите
в ячейку А1 число 0,2, а в ячейку В1 введите
формулу =G(A1). Функция возвратит результат:
0.417940683.

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

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

Способ
1
– Функция сохраняется как файл Excel.
Для этого после создания функции на
листе модуля VBAи
ее использования перед выходом из Excel:

На
рабочем листе Excel
выберите команды Файл/Сохранить как …
— будет выдано диалоговое окно Сохранение.
В
раскрывающемся списке Сохранить
в:
выберите диск (папку), на котором хотите
сохранить функцию. Например, дискета
3,5 (или папка Мои документы). В графе Имя
файла введите имя функции. Например,
G.
(Желательно выбирать имена функций,
которые напоминали бы о назначении
функции, например, Доход, премия и т.д.).
В раскрывающемся списке тип файла
выберите Книга Microsoft
Excel
и щелкните Сохранить.
Выйдите
из Excel.

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

1.
Войдите в Excel
и выберите команды ФайлОткрыть. Откройте
диск, на котором сохранена функция,
выделите функцию и щелкните кнопку
Открыть.

2.
Щелкните кнопку Включить Макросы (или
не отключать макросы) и войдите в редактор
Visual
Basic
– функция будет включена в библиотеку
Excel,
в категорию Определенные пользователем.

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

Способ
2. – Сохранение пользовательской функции
в личной книге макросов (PERSONAL.XLS).

Для
этого необходимо предварительно создать
проект PERSONAL…,
для чего: 1. Выполнить команды
СервисМакросНачать запись… — будет
выдано диалоговое окно Запись макроса.
2. В поле Сохранить в: выделить Личная
книга макросов и щелкнуть ОК. 3. Выполнить
команду Остановить запись. 4. Выполнив
команды СервисМакросРедактор Visual
Basic,
вы убедитесь, что проект PERSONAL
создан. Теперь вы можете создавать
функции в проекте PERSONAL,
точно так как, например, создали функцию
G
в проекте Книга1.

Создадим,
например, функцию Y(x)=X^2
и щелкнем кнопку на панели инструментов
……Сохранить PERSONAL.XLS.
2. выполним команды ФайлЗакрыть и
вернуться в Microsoft
Excel.
3. Щелкните f(x),
определенные пользователем, функция
Y
– созданная функция Y
находится в категории Определенные
пользователем под именем PERSONAL.XLS!Y.
4. выполните команды ФайлВыход – будет
выдано сообщение: сохранить выполненные
изменения в личной книге макросов? Если
нажать Да, функция Y
станет доступной при следующем запуске
Microsoft
Excel.
Таким образом, созданная функция Y
сохранена в библиотеке встроенных
функций. Функцию Примера1
сохраните
на дискете 3,5 (диск G)
как файл Excel.

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

Для
записи функции на VBA используется
строчный оператор

If
Then.

Function
Z(t)

If
t<= -1 Then z=(1+Abs(t))/(1+t+t^2)^(1/3)

If
t>-1 And t<0 Then z=2*Application.Ln(1+t^2)+ _

(1+cos(t)^4)/(2+t)

If
t>=0 Then z=(1+t)^(3/5)

End
Function.

Задания:
1. Реализовать функции примера 1 и примера
2 и освоить способы запуска сохранения
и использования пользовательских
функций. 2. Задание для самостоятельного
выполнения. Разработать функцию для
выполнения примера 2 с использованием
блочного оператора If
Then
Else.

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

Пример
3.
Создадим функцию пользователя с именем
Стоимость, рассчитывающей стоимость
партии книг по прогрессивной шкале цен,
а именно: если продается от 100 до 200
экземпляров книги, то скидка от ее
отпускной цены составляет 7 %, если
продается от 201 до 300 экземпляров -10 %, а
если свыше 300 экземпляров – 15 %. Кроме
того, для постоянных клиентов предусмотрена
дополнительная скидка в размере 5 %.

Аргументы
этой функции назовем ЦенаОднойКниги,
Количество и Скидка. Для аргумента
Скидка предусмотрим только два допустимых
значения: 1 для постоянных клиентов и 0
в противном случае.

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

1.
Выполните команду Сервис,
Макрос,
Редактор
Visual
Basic,
чтобы открыть окно редактора Visual Basic.

2.
Выполните команду Вставка,
Модуль
для создания листа Модуля.

3.
Выберите значок модуля в окне Проект,
чтобы активизировать окно редактора
кода на листе Модуля.

4.
Наберите на листе Модуля приведенную
ниже процедуру:

Function
Стоимость (ЦенаОднойКниги, Количество,
Скидка)

‘

‘Вычисление
стоимости без учета скидки для постоянных
клиентов.

‘

If
количество<100 Then

‘

‘Продажа
до 99 экземпляров

‘

СтоимостьБезСкидки
= ЦенаОднойКниги * Количество

Else

If
Количество <=200 Then

‘

‘Продажа
от 100 до 200 экземпляров

‘

СтоимостьБезСкидки
= ЦенаОднойКниги* Количество* 0,93

Else

‘

‘Продажа
от 201 до 300 экземпляров

‘

If
Количество < = 300 Then

СтоимостьБезСкидки=ЦенаОднойКниги*Количество*0,9

Else

‘

‘Продажа
свыше 300 экземпляров

‘

СтоимостьБезСкидки=ЦенаОднойКниги*Количество*0,85

End If

‘

‘Корректировка
стоимости с учетом скидки для постоянных
клиентов

‘

If
Скидка=0 Then

Стоимость=СтоимостьБезСкидки

Else

Стоимость=СтоимостьБезСкидки*0,95

End
If

End
Function

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

Для
возврата в Excel выполните команду Файл,
Закрыть и вернуться в Microsoft Excel. Для
использования функции щелкните кнопку
мастер функций — fx, категория функции —
созданные
пользователем,
функция Стоимость.
Выдается
диалоговое окно для заполнения параметров
функции Стоимость
(рис. 3.5.1.1).

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

Рис.
3.5.1.1. Диалоговое окно для заполнения
параметров функции Стоимость

При
необходимости внести изменения в текст
функции выберите команду Сервис,
Макрос, Макросы.
Нажмите имя макроса Стоимость
и нажмите кнопку Изменить.
Будет выдан текст макроса.

Задания:
1. Реализовать функцию Стоимость.

Создать
функцию Стоимость, используя оператор
If
Then
Else
блочной структуры.
Индивидуальное
задание – изменить наименование функции
Стоимость на СтоимостьN,
где N
– номер студента в списке группы.

Пример4.
Создание функции пользователя с
оператором выбора Select Case

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

Рассмотрим
пример начисления комиссионных на
основе оператора Select Case. Здесь размер
комиссионных зависит только от объема
проданной продукции по правилу:

Объем
продаж, тыс.руб.

Комиссионные,
%

0-9999

10000-39999

40000
— и более

Задачу
начисления комиссионных решает следующая
функция:

Function
Премия(продажа)

Select
Case продажа

Case
0 To 9999

Премия=0.08*продажа

Case
10000 To 39999

Премия=0.1*продажа

Case
Is>=40000

Премия=0.14*продажа

End
Select

End
Function.

Is
является ключевым словом VBA, обозначающим
выражение в операторе Case. В операторе
Case допустимы составные условия, например:

Case 4,
7 То 8, 11 То 12, 15 проверяет, принадлежит
ли проверяемое выражение одному из
отрезков: от 7 до 8 и от 11 до 12 или равняется
одному из значений: 4 и 15.

Case 5,
6, 9 То 10, 13, 14 Is>=16 проверяет, принадлежит
ли проверяемое выражение отрезку от 9
до 10 или равняется одному из значений:
5, 6, 13 и 14, или оно меньше, чем 16.

Для
сравнения приведем формулу, которую
надо ввести в ячейку В1 при решении этой
задачи в Excel без использования функций
пользователя

=ЕСЛИ(И(А1>=0;
A1<10000);a1*0.08;ЕСЛИ(И(A1>=10000;A1<40000);

A1*0.1;ЕСЛИ(А1>=40000;A1*0.14)))

Пример
5.
– В этом примере, использующем оператор
Select
Case,
осуществляется выбор ставки налога (0;
0,05; 0,10; 0,15; 0,20) в зависимости от значения
выражения intПараметр.
Предусмотрен также вариант выбора,
когда значения выражения intПараметр
не совпадает ни с одним выражением в
предложениях Case.

Function
Налог(sngСумма
As Single, intПараметр
As Integer)

Select
Case intПараметр

Сase
0

Налог=
sngСумма*0

Case
1

Налог=
sngСумма*0,05

Case
2

Налог=
sngСумма*0,1

Case
3

Налог=
sngСумма*0,15

Case
4

Налог=
sngСумма*0,2

Case
Else

Налог=
sngСумма*0

End
Select

End
Function

Пример
6. Создание функции пользователя с
оператором цикла For-Next

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

где
P(1) и d(1) — размер и дата выдачи ссуды,
причем P(1) берется со знаком минус, P(j),
d(j) — размер и дата j-й выплаты, n-1 — число
выплат, i — годовая процентная ставка.

Option
Explicit

Option
Base 1

Function
Доход
(процент
As Double, платеж
As Variant, _

год
As Variant) As Double

Dim
i, j, n As Integer, s As Double

n=платеж.
Rows. Count

S=0

For
i=1 To n

S=S+
платеж
(i)/ _

(1+процент)^((год(i)-год(1))/365)

Next i

Доход
=S

End
Function.

Отметим,
что метод Rows возвращает строки диапазона
платеж, а свойство Count считает число
элементов объекта. Таким образом,
платеж.Rows.Count определяет число строк в
диапазоне платеж. Для того чтобы найти
число столбцов диапазона платеж, нужно
использовать конструкцию платеж.Columns.Count.

Рис.
3.5.1.2. решение
задачи о неравномерных платежах

Решим
с помощью функции Доход следующую
задачу. Предположим, что 11.01.97 у вас берут
в долг 10000 руб. и предлагают вернуть:
20.12.97 — 2000 руб., 18.10.98 — 40000 руб., 12.04.99 — 7000
руб. Имеет ли смысл эта сделка при годовой
ставке 10%?

Для
решения этой задачи введены данные, как
показано на рис. 3.5.1.2.

Ссуда
введена в ячейку В2 со знаком минус, т.к.
эти деньги у вас забирают. В ячейку В8,
где вычисляется разность между текущим
объемом вклада и размером ссуды, введем
формулу=Доход(В7;В2:В5;D2:D5).
В данном случае найденное значение
равно 857.91. так
как результат положителен, данная сделка
выгодна.

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

Создадим
функцию Тест, определяющую номер первого
вхождения элемента в
в вектор а.
Если среди компонент вектора а
нет элементов, равное в,
функция Тест принимает значение, равное
-1.

Function
Тест(a
As Variant, в
As Variant) As Integer

Dim
i, n As Integer, t As Boolean

n=a.
Rows.Count*a.Columns.Count

t=False

For
i=1 To n

If
a(i)=в
Then

Тест=i

T=True

Exit
For

End
If

Next
i

If
t=False Then Тест=-1

End
Function

Пример8.
Создание функции пользователя с
использованием оператора цикла While-Wend

Синтаксис
оператора While-Wend приведен на с.

Приведенная
ниже функция Доход_2 вычисляет то же
значение, что и функция Доход, но с
использованием оператора цикла
While-Wend:

Option
Base 1

Function
Доход_2(процент
As Double, платеж
As Variant, _

год
As Variant) As Double

Dim
i, j, n As Integer, s As Double

n=платеж.Rows.Count

S=0

I=1

While
i<=n

S=S+
платеж(i)/(1+процент)^((год(i)-год(1))/365

I=i+1

Wend

Доход_2=S

End
Function.

Задания:
1. Реализуйте функции 1-8.

2.
Индивидуальное задание 1. выполните
вычисления по заданной функции Y(Xi)
с циклом и разветвлением внутри цикла
(вариант 1-12 – см. ниже). Номер варианта
равен номеру студента в списке группы
до 12 номера, после 12 номера – номер в
списке группы минус 12, т.е. номер варианта
студента под номером 13 в списке группы
равен 13-12=1 и т.д.

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

Пример
выполнения задания

Исходная
функция

Здесь
xi
– элементы массива Х(12), Сi
изменяются одновременно с Xi
от начального значения С=5 c
шагом 1,5. Численные значения элементов
массива Х, величина a
и k
выбрать самостоятельно.

Полагаем
a=1;
k=6;
x(1)=1;
x(2)=2,
… x(12)=12

c(1)=5;
c(2)=6,5,
… c(12)=21,5

Контрольный
просчет

Контрольная
точка1 – Х(1)=1 Y(1)=5*1*1=5

Контрольная
точка2 – Х(7)=7 Y(7)=1*7+14=21

Последовательность
выполнения задания

Для
построения пользовательcкой
функции Y(x):

Войдите
в Excel и выполните команду Серсвис,Макрос,
Редактор Visual Basic, чтобы открыть окно
редактора VBA
Выполните
команду Вставка,Модуль
На
листе Модуля наберите текст функции:

Function
Y (X, C As Variant) As Variant

If
X>6 Then Y=1*X+C Else Y=5*1*X

End
Function

Для
возврата в Excel выполните команду
Файл,Закрыть и вернуться в Microsoft Excel.
На
рабочем листе Excel в ячейки А1:А12 введите
значения Х равные 1,
2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, а
в
ячейки
В1:В12 введите значения С, равные
— 5; 6,5; 8; 9,5; 11; 12,5; 14; 15,5; 17; 18,5; 20; 21,5.
Выделите
ячейку С1, щелкнув по кнопке Мастера
функций — f, далее — по категории
Определенные пользователем, Y и OK.
В
строку Х диалогового окна введите А1,
а в строку С В1 и ОК.
Повторите
п.п. 6-7 для ячейки С2.
Установите
указатель мыши на маркере заполнения
(маленький 
в нижнем углу) и протащите его до ячейки
С12.

В
ячейках С1:С12 — результаты вычисления
функции Y(x).

10.
Постройте график (диаграмму) функции
Y(x)

Варианты
функций

Вариант
1

Здесь
х_i—
элементы одномерного массива х, i
изменяется в пределах от 1 до 12 с шагом
1. Численные значения а, с, k_1,k₂и
x_iвыбрать
самостоятельно.

Вариант
2

где
x_i
и c_i-элементы
одномерных массивов, соответственно
х(12), с(12); i изменяется от 1 до 12 с шагом
1.

Вариант
3

Массив
x_i
содержит 12 элементов. Численные значения
элементов массива и величины а, в, с и k
выбрать самостоятельно.

Вариант
4

Массивы
Х и С содержат по 12 элементов. Численные
значения элементов массивов и а, k₁,k₂
выбрать самостоятельно.

Вариант
5

где
массивы Х и С содержат по 12 элементов.
Численные значения величин а, b
и элементов массивов выбрать самостоятельно.

Вариант
6

Здесь
х_i
— элементы одномерного массива, с
изменяется одновременно с х_i
от начального значения с = 5 с шагом 1,5;
численные значения элементов массива
Х(12), величин b и k — выбрать самостоятельно.

Вариант
7

Здесь
с_i
и х_i
— элементы одномерных массивов
соответственно С(15) и Х(15). Численные
значения элементов массивов, величин
b, k₁,
k₂
и k₃
выбрать самостоятельно.

Вариант
8

Здесь
х_i
— элементы массива Х(12), с изменяется
одновременно с х
от начального значения с = -8 с шагом 1.5.
Численные значения элементов массива,
величины b выбрать самостоятельно.

Вариант
9

Здесь
х_i
— элементы массива Х(12), а изменяется
одновременно с х
от
начального значения а =1.5 с шагом 0.5.
Численные значения элементов массива,
величин с
и k₁
выбрать самостоятельно.

Вариант
10

Здесь
х_i
— элементы массива Х(12), а изменяется
одновременно с х_i
от начального значения а = -1.5 с шагом
0.5. Численные значения элементов массива,
величин b
и k
выбрать самостоятельно.

Вариант
11

Здесь
массив х содержит 20 элементов, коэффициенты
а, c, b, k₁,
k₂,
k₃
выбрать самостоятельно.

Вариант
12

Здесь
х_i
— элементы одномерного массива Х(12); k₁<
k₂<
k₃;
a, b, c, k₁,k₂,
k₃
— коэффициенты выбрать самостоятельно.

Источник