292 |
|
|
|
|
|
Часть III. Visual Basic for Applications |
T e m p S tr in g |
= "" |
|
|
|
||
F o r i = 1 T o L e n ( t x t ) |
|
|
||||
|
S e le c t C a s e u c a s e ( M i d ( t x t , i , |
1 )) |
|
|||
|
C a se " A " , |
" E " , " I " , " 0 " , |
"U " , |
" A " , " E " , " И " , |
||
|
"О ", " У " , |
" Ы " # " Э " , "Ю ", |
"Я " |
|
||
|
' |
Н и ч е го не д е л а т ь |
|
|
||
|
C a se |
E ls e |
|
|
|
|
|
|
T e m p S tr in g = T e m p S tr in g & M id ( t x t , i , 1) |
||||
|
E n d |
S e le c t |
|
|
|
|
|
N e x t |
i |
|
|
|
|
R e m o v e V o w e ls = T e m p S tr in g |
|
|
||||
E n d |
F u n c t io n |
|
|
|
|
|
В |
этой версии программы использовалась |
текстовая переменная (TempString), |
||||
в которой хранится конструируемая строка символов (без гласных букв). Затем, перед завершением процедуры, содержимое переменной TempString было присвоено назва нию функции. В этой версии также применяется конструкция Select Case вместо конструкции If-Then.
Компакт-диск
Обе версии описываемой в этом разделе функции можно найти на прила гаемом к книге компакт-диске в файле re m o v e v o w e ls . x ls m .
Синтаксис функции
Пользовательские функции имеют много общего с процедурами типа Sub. (Детально о процедурах типа Sub рассказано в главе 9.)
Для объявления функции применяется следующий синтаксис.
[ P u b lic |
| |
P r iv a t e ] [ S t a t ic ] F u n c t io n имя ( [ с п и с о к _ а р г у м е н т о в ] ) [As тип] |
[инст рукции] |
||
[имя |
= |
выражение] |
[ E x it F u n c t io n ] |
||
[инст рукции] |
||
[имя |
= |
вы раж ение] |
E n d F u n c t io n
Функция состоит из следующих ключевых элементов.
•Public (необязательное ключевое слово). Указывает, что функция доступна для других процедур во всех остальных модулях активных проектов VBA.
•Private (необязательное ключевое слово). Указывает, что функция доступна только для других процедур в текущем модуле.
•Static (необязательное ключевое слово). Указывает, что значения переменных, которые объявлены в функции, сохраняются между вызовами функции.
•Function (обязательное ключевое слово). Обозначает начало функции, возвра щающей значение или другие данные.
•Имя (обязательное ключевое слово). Представляет произвольное название функ ции. При именовании функций используются те же правила, что и при задании имен переменным. По окончании выполнения функции результат присваивается ее названию.
Глава 10. Создание функций |
293 |
• С п и с о к _ а р г у м е н т о в |
(необязательный). Список одной или нескольких пере |
менных, представляющих аргументы, которые передаются в функцию. Аргументы заключены в скобки. Для разделения пар аргументов используется запятая.
•Тип (необязательный). Тип данных, который возвращает функция.
•И н с т р у к ц и и (необязательные). Корректные инструкции VBA.
• |
E x i t |
F u n c t i o n (необязательный). Оператор, вызывающий немедленный выход |
|
из функции до ее завершения. |
|
• |
E n d |
F u n c t i o n (обязательное). Ключевое слово, обозначающее конец функции. |
О |
пользовательских функциях, написанных на VBA, необходимо знать следующее: |
|
значение всегда присваивается названию функции минимум один раз и, как правило, то гда, когда функция завершила выполнение.
Создание пользовательской функции начните с создания модуля VBA (можно также использовать существующий модуль). Введите ключевое слово F u n ctio n , после кото рого укажите название функции и список ее аргументов (если они есть) в скобках. Вы также можете объявить тип данных значения, которое возвращает функция, используя ключевое слово As (это делать необязательно, но рекомендуется). Вставьте код VBA, выполняющий требуемые действия, и убедитесь, что необходимое значение присваива ется переменной процедуры, соответствующей названию функции, минимум один раз в теле функции. Функция заканчивается оператором End F u n ctio n .
Имена функций подчиняются тем же правилам, что и имена переменных. Если вы планируете использовать функцию в формуле рабочего листа, убедитесь, что название не имеет форму адреса ячейки. Например, если в качестве имени функции указывается J21, заключите его в кавычки: = ' J21' (А1).
Лучше всего вообще не использовать имена функций, являющиеся ссылками на ячейки, включая именованные диапазоны. Также не присваивайте функциям имена, которые соот ветствуют названиям встроенных функций Excel. В случае возникновения конфликта меж ду именами функций программа Excel всегда делает выбор в пользу встроенных функций.
Область действия функции
В главе 9 была рассмотрена концепция области действия процедуры (P u b lic или Private). То же самое относится и к функциям: область действия функции определяет, может ли она быть вызвана процедурами в других модулях или рабочих листах.
Ниже представлены условия, о которых следует помнить при определении области действия функции.
• Если область действия функции не задана, то по умолчанию подразумевается
P u b l ic .
• Функции, объявленные как не отображаются в диалоговом окне Мас тер функций (Insert Function). Следовательно, при создании функции, которая должна использоваться только в процедуре VBA, необходимо объявить ее как
чтобы пользователи не пытались применять ее в формуле.
•Если в программе VBA необходимо вызвать функцию, которая определена в дру гой рабочей книге, задайте ссылку на другую рабочую книгу, воспользовавшись командой VBE Tools'^ References (Сервис^Ссылки).
294 |
Часть III. Visual Basic for Applications |
Выполнение функций
В то время как процедура (Sub) может вызываться на выполнение различными спо собами, функцию (Function) можно вызвать одним из следующих способов:
•вызвать ее из другой процедуры;
•включить ее в формулу рабочего листа;
•включить в формулу условного форматирования;
•вызвать ее в окне отладки VBE (Immediate).
Вызов из процедуры
Пользовательские функции можно вызывать из процедуры точно так же, как и встро енные функции. Например, после определения функции с названием SumArray в код вводится оператор, показанный ниже.
T o t a l = S u m A r r a y (М у А гга у )
Этот оператор выполняет функцию SumArray с аргументом МуАггау, возвращает результат функции и присваивает его переменной Total.
Кроме того, можно использовать метод Run объекта Application. Соответствую щий пример приводится ниже.
T o t a l = A p p l i c a t i o n . Run ( " S u m A rra y " , " М у А г г а у " )
Первый аргумент метода Run— имя функции. Дополнительные аргументы пред ставляют аргумент (аргументы) функции. Аргументами метода Run могут быть строки (как показано выше), числа или переменные.
Использование в формуле рабочего листа
Применение специальных функций в формуле рабочего листа во многом подобно применению встроенных функций, за некоторым исключением. Удостоверьтесь, что Excel может найти необходимую функцию. Если функция сохранена в той же рабочей книге, то ничего особенного делать не нужно. Если же функция находится в другой ра бочей книге, то необходимо указать Excel, где ее найти.
Вы вправе выбрать один из трех способов.
•Указать перед названием функции ссылку на файл. Например, если вы реши ли использовать функцию с названием CountNames, определенную в открытой рабочей книге Myfunc .xlsm, то обратитесь к следующей ссылке:
=M y fu n c s .x ls m !C o u n tN a m e s ( A l:A 1 0 0 0 )
Если вы вставите функцию в диалоговом окне мастера функций (Insert Function), то ссылка на рабочую книгу будет добавлена автоматически.
•Установить ссылку на рабочую книгу. Это можно сделать с помощью команды VBE Tools^References (Сервис^Ссылки). Если функция определена в рабочей книге, на которую установлена ссылка, то не следует указывать имя рабочего лис та. Даже если зависимая рабочая книга определена по ссылке, в диалоговом окне
Мастер функций (Insert Function) указывается рабочая книга, содержащая функ
цию (хотя и необязательно).
•Создать надстройку. При создании надстройки на основе рабочей книги, в которой представлены функции, можно не задавать ссылку на файл, если одна из функций используется в формуле. Однако надстройку необходимо устанавливать. Детально надстройки рассматриваются в главе 21.
Глава 10. Создание функций |
295 |
В отличие от процедур, функции не отображаются в диалоговом окне Макрос (Macro) при выполнении команды РазработчикаКод1^Макросы (Developer^Code^Macros). Кроме того, функцию нельзя выбрать при использовании команды VBE Run«=>Sub/UserForm (Выполнить^Процедуру/пользовательскую форму) (или нажатии <F5>), если кур сор установлен в тексте функции (так как при этом отображается диалоговое окно Мак рос, в котором можно выбрать макрос для выполнения). Именно поэтому необходимо выполнить дополнительные действия по тестированию функций еще в процессе разра ботки. Один из возможных подходов— создать простую процедуру, вызывающую функцию. Если функция должна использоваться в формулах рабочего листа, то для ее проверки следует ввести простую формулу.
Использование в формулах условного форматирования
Условное форматирование подразумевает создание формул, которые являются логиче скими (т.е. возвращают значения И с т и н а (True) или Л ож ь (False)). Если формула возвращает значениеИ с т и н а , условие выполняется, и форматирование применяется к выбранной ячейке.
В формулах, определяющих условное форматирование, могут применяться пользова тельские функции VBA. Например, ниже приводится пример простой функции VBA, ко торая возвращает значение И с т и н а в том случае, если в качестве ее аргумента выступа ет ячейка, которая включает формулу.
Function CELLHASFORM ULA ( c e l l ) A s B o o le a n
CELLHASFORMULA = c e l l . H a s F o rm u la
End F u n c tio n
После определения этой функции в модуле VBA можно установить правило условно го форматирования, суть которого заключается в том, что ячейки с формулами будут от форматированы особым образом.
1.Выделите диапазон ячеек, к которому будет применяться условное форматирование. Например, выделите ячейки A1:G20.
2.Выполните команду Главная^Стили^Условное форматирование^Создать правило (HornedStyles^Conditional Formatting^New Rule).
3. В диалоговом окне Создание правила форматирования (New Formatting Rule)
'выберите параметр Использовать формулу для определения форматируе мых ячеек (Use a Formula to Determine Which Cells to Format).
4.В поле ввода введите формулу, при этом следите, чтобы аргумент, определяющий ячейку, соответствовал ячейке, находящейся в верхнем левом углу диапазона, ко торый был выделен в п. 1.
=C E L L H A S FO R M U LA (A l )
5.Щелкните на кнопке Формат (Format) для определения формата ячеек, которые соответствуют условию форматирования.
6.Щелкните на кнопке ОК для применения правила условного форматирования к выделенному диапазону.
Ячейки из диапазона, который содержит формулу, будут отображаться с применением выбранного вами формата. На рис. 10.3 показано диалоговое окно Создание правила фор матирования, в котором для определения формулы применяется пользовательская функция.
