Файл: Программирование на VBA.pdf

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

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

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

VBA запрещает присваивание несовместимого типа результату функции в любой функции-процедуре, которая имеет объявленный тип данных для ее результата. Если, например, вы ошибочно написали оператор присваивания функции так, что присваивается, допустим, тип Integer результату функции с объявленным типом String, то VBA отображает ошибку несовпадения типа. В случае присваивания типа данных, который не является тем же, что объявленный возвращаемый тип для функции-процедуры, но является совместимым, то VBA преобразует значение типа, определенного для функции при возврате результата функции. Например, если присваивается тип Double функции, результат которой был объявлен как Long, то VBA не выдает никакой ошибки, а просто преобразует Double в тип Long (при возвращении результата функции).

Объявление типа функции имеет еще один результат: если функция- процедура заканчивается без выполнения оператора присваивания функции, VBA возвращает строку нулевой длины для функций типа String и 0 – для функций- процедур, возвращающих численный тип. Нетипизированная функция-процедура, которая заканчивается без выполнения оператора присваивания функции, возвращает результат типа Variant, содержащий специальное значение Empty.

Если только не было определено иначе, VBA передает все аргументы в функцию-процедуру как типы Variant. Можно объявлять определенные типы данных для каждого аргумента в списке аргументов. Аргументы с определенными типами используются по тем же знакомым причинам, по каким используются типизированные переменные или результаты функции. Для объявления определенных типов аргументов функции-процедуры, используйте ключевое слово As, за которым следует имя нужного типа данных после имени аргумента в списке аргументов.

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

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

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

101

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

Для того чтобы обозначить метод передачи аргумента – по ссылке или по значению, – перед этим аргументом следует вставить ключевое слово ByRef (по ссылке) или ByVal (по значению).

Использование функций-процедур в VBA

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

Помните, что при вызове функции необходимо включать список аргументов в круглых скобках, если только вы не собираетесь игнорировать результат функции. Как и в случае со встроенными функциями VBA, можно игнорировать результат вашей собственной функции, хотя это редко бывает необходимо. Если нужно использовать именованные аргументы в ваших собственных функциях- процедурах, просто используйте имена из списка аргументов в объявлении функции-процедуры. Если вам трудно запомнить все именованные аргументы для одной из своих функций, убедитесь, что свойство Auto Quick Info (краткие сведения) включено. Если это так, Редактор VB отображает всплывающее окно с перечнем именованных аргументов вашей функции, как для встроенных функций

VBA.

Использование оператора Exit

Для того чтобы функция прекратила выполнение, используется форма VBA- оператора Exit.

Оператор Exit имеет следующий синтаксис:

Exit Function

функции. Числа x, a, b − вещественные.

Для этого:

ü введите функцию и процедуру (листинг 20): Листинг 20 – Использование Excel-функции МАКС

1Function pok (ByVal a As Double, b As Double)

2pok = a ^ b

3End Sub

4

5Sub List7_20 ()

6Dim a As Double, b As Double, x As Double, f As Double

102

8x = CDbl(InputBox("Введите x" , "Исходные данные"))

9a = CDbl(InputBox("Введите a" , "Исходные данные"))

10b = CDbl(InputBox("Введите b" , "Исходные данные"))

11f = (pok(a,x) - pok(b,x)) / (1 + pok(a,b))

12MsgBox f , , "Результат"

13End Sub

Встроке 1 содержится объявление функции pok, начинающееся с обязательного ключевого слова Function. После имени функции открываются круглые скобки, что указывает VBA на начало списка аргументов. Далее следует имена аргументов (a, b). Имена аргументов сообщают VBA, что функции- процедуре при ее вызове должны передаваться два аргумента (a – по значению, b

– по ссылке). Строка 2 функции pok – это строка, которая выполняет всю (пока небольшую) работу функции и также содержит аргумент функции для pok. При

вычислении выражения ab VBA присваивает результат имени функции pok. pok

