Стив Каммингс - VBA для чайников Страница 28

ПродажаСтаройМашины = ВозрастнойФактор * _

ЦеновойФактор * 1000

End Function

Здесь процедура с именем ВызывающаяПроцедура использует процедуру типа Function с именем ПродажаСтаройМашины для вычисления результата с именем

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

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

Dim Модель As String

Dim ГодВыпуска As Integer

Public Sub ВызывающаяПроцедура2()

Модель = Dodge Dart

ГодВыпуска = 1963

ДоходОтСтаройМашины = ПродажаСтаройМашины2()

End Sub

Public function ПродажаСтаройМашины 2()

Dim ВозрастнойФактор As Integer

Dim ЦеновойФактор As Single

If Модель = Rambler Classic Then

ЦеновойФактор = .001

Else If Модель = Dodge Dart Then

ЦеновойФактор = .005

Else If ...

(другие операторы)

End If

ПродажаСтаройМашины = ВозрастнойФактор * _

ЦеновойФактор * 1000

End Function

Так зачем же возражать?

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

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

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

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

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

Создание процедур с аргументами

Чтобы создать процедуру с аргументами, поместите аргументы в скобки после имени процедуры в ее объявлении. Например:

Романист(Заглавие As String, Страницы Аз Integer, _

СрокЗавершения As Date)

Отсюда видно, что тип каждого из аргументов задается следующим за именем аргумента сочетанием As тип, где тип может быть любым допустимым в VBA типом данных или классом объекта. Если указать только имя аргумента и не указать тип, то VBA припишет такому аргументу тип Variant. (Да знаю я, знаю, что еще не обсуждал типы данных и классы объектов, но вы можете найти все о них в главах 7 и 12 соответственно.)

Вызов процедур с аргументами

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

Единственной возможной сложностью при этом могут стать правила использования или неиспользования скобок. Правила эти следующие.

Скобки для аргументов обязательны при вызове процедуры типа Function для получения возвращаемого значения.

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

Организация процедур

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

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

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

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

Обзор области видимости

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

Область видимости процедуры может быть одной из следующих трех типов.

* По умолчанию процедуры VBA (за исключением процедур обработки событий) рассматриваются как открытые (public). Это значит, что вы можете вызывать их из любой части программы - из того же модуля, из другого модуля и даже из другого проекта (конечно, если программа использует несколько проектов, что обсуждается в главе 14).

* Если нужно, можно объявить процедуру локальном (private). Локальная процедура будет видима (если вы пожелаете) только внутри содержащего ее модуля. Другими словами, вы сможете вызвать локальную процедуру из других процедур того же модуля, но не из процедур, размещенных в других модулях.

* В VBA-программах, использующих несколько проектов, можно создавать процедуры, доступные изо всех модулей в рамках данного проекта, но не из других проектов.

Точно такие же области видимости задаются и переменным (подробно об этом - в разделе Задание области видимости переменной главы 7).

Задание области видимости процедуры

Чтобы задать область видимости процедуры, нужно в начале объявления процедуры просто напечатать ключевое слово Public или Private. Взгляните на следующие примеры:

Public Sub IKr.eadYouO

...( операторы процедуры)

End Sub

Private Function IKneedYou()

.. . (операторы процедуры)

End Function

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

Чтобы ограничить область видимости открытой процедуры рамками одного проекта и сделать ее недоступной для других проектов, поместите в раздел объявлений соответствующего модуля оператор Option Private Module. Подробности об использовании таких операторов вы найдете ниже, в разделах Объявления и Параметры компилятора.

Использование локальных процедур

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

Объявить процедуру локальной несложно, но зачем беспокоиться? В конце концов, VBA же не требует вызывать процедуру только потому, что она открыта!

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

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

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

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

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