возвращает значение выражения ab . В строке 3 функция заканчивается ключевыми словами End Function. После выполнения этой строки VBA возвращается к оператору процедуры, вызвавшему функцию pok, и вставляет результат функции pok в этот оператор в том месте, где появляется имя функции.

После того как тип аргумента объявлен, VBA при вызове функции pok допускает в качестве аргумента появление только значений типа Double. Вызов pok с каким-либо другим типом (даже Variant) в качестве аргумента вызывает ошибку несовпадения типа (конкретнее, несовпадение типа аргумента – argument type mismatch).

Использование инструмента Object Browser для нахождения функцийпроцедур

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

Вы уже знаете, как использовать Object Browser для отображения доступных функций VBA или функций host-приложений. Раскрывающийся список Project/Library (Проект/Библиотека) отображает все открытые в данный момент файлы приложения, как и всегда присутствующую опцию VBA. Для отображения пользовательских функций (и других процедур) в определенном проекте VBA (рабочей книге Excel или каком-либо другом документе host- приложения) выполняйте следующие шаги:

üвыберите наименование проекта в раскрывающемся списке

Project/Library (в Excel подобный элемент называется VBAProject). Окно Project Explorer указывает имя файла, в котором сохранен проект (в круглых скобках после имени проекта);

üвыберите модуль в списке Classes. После этого список Members of<class> (Компонент) содержит перечень всех процедур и функций, объявленных в выбранном модуле;

103

üвыберите функцию или процедуру, исходный код которой необходимо просмотреть, в списке Members of<class>;

üщелкните на кнопке View Definition (Описания) для отображения исходного кода функции или процедуры. Редактор VB открывает

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

Использование функций пользователя в рабочих листах Excel

Чтобы использовать свои функции (определенные пользователем) в Excel,

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

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

выбирая в меню Вставка/Функция….

Если при использовании определенной пользователем функции (UDF) в

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

Определенная пользователем функция, которая перевычисляется при каждом изменении любой ячейки в рабочем листе Excel, называется изменяющейся функцией. Чтобы пометить UDF как изменяющуюся, добавьте следующий оператор к функции сразу за ее объявлением:

Application.Volatile

Этот VBA-оператор помечает UDF как изменяющуюся функцию, и такая функция на самом деле является особым типом процедуры. Эта процедура называется методом (method), принадлежащим Excel. Поскольку метод принадлежит Excel, необходимо при использовании метода Volatile задавать объект Application, точно так же, как необходимо задавать объект Application при использовании функции Excel в операторе VBA.

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

Упражнение

Вставьте функцию pok в лист Excel и сделайте ее изменяющейся функцией.

Контрольные вопросы

1.Чем отличается процедура-функция от любой другой процедуры, которую вы создаете?

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

3. Какими требованиями должна удовлетворять определенная

104

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

4.Что такое присваивание результата функции?

5.Когда и почему следует передавать аргументы функции по значению?

Часть 8. ЭЛЕМЕНТЫ ДИАЛОГОВЫХ ОКОН

До сих пор вы учились использовать диалоговые окна, которые встроены в

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

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

VBA позволяет создавать и применять пользовательские диалоговые окна в

написанных вами программах и процедурах при помощи добавления в проект объекта UserForm. Используя VBA-формы пользователя (VBA User Forms), вы

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

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

Лабораторная работа № 8. Формы пользователя

Цель занятия: Уметь создавать формы пользователя и элементы

управления

Материалы к занятию: MS Excel 2003.

Свойства и методы объекта UserForm

Диалоговое окно в VBA создается добавлением в проект объекта UserForm. Объект UserForm – это пустое диалоговое окно. Настройку диалогового окна можно выполнить добавлением к объекту UserForm (обычно называют просто форма) элементов управления. Каждому объекту UserForm присущи определенные свойства, методы и события, которые он наследует от класса объектов UserForm. Каждый объект UserForm включает в себя также модуль класса, в который вы можете добавлять собственные методы и свойства или код обработки событий формы.

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

Задание 1. Добавьте в проект новую форму.

105